diff options
| author | ailin-nemui | 2015-12-08 23:09:35 +0100 |
|---|---|---|
| committer | ailin-nemui | 2015-12-08 23:09:35 +0100 |
| commit | 8b1a4ffcaf9bf1dfae6122903d5d1a2edc9e0558 (patch) | |
| tree | e2f5c05b4083adfcbb1f0017b7a41ab8bb5558a1 | |
| parent | 6fd25f73c1d0d5fea6095ca907f9916d857452c0 (diff) | |
| parent | 33cdc62a2817194beca14fbddfd8b3def7d7c4d3 (diff) | |
| download | scripts.irssi.org-8b1a4ffcaf9bf1dfae6122903d5d1a2edc9e0558.tar.bz2 | |
Merge pull request #204 from mh-source/gh-pages
mh_sbsplitmode.pl v1.02
| -rw-r--r-- | scripts/mh_sbsplitmode.pl | 24 |
1 files changed, 16 insertions, 8 deletions
diff --git a/scripts/mh_sbsplitmode.pl b/scripts/mh_sbsplitmode.pl index f91f44d..cc33cd0 100644 --- a/scripts/mh_sbsplitmode.pl +++ b/scripts/mh_sbsplitmode.pl @@ -1,6 +1,6 @@ ############################################################################## # -# mh_sbsplitmode.pl v1.01 (20151203) +# mh_sbsplitmode.pl v1.03 (20151208) # # Copyright (c) 2015 Michael Hansen # @@ -49,6 +49,11 @@ # see '/help statusbar' for more details and do not forget to '/save' # # history: +# v1.03 (20151208) +# cleaned up useless code. +# v1.02 (20151207) +# fixed bug where the timeout never got started +# added a few comments # v1.01 (20151203) # added _lag_limit and supporting code to skip /stats d on lag # will now print server is in splitmode in all relevant windows @@ -69,7 +74,7 @@ use strict; use Irssi 20100403; use Irssi::TextUI; -our $VERSION = '1.01'; +our $VERSION = '1.03'; our %IRSSI = ( 'name' => 'mh_sbsplitmode', @@ -197,7 +202,8 @@ sub timeout_request_stats_d $delay = 1; } - $delay = ($delay * 60000) + (int(rand(30000)) + 1); + $delay = ($delay * 60000); # in minutes + $delay = $delay + (int(rand(30000)) + 1); Irssi::timeout_add_once($delay, 'timeout_request_stats_d', undef); } @@ -230,10 +236,14 @@ sub signal_redir_stats_d Irssi::statusbar_items_redraw('mh_sbsplitmode'); + # + # print to all relevant windows when server enters/leaves splitmode + # + if ($old_s != $state->{$servertag}->{'s'}) { - my $format_server = $server->{'tag'} . '/' . $server->{'real_address'}; - my $format_data = ''; + my $format_server = $server->{'tag'} . '/' . $server->{'real_address'}; + my $format_data = ''; if ($state->{$servertag}->{'s'}) { @@ -255,7 +265,6 @@ sub signal_redir_stats_d } } } - } elsif ($data =~ /.*permission.*/i) { my $servertag = lc($server->{'tag'}); @@ -311,7 +320,6 @@ sub command_splitmode $format_data = $format_data . ' since ' . localtime($state->{$servertag}->{'s'}); } - } else { $format_data = 'Not in splitmode'; @@ -442,7 +450,7 @@ Irssi::signal_add_last('setup changed', 'signal_setup_changed_last'); Irssi::command_bind('splitmode', 'command_splitmode', 'mh_sbsplitmode'); Irssi::command_bind('help', 'command_help'); -request_stats_d_all(); +timeout_request_stats_d(); 1; |