diff options
Diffstat (limited to 'extensions/AntiSpam/lib')
-rw-r--r-- | extensions/AntiSpam/lib/Config.pm | 75 |
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; |