- added factoidPreventForgetList

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

diff --git a/src/Process.pl b/src/Process.pl
index fffba84f174ca5451b43f80e6e179fc2aa285fd2..8595bf4754b01e27c60f3943c4b60ab5d8976e1a 100644 (file)
--- a/src/Process.pl
+++ b/src/Process.pl
@@ -390,7 +390,11 @@ sub FactoidStuff {
        my $result = &getFactoid($faqtoid);
 
        if (defined $result) {
-           my $author = &getFactInfo($faqtoid, "created_by");
+           my $author  = &getFactInfo($faqtoid, "created_by");
+           my $count   = &getFactInfo($faqtoid, "requested_count") || 0;
+           my $limit   = &getChanConfDefault("factoidPreventForgetLimit", 
+                               0, $chan);
+
            if (IsFlag("r") ne "r") {
                &msg($who, "you don't have access to remove factoids");
                return;
@@ -398,6 +402,12 @@ sub FactoidStuff {
 
            return 'locked factoid' if (&IsLocked($faqtoid) == 1);
 
+           # factoidPreventForgetLimit:
+           if ($limit and $count > $limit and (&IsFlag("o") ne "o")) {
+               &msg($who, "will not delete '$faqtoid', count > limit ($count > $limit)");
+               return;
+           }
+
            if (&IsParam("factoidDeleteDelay")) {
                if ($faqtoid =~ / #DEL#$/ and !&IsFlag("o")) {
                    &msg($who, "cannot delete it ($faqtoid).");