summaryrefslogtreecommitdiffstats
path: root/extensions/AntiSpam/lib/Config.pm
diff options
context:
space:
mode:
Diffstat (limited to 'extensions/AntiSpam/lib/Config.pm')
-rw-r--r--extensions/AntiSpam/lib/Config.pm75
1 files changed, 75 insertions, 0 deletions
diff --git a/extensions/AntiSpam/lib/Config.pm b/extensions/AntiSpam/lib/Config.pm
new file mode 100644
index 000000000..c8e1255c2
--- /dev/null
+++ b/extensions/AntiSpam/lib/Config.pm
@@ -0,0 +1,75 @@
+# This Source Code Form is subject to the terms of the Mozilla Public
+# License, v. 2.0. If a copy of the MPL was not distributed with this
+# file, You can obtain one at http://mozilla.org/MPL/2.0/.
+#
+# This Source Code Form is "Incompatible With Secondary Licenses", as
+# defined by the Mozilla Public License, v. 2.0.
+
+package Bugzilla::Extension::AntiSpam::Config;
+
+use strict;
+use warnings;
+
+use Bugzilla::Config::Common;
+use Bugzilla::Group;
+
+our $sortkey = 511;
+
+sub get_param_list {
+ my ($class) = @_;
+
+ my @param_list = (
+ {
+ name => 'antispam_spammer_exclude_group',
+ type => 's',
+ choices => \&_get_all_group_names,
+ default => 'canconfirm',
+ checker => \&check_group
+ },
+ {
+ name => 'antispam_spammer_comment_count',
+ type => 't',
+ default => '3',
+ checker => \&check_numeric
+ },
+ {
+ name => 'antispam_spammer_disable_text',
+ type => 'l',
+ default =>
+ "This account has been automatically disabled as a result of " .
+ "a high number of spam comments.<br>\n<br>\n" .
+ "Please contact the address at the end of this message if " .
+ "you believe this to be an error."
+ },
+ {
+ name => 'antispam_abusive_comment_count',
+ type => 't',
+ default => '5',
+ checker => \&check_numeric
+ },
+ {
+ name => 'antispam_abusive_disable_text',
+ type => 'l',
+ default =>
+ "This account has been automatically disabled as a result of " .
+ "a high number of comments tagged as abusive.<br>\n<br>\n" .
+ "All interactions on Bugzilla should follow our " .
+ "<a href=\"https://bugzilla.mozilla.org/page.cgi?id=etiquette.html\">" .
+ "etiquette guidelines</a>.<br>\n<br>\n" .
+ "Please contact the address at the end of this message if you " .
+ "believe this to be an error, or if you would like your account " .
+ "reactivated in order to interact within our etiquette " .
+ "guidelines."
+ },
+ );
+
+ return @param_list;
+}
+
+sub _get_all_group_names {
+ my @group_names = map {$_->name} Bugzilla::Group->get_all;
+ unshift(@group_names, '');
+ return \@group_names;
+}
+
+1;