From 85e82d485c5a99a77c989fb84ddf9ff9a494a10c Mon Sep 17 00:00:00 2001
From: dms <dms@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Mon, 5 Feb 2001 14:32:13 +0000
Subject: [PATCH]  defer leakCheck, increase interval.

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@339 c11ca15a-4712-0410-83d8-924469b57eb5
---
 src/IRC/Schedulers.pl | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/src/IRC/Schedulers.pl b/src/IRC/Schedulers.pl
index 698d08a..ed98458 100644
--- a/src/IRC/Schedulers.pl
+++ b/src/IRC/Schedulers.pl
@@ -25,7 +25,7 @@ sub setupSchedulers {
     &netsplitCheck(1);	# mandatory
     &floodLoop(1);	# mandatory
     &seenFlush(1);
-    &leakCheck(1);	# mandatory
+    &leakCheck(2);	# mandatory
     &ignoreCheck(1);	# mandatory
     &seenFlushOld(1);
     &ircCheck(1);	# mandatory
@@ -461,7 +461,7 @@ sub leakCheck {
     my $count = 0;
 
     if (@_) {
-	&ScheduleThis(60, "leakCheck");
+	&ScheduleThis(240, "leakCheck");
 	return if ($_[0] eq "2");
     } else {
 	delete $sched{"leakCheck"}{RUNNING};
@@ -868,9 +868,15 @@ sub factoidCheck {
     my @list = &searchTable("factoids", "factoid_key", "factoid_key", " #DEL#");
     my $stale = &getChanConfDefault("factoidDeleteDelay", 7)*60*60*24;
 
+    my $time	= time();
     foreach (@list) {
 	my $age = &getFactInfo($_, "modified_time");	
-	next unless (time() - $age > $stale);
+	if (!defined $age or $age !~ /^\d+$/) {
+	    &WARN("age == NULL or not numeric.");
+	    next;
+	}
+
+	next unless ($time - $age > $stale);
 
 	my $fix = $_;
 	$fix =~ s/ #DEL#$//g;
-- 
2.39.2