From: bw1 Date: Sat, 11 Mar 2017 05:15:56 +0000 (+0100) Subject: [hitcount] refresh_tag X-Git-Url: http://git.99rst.org/?a=commitdiff_plain;h=75a8b37c37a0545abd5e09b35995ccccc2e04edc;p=irssi-scripts.irssi.org.git [hitcount] refresh_tag --- diff --git a/scripts/hitcount.pl b/scripts/hitcount.pl index 7e1cc94..df87f6c 100644 --- a/scripts/hitcount.pl +++ b/scripts/hitcount.pl @@ -65,6 +65,8 @@ my ($my_change, $total_change) = (0,0); my ($last_total_hitcount, $last_my_hitcount, $last_refresh) = (0,0,0); # set default variables my ($filename, $regexp, $refresh) = ("/var/log/httpd/access.log", "/", 60); +# marker for the refresh +my $refresh_tag; # read the access_log and count rows, regexp matches sub get_hitcount { @@ -146,7 +148,8 @@ sub read_settings { return if ($time == $last_refresh); $last_refresh = $time; - Irssi::timeout_remove(my $refresh_tag) if (my $refresh_tag); + + #Irssi::timeout_remove(my $refresh_tag) if (my $refresh_tag); $refresh_tag = Irssi::timeout_add($time*1000, 'refresh_hitcount', undef); refresh_hitcount();