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

More work

Browse source
This commit is contained in:
Ryan Voots 2016-12-31 15:57:02 -05:00
parent 0b0c3f3084
commit ad1dde4810
4 changed files with 7 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
.gitignore vendored
View file

@ -1,2 +1,3 @@
*.swp *.swp
*~ *~
.well-known/

2
app.cfg
View file

@ -15,6 +15,8 @@ max_size=524288
[blogspam] [blogspam]
site="https://perlbot.pl/" site="https://perlbot.pl/"
url="http://test.blogspam.net/"
port=9999
[evalserver] [evalserver]
server="localhost:14400" server="localhost:14400"

4
lib/App/Spamfilter.pm
View file

@ -17,6 +17,10 @@ sub is_spam {
return 1 unless ($blogspam->test_comment()); return 1 unless ($blogspam->test_comment());
} }
if ($cfg->{features}{akismet}) {
# TODO use Net::Akismet
}
return 2 if ($who =~ /^[A-Z]\w+\s+[A-Z]\w+$/); # block proper names, probably spam return 2 if ($who =~ /^[A-Z]\w+\s+[A-Z]\w+$/); # block proper names, probably spam
return 3 if ($what =~ m|https?://|); # no links in the desc, maybe relax later return 3 if ($what =~ m|https?://|); # no links in the desc, maybe relax later
return 0; # we thought it wasn't spam return 0; # we thought it wasn't spam

BIN
pastes.db
View file

Binary file not shown.