on_disconnect schedules ircCheck*( for 1800s

[infobot.git] / src / IRC / IrcHooks.pl

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(), "");
     }
 }