From: dms <dms@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Wed, 28 Feb 2001 12:10:54 +0000 (+0000)
Subject: make dead-connect detection better.
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=36dcb75835ef48fb89d8c75cada772f8fd586cda;p=infobot.git

make dead-connect detection better.


git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@417 c11ca15a-4712-0410-83d8-924469b57eb5
---

diff --git a/src/IRC/Schedulers.pl b/src/IRC/Schedulers.pl
index 02069e6..b4d8e5d 100644
--- a/src/IRC/Schedulers.pl
+++ b/src/IRC/Schedulers.pl
@@ -562,9 +562,16 @@ sub ircCheck {
     }
 
     if (!$conn->connected or time - $msgtime > 3600) {
-	&WARN("ircCheck: no msg for 3600 and disco'd! reconnecting!");
-	$msgtime = time();	# just in case.
-	&ircloop();
+	if (exists $cache{connect}) {
+	    &WARN("ircCheck: no msg for 3600 and disco'd! reconnecting!");
+	    $msgtime = time();	# just in case.
+	    &ircloop();
+	    delete $cache{connect};
+	} else {
+	    &DEBUG("possible lost in space; checking.");
+	    &msg($ident, "TEST");
+	    $cache{connect} = time();
+	}
     }
 
     if ($ident !~ /^\Q$param{ircNick}\E$/) {