From 473ba634a02c159eda2a56ad15b53a38c2024984 Mon Sep 17 00:00:00 2001
From: Doug Freed <dwfreed@mtu.edu>
Date: Thu, 7 Jul 2016 20:22:56 -0700
Subject: Don't run /stats p in 90 seconds if ratelimited

The ratelimit handler already schedules one in 30 seconds, so don't
schedule a second one in 90 seconds.
---
 lib/ASM/Statsp.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'lib')

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') } );
 	}
 }
-- 
cgit v1.2.3