From e893f2f9724bfe64f537272c2315b0393ccd1c32 Mon Sep 17 00:00:00 2001
From: dms <dms@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Fri, 20 Apr 2001 13:27:04 +0000
Subject: [PATCH] we didn't set modified_time for deleted factoids - fixed
 also... if final delete factoid list is >50... don't do it!

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@455 c11ca15a-4712-0410-83d8-924469b57eb5
---
 src/IRC/Schedulers.pl | 12 +++++++++++-
 src/Process.pl        |  8 ++++----
 2 files changed, 15 insertions(+), 5 deletions(-)

diff --git a/src/IRC/Schedulers.pl b/src/IRC/Schedulers.pl
index 7519ef0..5851b64 100644
--- a/src/IRC/Schedulers.pl
+++ b/src/IRC/Schedulers.pl
@@ -1035,8 +1035,18 @@ sub factoidCheck {
 
     foreach (@list) {
 	my $age = &getFactInfo($_, "modified_time");	
+
 	if (!defined $age or $age !~ /^\d+$/) {
-	    &WARN("age == NULL or not numeric.");
+	    if (scalar @list > 50) {
+		if (!$cache{warnDel}) {
+		    &WARN("list is over 50 (".scalar(@list)."... giving it a miss.");
+		    $cache{warnDel} = 1;
+		    last;
+		}
+	    }
+
+	    &WARN("old cruft (no time): $_");
+	    &delFactoid($_);
 	    next;
 	}
 
diff --git a/src/Process.pl b/src/Process.pl
index 495c00b..dedad4e 100644
--- a/src/Process.pl
+++ b/src/Process.pl
@@ -411,10 +411,10 @@ sub FactoidStuff {
 		my $check = &getFactoid("$faqtoid #DEL#");
 		if (!$check) {
 		    if ($faqtoid !~ /#DEL#/) {
-			&setFactInfo($faqtoid, "factoid_key", $faqtoid." #DEL#");
-
-			&setFactInfo($faqtoid, "modified_by", $who);
-			&setFactInfo($faqtoid, "modified_time", time());
+			my $new = $faqtoid." #DEL#";
+			&setFactInfo($faqtoid, "factoid_key", $new);
+			&setFactInfo($new, "modified_by", $who);
+			&setFactInfo($new, "modified_time", time());
 		    } else {
 			&status("not backing up $faqtoid.");
 		    }
-- 
2.39.2