From 676a744c0752c02f747a8f61696d93a9aefe48cb Mon Sep 17 00:00:00 2001
From: dms <dms@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Tue, 13 Feb 2001 14:18:17 +0000
Subject: [PATCH] safe delete did not run delFactoid, hah! found by asuffield

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

diff --git a/src/Process.pl b/src/Process.pl
index abdff26..ac2573b 100644
--- a/src/Process.pl
+++ b/src/Process.pl
@@ -344,15 +344,20 @@ sub FactoidStuff {
 
 	    if (&IsParam("factoidDeleteDelay")) {
 		&status("forgot (safe delete): <$who> '$faqtoid' =is=> '$result'");
-		&setFactInfo($faqtoid, "factoid_key", $faqtoid." #DEL#");
-
-		### delete info. modified_ isn't really used.
-		&setFactInfo($faqtoid, "modified_by", $who);
-		&setFactInfo($faqtoid, "modified_time", time());
+		### 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());
+		} else {
+		    &status("forget: not overwriting backup!");
+		}
 	    } else {
 		&status("forget: <$who> '$faqtoid' =is=> '$result'");
-		&delFactoid($faqtoid);
 	    }
+	    &delFactoid($faqtoid);
 
 	    &performReply("i forgot $faqtoid");
 
@@ -388,6 +393,7 @@ sub FactoidStuff {
 	    return;
 	}
 
+	&DEBUG("unforget: check => $check");
 	if (defined $check) {
 	    &performReply("cannot undeleted '$faqtoid' because it already exists?");
 	    return;
-- 
2.39.2