import anames script 1.5

diff --git a/scripts/anames.pl b/scripts/anames.pl
new file mode 100644 (file)
index 0000000..b73203c
--- /dev/null
+++ b/scripts/anames.pl
@@ -0,0 +1,233 @@
+# 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.5   - Fixed halfop display bug (patch by epinephrine), 20100712
+#
+# 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.5';
+%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     => '2010-07-12',
+);
+
+# 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);