mirror of
https://github.com/perlbot/perlbuut-pastebin
synced 2025-06-07 14:17:26 -04:00
More work
This commit is contained in:
parent
0b0c3f3084
commit
ad1dde4810
4 changed files with 7 additions and 0 deletions
1
.gitignore
vendored
1
.gitignore
vendored
|
@ -1,2 +1,3 @@
|
|||
*.swp
|
||||
*~
|
||||
.well-known/
|
||||
|
|
2
app.cfg
2
app.cfg
|
@ -15,6 +15,8 @@ max_size=524288
|
|||
|
||||
[blogspam]
|
||||
site="https://perlbot.pl/"
|
||||
url="http://test.blogspam.net/"
|
||||
port=9999
|
||||
|
||||
[evalserver]
|
||||
server="localhost:14400"
|
||||
|
|
|
@ -17,6 +17,10 @@ sub is_spam {
|
|||
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 3 if ($what =~ m|https?://|); # no links in the desc, maybe relax later
|
||||
return 0; # we thought it wasn't spam
|
||||
|
|
BIN
pastes.db
BIN
pastes.db
Binary file not shown.
Loading…
Add table
Reference in a new issue