defer leakCheck, increase interval.

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

diff --git a/blootbot/src/IRC/Schedulers.pl b/blootbot/src/IRC/Schedulers.pl
index 698d08ad40c8d966129e5fd2c14334c39ad86cab..ed98458d87db7c9b1ac394e0092f363d0f209ee6 100644 (file)
--- a/blootbot/src/IRC/Schedulers.pl
+++ b/blootbot/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;