From bba2f29485314c78c2eb5e547a31f5b0a6dfc61e Mon Sep 17 00:00:00 2001
From: dms <dms@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Wed, 18 Apr 2001 14:41:26 +0000
Subject: [PATCH] fixed the following bugs: [57419] on_ttf: X1 Target change
 too fast. Please wait 50 seconds. [57604] !WARN! IsChanConf: lowercased chan.
 (Read error to 	boren-[adsl-63-197-68-132.dsl.snfc21.pacbell.net]: EOF
 from client)

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@448 c11ca15a-4712-0410-83d8-924469b57eb5
---
 src/IRC/IrcHooks.pl | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/src/IRC/IrcHooks.pl b/src/IRC/IrcHooks.pl
index d8483ef..db23653 100644
--- a/src/IRC/IrcHooks.pl
+++ b/src/IRC/IrcHooks.pl
@@ -789,7 +789,7 @@ sub on_quit {
     # hack for ICC.
     $msgType	= "public";
     $who	= $nick;
-    $chan	= $reason;	# not in split!
+###    $chan	= $reason;	# no.
 
     my $count	= 0;
     foreach (keys %channels) {
@@ -847,12 +847,16 @@ sub on_targettoofast {
     my($me,$chan,$why) = $event->args();
 
     ### TODO: incomplete.
-###    .* wait (\d+) second/) {
-	&status("on_ttf: X1 $why") if (defined $why);
-	my $sleep = 5;
+    if ($why =~ /.* wait (\d+) second/) {
+	my $sleep = $1;
 	&status("targettoofast: going to sleep for $sleep...");
 	sleep $sleep;
-### }
+    } else {
+	if (!exists $cache{TargetTooFast}) {
+	    &DEBUG("on_ttf: failed: $why");
+	    $cache{TargetTooFast}++;
+	}
+    }
 }
 
 sub on_topic {
-- 
2.39.5