From 58e31f834c5a287e71520afacde35a83e1e049d2 Mon Sep 17 00:00:00 2001
From: dms <dms@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Thu, 10 May 2001 13:56:14 +0000
Subject: [PATCH] - added factoidPreventForgetList

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

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).");
-- 
2.39.2