Skip to content

Commit

Permalink
Adding anames.pl with changes from VMiklos.
Browse files Browse the repository at this point in the history
  • Loading branch information
@msparks
msparks committed Jan 22, 2009
0 parents commit e1acac3
Showing 1 changed file with 223 additions and 0 deletions.
223 changes: 223 additions & 0 deletions anames.pl
Original file line number Diff line number Diff line change
@@ -0,0 +1,223 @@
# anames.pl
# Irssi script that adds an /anames command, a clone of /names, with away nicks
# grayed out.
#
# Thanks to Dirm and Chris62vw for the Perl help and coekie for writing the
# evil code to sort the nicklist by the alphabet and rank in nicklist.pl
#
# 1.4 - Merged changes from VMiklos and readded /who redirection to prevent
# spamming the status window. - ms, 20090122
#
# 1.3 - by VMiklos
# Doing /dowho is very annoying and /alias foo /dowho;/anames won't
# work either since anames will work from the old infos. So I've
# modified /anames to just do a /dowho and the nicklist will be printed
# when we'll get the answer from the server.
#
# 1.2 - It seems that redirected events will not pass through the internal
# mechanisms that update user information (like away states). So, it
# /dowho and the periodic execution of the command has been disabled.
# /anames will still work, but new away information will need to be
# obtained by executing a /who on a channel.
# If you can make redirection (execute a /who without the information
# spilling to the status window) work, let me know so I can fix the
# script.
#
# 1.0.1 - Fixed row-determining and max-nick-length code, changed command_add
# calls to refs instead of names.
#
# 1.0 - Added timer for periodic /who of all channels
#
# 0.9 - Initial test release

use strict;
use Irssi;
use POSIX;
#use Data::Dumper;

use vars qw($VERSION %IRSSI);

$VERSION = '1.4';
%IRSSI = (
authors => 'Matt "f0rked" Sparks, Miklos Vajna',
contact => 'ms+irssi@quadpoint.org',
name => 'anames',
description => 'a /names display with away nicks colored',
license => 'GPLv2',
url => 'http://quadpoint.org',
changed => '2009-01-22',
);

# How often to do a /who of all channels (in seconds)
#my $who_timer = 300;

my $tmp_server;
my $tmp_chan;


sub cmd_anames {
my($args, $server, $item) = @_;
my $channel = Irssi::active_win->{active};
$tmp_server = $server;
$tmp_chan = $channel->{"name"};

if ($args ne "") {
$server = $args;
$server =~ s/-([^ ]*) .*/\1/;
$tmp_server = Irssi::server_find_tag($server);
$tmp_chan = $args;
$tmp_chan =~ s/-[^ ]* (.*)/\1/;
}

# set up redirection
$tmp_server->redirect_event("who", 1, $tmp_chan, 0, undef,
{
"event 352" => "redir who_reply",
"event 315" => "redir who_reply_end",
});

$tmp_server->command("who $tmp_chan");
}


sub print_anames {
my $server = $tmp_server;
my $chan = $tmp_chan;
my $channel = Irssi::Server::channel_find($server, $chan);
my $nick;

if (!$channel) {
# no nicklist
Irssi::print("Not joined to any channel", MSGLEVEL_CLIENTERROR);
} else {
# Loop through each nick and display
my @nicks;
my($ops, $halfops, $voices, $normal, $away) = (0, 0, 0, 0, 0);

# sorting from nicklist.pl
foreach my $nick (sort {(($a->{'op'}?'1':$a->{'halfop'}?'2':$a->{'voice'}?'3':'4').lc($a->{'nick'}))
cmp (($b->{'op'}?'1':$b->{'halfop'}?'2':$b->{'voice'}?'3':'4').lc($b->{'nick'}))} $channel->nicks()) {
my $realnick = $nick->{'nick'};
my $gone = $nick->{'gone'};

my $prefix;
if ($nick->{'op'}) {
$prefix = "@";
$ops++;
} elsif ($nick->{'halfop'}) {
$prefix = "%";
$halfops++;
} elsif ($nick->{'voice'}) {
$prefix = "+";
$voices++;
} else {
$prefix = " ";
$normal++;
}

$prefix = "%W$prefix%n";
if ($gone) {
$realnick = "%K$realnick%n";
$away++;
}

push @nicks, "$prefix" . $realnick;
}

my $total = @nicks;
$channel->print("%K[%n%gUsers%n %G" . $chan . "%n%K]%n",
MSGLEVEL_CLIENTCRAP);
columnize_nicks($channel,@nicks);
$channel->print("%W$chan%n: Total of %W$total%n nicks %K[%W$ops%n ops, " .
"%W$halfops%n halfops, %W$voices%n voices, %W$normal%n " .
"normal, %W$away%n away%K]%n",
MSGLEVEL_CLIENTNOTICE);
}
}


# create a /names style column, increasing alphabetically going down the
# columns.
sub columnize_nicks {
my($channel, @nicks) = @_;
my $total = @nicks;

# determine max columns
# FIXME: this could be more intelligent (i.e., read window size)
my $cols = Irssi::settings_get_int("names_max_columns");
$cols = 6 if $cols == 0;

# determine number of rows
my $rows = round(ceil($total / $cols));

# array of rows
my @r;
for (my $i = 0; $i < $cols; $i++) {
# peek at next $rows items, determine max length
my $max_length = find_max_length(@nicks[0 .. $rows - 1]);

# fill rows
for (my $j = 0; $j < $rows; $j++) {
my $n = shift @nicks; # single nick
if ($n ne "") {
$r[$j] .= "%K[%n$n" . fill_spaces($n,$max_length) . "%K]%n ";
}
}
}

for (my $m = 0; $m < $rows; $m++) {
chomp $r[$m];
$channel->print($r[$m], MSGLEVEL_CLIENTCRAP);
}
}


sub fill_spaces {
my($text, $max_length) = @_;
$text =~ s/%[a-zA-Z]//g;
return " " x ($max_length - length($text));
}


sub find_max_length {
my $max_length = 0;
for (my $i = 0; $i < @_; $i++) {
my $nick = $_[$i];
$nick =~ s/%[a-zA-Z]//g;
if (length($nick) > $max_length) {
$max_length = length($nick);
}
}
return $max_length;
}


sub round {
my($number) = @_;
return int($number + .5);
}


sub who_reply {
my($server, $data) = @_;
my(undef, $c, $i, $h, $n, $s) = split / /, $data;
if ($tmp_chan ne $c) {
$tmp_chan = $c;
#print "Got who info for $c";
}
}


sub who_reply_end {
print_anames();
$tmp_chan = "";
}


Irssi::Irc::Server::redirect_register("who", 0, 0,
{"event 352" => 1},
{"event 315" => 1},
undef);
Irssi::signal_add("redir who_reply", \&who_reply);
Irssi::signal_add("redir who_reply_end", \&who_reply_end);
Irssi::command_bind("anames", \&cmd_anames);

0 comments on commit e1acac3

Please sign in to comment.