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 02069e6e49ab99c2eac2f233cf24231ed00724e5..b4d8e5d265e669586a2225e1bb8d6c08f4d48e13 100644 (file)
--- 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$/) {