diff options
| author | bw1 | 2017-03-11 06:15:56 +0100 |
|---|---|---|
| committer | bw1 | 2017-03-17 14:23:00 +0100 |
| commit | 75a8b37c37a0545abd5e09b35995ccccc2e04edc (patch) | |
| tree | 75716592c518bd4d2b3bc67f8614c7b6a30ce5d7 /scripts | |
| parent | 3516d1c3408d56c0badfdf2ac17849665ce6d983 (diff) | |
| download | scripts.irssi.org-75a8b37c37a0545abd5e09b35995ccccc2e04edc.tar.bz2 | |
[hitcount] refresh_tag
Diffstat (limited to 'scripts')
| -rw-r--r-- | scripts/hitcount.pl | 5 |
1 files changed, 4 insertions, 1 deletions
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(); |
