From fe31f0ad979488af0ba3df5ad2b3756e922b2ff5 Mon Sep 17 00:00:00 2001
From: dms <dms@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Mon, 11 Dec 2000 12:24:33 +0000
Subject: [PATCH] netsplit timer added

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

diff --git a/src/IRC/IrcHooks.pl b/src/IRC/IrcHooks.pl
index 02f3bde..6bba1fd 100644
--- 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 = "";
-- 
2.39.5