New listsort.pl script: order /list by chan size

diff --git a/scripts/listsort.pl b/scripts/listsort.pl
new file mode 100644 (file)
index 0000000..f615cd9
--- /dev/null
+++ b/scripts/listsort.pl
@@ -0,0 +1,59 @@
+use Irssi;
+use vars qw/$VERSION %IRSSI/;
+
+$VERSION = '0.1';
+%IRSSI = (
+    authors     => 'Isaac Good',
+    name        => 'listsort',
+    contact     => 'irssi@isaacgood.com',
+    decsription => 'Sort the /list output by channel size',
+    license     => 'BSD',
+    url         => 'https://github.com/IsaacG/irssi-scripts',
+    created     => '2013/02/23',
+);
+
+# Bindings. Start of channel list, end of list, list item.
+Irssi::signal_add_last('event 322', \&list_event);
+Irssi::signal_add_last('event 323', \&list_end);
+Irssi::signal_add_last('notifylist event', \&list_start);
+
+# Store the channel list between IRC messages
+my %list;
+
+# When we get a start-list, create an empty list.
+sub list_start {
+    %list = {};
+}
+
+# Store list info in the hash.
+sub list_event {
+    my ($server, $data, $server_name) = @_;
+    my ($meta, $more) = split (/ :/, $data, 2);
+    my ($nick, $name, $size) = split (/ /, $meta, 3);
+    $list{$name}{'size'} = $size;
+
+    $more =~ /^[^[]*\[([^]]*)\][^ ]* *([^ ].*)$/;
+    my $modes = $1;
+    $list{$name}{'desc'} = $2;
+
+    $modes =~ s/ +$//;
+    $list{$name}{'modes'} = $modes;
+}
+
+# Print out the whole list in sorted order.
+sub list_end {
+    for my $name (sort {$list{$a}{'size'} <=> $list{$b}{'size'}} keys %list) {
+        my $msg = sprintf (
+            "%d %s: %s (%s)",
+            $list{$name}{'size'},
+            $name,
+            $list{$name}{'desc'},
+            $list{$name}{'modes'}
+        );
+
+        Irssi::print($msg, MSGLEVEL_CRAP);
+    }
+    # Drop the hash values; no point in holding them in memory.
+    delete @list{keys %list};
+}
+