From: dms <dms@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Thu, 10 May 2001 13:56:14 +0000 (+0000)
Subject: - added factoidPreventForgetList
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=58e31f834c5a287e71520afacde35a83e1e049d2;p=infobot.git

- 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 fffba84..8595bf4 100644
--- 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).");