From 4121b6296d030df70a7580e73c9b3dfc7b9e54c6 Mon Sep 17 00:00:00 2001
From: dms <dms@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Fri, 22 Sep 2000 10:50:25 +0000
Subject: [PATCH] periodically check to delete deleted factoids

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

diff --git a/blootbot/src/IRC/Schedulers.pl b/blootbot/src/IRC/Schedulers.pl
index e8b54bf..778200b 100644
--- a/blootbot/src/IRC/Schedulers.pl
+++ b/blootbot/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;
-- 
2.39.5