+ # factoid unforget/undelete.
+ if ($message =~ s/^un(forget|delete)\s+//i) {
+ return 'unforget: no addr' unless ($addressed);
+
+ if (!&IsParam("factoidDeleteDelay")) {
+ &performReply("safe delete has been disable so what is there to undelete?");
+ return;
+ }
+
+ my $faqtoid = $message;
+ if ($faqtoid eq "") {
+ &help("undelete");
+ return;
+ }
+
+ $faqtoid =~ tr/A-Z/a-z/;
+ my $result = &getFactoid($faqtoid." #DEL#");
+ my $check = &getFactoid($faqtoid);
+
+ if (!defined $result) {
+ &performReply("i didn't have anything ('$faqtoid') to undelete.");
+ return;
+ }
+
+ if (defined $check) {
+ &performReply("cannot undeleted '$faqtoid' because it already exists?");
+ return;
+ }
+
+ &setFactInfo($faqtoid." #DEL#", "factoid_key", $faqtoid);
+
+ ### delete info. modified_ isn't really used.
+ &setFactInfo($faqtoid, "modified_by", "");
+ &setFactInfo($faqtoid, "modified_time", 0);
+
+ &performReply("Successfully recovered '$faqtoid'. Have fun now.");
+
+ $count{'Undelete'}++;
+
+ return;
+ }
+