From 64bb430ff993ad3cf763a3c0510f6da671093c54 Mon Sep 17 00:00:00 2001
From: dms <dms@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Wed, 28 Feb 2001 12:17:36 +0000
Subject: [PATCH] don't backup #DEL# factoids. asuffield.

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

diff --git a/src/Process.pl b/src/Process.pl
index 600729d..5e59a02 100644
--- a/src/Process.pl
+++ b/src/Process.pl
@@ -401,14 +401,22 @@ sub FactoidStuff {
 	    return 'locked factoid' if (&IsLocked($faqtoid) == 1);
 
 	    if (&IsParam("factoidDeleteDelay")) {
+		if ($faqtoid =~ /#DEL#/ and !&IsFlag("o")) {
+		    &msg($who, "cannot delete it ($faqtoid).");
+		    return;
+		}
 		&status("forgot (safe delete): <$who> '$faqtoid' =is=> '$result'");
 		### TODO: check if the "backup" exists and overwrite it
 		my $check = &getFactoid("$faqtoid #DEL#");
 		if (!$check) {
-		    &setFactInfo($faqtoid, "factoid_key", $faqtoid." #DEL#");
-
-		    &setFactInfo($faqtoid, "modified_by", $who);
-		    &setFactInfo($faqtoid, "modified_time", time());
+		    if ($faqtoid !~ /#DEL#/) {
+			&setFactInfo($faqtoid, "factoid_key", $faqtoid." #DEL#");
+
+			&setFactInfo($faqtoid, "modified_by", $who);
+			&setFactInfo($faqtoid, "modified_time", time());
+		    } else {
+			&status("not backing up $faqtoid.");
+		    }
 		} else {
 		    &status("forget: not overwriting backup!");
 		}
-- 
2.39.2