From: dms <dms@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Fri, 22 Sep 2000 10:50:25 +0000 (+0000)
Subject: periodically check to delete deleted factoids
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=477a77382f0df9974890a70d4d9ed0d4c9e38464;p=infobot.git

periodically check to delete deleted factoids


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

diff --git a/src/IRC/Schedulers.pl b/src/IRC/Schedulers.pl
index e8b54bf..778200b 100644
--- a/src/IRC/Schedulers.pl
+++ b/src/IRC/Schedulers.pl
@@ -31,6 +31,7 @@ sub setupSchedulers {
     &freshmeatCycle(1)	if (&IsParam("freshmeat") and &IsParam("freshmeatAnnounce"));
     &kernelCycle(1)	if (&IsParam("kernel") and &IsParam("kernelAnnounce"));
     &wingateWriteFile(1) if (&IsParam("wingate"));
+    &factoidCheck(1)	if (&IsParam("factoidDeleteDelay"));
 }
 
 sub ScheduleThis {
@@ -598,4 +599,26 @@ sub wingateWriteFile {
     &ScheduleThis(60, "wingateWriteFile") if (@_);
 }
 
+sub factoidCheck {
+    my @list = &searchTable("factoids", "factoid_key", "factoid_key", " #DEL#");
+    my $stale = $param{'factoidDeleteDelay'}*60*60*24;
+
+    foreach (@list) {
+	my $age = &getFactInfo($_, "modified_time");	
+	next unless (time() - $age > $stale);
+
+	my $fix = $_;
+	$fix =~ s/ #DEL#$//g;
+	&VERB("safedel: Removing $fix for good.",2);
+	&delFactoid($_);
+    }
+
+    &ScheduleThis(1440, "factoidCheck") if (@_);
+}
+
+sub schedulerSTUB {
+
+    &ScheduleThis(TIME_IN_MINUTES, "FUNCTION") if (@_);
+}
+
 1;