Update chansort to 1.5

Adds netonly config option

diff --git a/scripts/chansort.pl b/scripts/chansort.pl
index 82e2c695993e19f9a939404c3583cb72dcd177f3..81935d7544d2196ba522de5a570a2794159bc551 100644 (file)
--- a/scripts/chansort.pl
+++ b/scripts/chansort.pl
@@ -7,7 +7,7 @@ use Irssi;
 use Irssi::Irc;
 
 use vars qw{$VERSION %IRSSI};
-($VERSION) = '$Revision: 1.4 $' =~ / (\d+\.\d+) /;
+($VERSION) = '$Revision: 1.5 $' =~ / (\d+\.\d+) /;
 %IRSSI = (
          name        => 'chansort',
          authors     => 'Peder Stray',
@@ -27,15 +27,19 @@ sub cmd_chansort {
     my(@windows);
     my($minwin);
 
+    my $netonly = Irssi::settings_get_bool('chansort_netonly');
+
     for my $win (Irssi::windows()) {
        my $act = $win->{active};
        my $key;
 
+       my $id = sprintf "%05d", $win->{refnum};
+
        if ($act->{type} eq 'CHANNEL') {
-           $key = "C".$act->{server}{tag}.' '.substr($act->{visible_name}, 1);
+           $key = "C".$act->{server}{tag}.' '.($netonly ? $id : substr($act->{visible_name}, 1));
        }
        elsif ($act->{type} eq 'QUERY') {
-           $key = "Q".$act->{server}{tag}.' '.$act->{visible_name};
+           $key = "Q".$act->{server}{tag}.' '.($netonly ? $id : $act->{visible_name});
        }
        else {
            next;
@@ -68,6 +72,7 @@ sub cmd_chansort {
 Irssi::command_bind('chansort', 'cmd_chansort');
 
 Irssi::settings_add_bool('chansort', 'chansort_autosort', 0);
+Irssi::settings_add_bool('chansort', 'chansort_netonly', 0);
 
 Irssi::signal_add_last('window item name changed', 'sig_sort_trigger');
 Irssi::signal_add_last('channel created', 'sig_sort_trigger');