Perlbot/perlbuut-pastebin
1
0
Fork 0
mirror of https://github.com/perlbot/perlbuut-pastebin synced 2025-06-07 22:26:01 -04:00
Code Issues Releases Wiki Activity

static spamlist update

Browse source
This commit is contained in:
Ryan Voots 2017-05-11 15:40:03 -04:00
parent 2d305be097
commit d121b3ea28
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/App/Controller/Apiv1.pm
View file

@ -61,7 +61,7 @@ sub api_post_paste {
# warn "I thought this was spam! $type";
# } else {
if ($channel) { # TODO config for allowing announcements
my $words = qr/nigger|jew|spic|tranny|trannies|fuck|shit|piss|cunt|asshole/i;
my $words = qr/nigger|jew|spic|tranny|trannies|fuck|shit|piss|cunt|asshole|hitler|klan|klux/i;
unless ($code =~ $words || $who =~ $words || $desc =~ $words) {
$c->perlbot->announce($channel, $who, substr($desc, 0, 40), $c->req->url->base()."/p/$id");
}