on_disconnect schedules ircCheck*( for 1800s

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

diff --git a/src/IRC/IrcHooks.pl b/src/IRC/IrcHooks.pl
index 897bc0049cb8e69e530cad348a167a84b2117892..085283d4bfda68ab3d0382ef0ad819c510b458ff 100644 (file)
--- a/src/IRC/IrcHooks.pl
+++ b/src/IRC/IrcHooks.pl
@@ -218,9 +218,9 @@ sub on_disconnect {
     $nickserv = 0;
 
     &clearIRCVars();
-
     if (!$self->connect()) {
-       &WARN("not connected? help me. ircCheck() should reconnect me");
+       &WARN("not connected? help me. gonna call ircCheck() in 1800s");
+       $conn->schedule(1800, \&ircCheck(), "");
     }
 }