netsplit timer added

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

diff --git a/src/IRC/IrcHooks.pl b/src/IRC/IrcHooks.pl
index 02f3bde0b6348ef187ba449742cf2c270b74e7a2..6bba1fd8dab6b2d313ba778adc44a851676670fa 100644 (file)
--- a/src/IRC/IrcHooks.pl
+++ b/src/IRC/IrcHooks.pl
@@ -348,6 +348,16 @@ sub on_join {
        $netsplit = 1;
     }
 
+    if ($netsplit and !$netsplittime) {
+       &status("ok.... re-running chanlimitCheck in 60.");
+       $conn->schedule(60, sub {
+               &chanlimitCheck();
+               $netsplittime = undef;
+       } );
+
+       $netsplittime = time();
+    }
+
     # how to tell if there's a netjoin???
 
     my $netsplitstr = "";