From 36dcb75835ef48fb89d8c75cada772f8fd586cda Mon Sep 17 00:00:00 2001
From: dms <dms@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Wed, 28 Feb 2001 12:10:54 +0000
Subject: [PATCH] make dead-connect detection better.

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@417 c11ca15a-4712-0410-83d8-924469b57eb5
---
 src/IRC/Schedulers.pl | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

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$/) {
-- 
2.39.2