diff options
Diffstat (limited to 'lib/ASM')
| -rw-r--r-- | lib/ASM/Statsp.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lib/ASM/Statsp.pm b/lib/ASM/Statsp.pm index a309e13..a83f55c 100644 --- a/lib/ASM/Statsp.pm +++ b/lib/ASM/Statsp.pm @@ -25,6 +25,7 @@ sub new } my $clearstatsp = 1; +my $ratelimited = 0; my %statsp = (); my %oldstatsp = (); @@ -63,7 +64,8 @@ sub on_endofstats } # $event->{args}->[2] == "End of /STATS report" #end of /stats p - $conn->schedule( 90, sub { $conn->sl('STATS p') } ); + $conn->schedule( 90, sub { $conn->sl('STATS p') } ) unless $ratelimited; + $ratelimited = 0; } } @@ -71,6 +73,7 @@ sub on_whofuckedup { my ($conn, $event) = @_; if ($event->{args}->[1] eq "STATS") { + $ratelimited = 1; $conn->schedule(30, sub { $conn->sl('STATS p') } ); } } |