allow geeky undeleteing of CMD:s

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@870 c11ca15a-4712-0410-83d8-924469b57eb5

diff --git a/src/Factoids/Core.pl b/src/Factoids/Core.pl
index 2b6c60295166ef18d3a7259fce5cb21b0e8a7445..b3d009da74d269ef9ac5007f926922efd93f1274 100644 (file)
--- a/src/Factoids/Core.pl
+++ b/src/Factoids/Core.pl
@@ -307,6 +307,7 @@ sub FactoidStuff {
        }
 
        $faqtoid =~ tr/A-Z/a-z/;
+       $faqtoid =~ s/^cmd:/CMD:/; # basic command undeleteing
        my $result = &getFactoid($faqtoid." #DEL#");
        my $check  = &getFactoid($faqtoid);