closed 17091 -- chaninfo stats inconsistent after time

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

diff --git a/src/IRC/Schedulers.pl b/src/IRC/Schedulers.pl
index efb28afd934f9873de14b194c60be78d43b2059a..fff610ecad2875c3506beae769870203727fe9cd 100644 (file)
--- a/src/IRC/Schedulers.pl
+++ b/src/IRC/Schedulers.pl
@@ -249,6 +249,20 @@ sub netsplitCheck {
        }
     }
 
+    # %netsplit hash checker.
+    foreach (keys %netsplit) {
+       if (&IsNickInAnyChan($_)) {
+           &DEBUG("netsplitC: $_ is in some chan; removing from netsplit list.");
+           delete $netsplit{$_};
+       }
+       next unless (time() - $netsplit{$_} > 60*60*2); # 2 hours.
+
+       if (!&IsNickInAnyChan($_)) {
+           &DEBUG("netsplitC: $_ didn't come back from netsplit in 2 hours; removing from netsplit list.");
+           delete $netsplit{$_};
+       }
+    }
+
     &ScheduleThis(30, "netsplitCheck") if (@_);
 }