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

Add static wordlist

Browse source
This commit is contained in:
Ryan Voots 2017-05-11 00:02:49 -04:00
parent 5494943792
commit 899876daee
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -61,6 +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;
unless ($code =~ $words || $who =~ $words || $desc =~ $words) {
$c->perlbot->announce($channel, $who, substr($desc, 0, 40), $c->req->url->base()."/p/$id");
}