X-Git-Url: https://git.jankratochvil.net/?p=PerlMail.git;a=blobdiff_plain;f=My-Audit.pm;h=afe32888154a9b0668d432a87391bd2f28a1e018;hp=d6e924f3bef6b2630be38e89caf142ba1b4a0a38;hb=e355eb89dfbbac7eed29128de2f6b717a4b7c18f;hpb=206d8f4f6714bda936e97ee55933aa3b15e1dd20 diff --git a/My-Audit.pm b/My-Audit.pm index d6e924f..afe3288 100644 --- a/My-Audit.pm +++ b/My-Audit.pm @@ -61,6 +61,7 @@ sub audit return if did sub { local $store_profile="silent"; local $_; + store "=spam-orbs" .";$_","log" if $_=dnsbl '.relays.ordb.org.' ,1; # all hosts store "=spam-abuse" .";$_","log" if $_=dnsbl '.blackholes.mail-abuse.org.' ,1; # all hosts # we don't check all hosts as they can be "dialup" category, FIXME: check for it store "=spam-five" .";$_","log" if $_=dnsbl '.blackholes.five-ten-sg.com.',0; # just first