From eecdf508cae8375279b4cfe124a18b66a81c568d Mon Sep 17 00:00:00 2001 From: short <> Date: Sat, 19 Feb 2005 16:44:31 +0000 Subject: [PATCH] Better spam logging. --- PerlMail/Config.pm | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/PerlMail/Config.pm b/PerlMail/Config.pm index a8b0cd6..243a0d8 100644 --- a/PerlMail/Config.pm +++ b/PerlMail/Config.pm @@ -302,17 +302,17 @@ sub audit # spam detection return if did sub { # Do not local $store_file as it is our-imported - $store_profile="silent"; + $store_profile="log"; local $_; - store "=spam;virus=$_" if $_=clamscan(); - store "=spam".($_ eq 1 ? "" : ";$_") if $_=spamassassin(); - store "=spam" .";$_","log" if $_=dnsbl '.relays.ordb.org.' ,1; # all hosts - store "=spam" .";$_","log" if $_=dnsbl '.blackholes.mail-abuse.org.' ,1; # all hosts + store "=spam".";virus=$_" if $_=clamscan(); + store "=spam".($_ eq 1 ? "" : ";$_") if $_=spamassassin(); + store "=spam".";$_" if $_=dnsbl '.relays.ordb.org.' ,1; # all hosts + store "=spam".";$_" 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" .";$_","log" if $_=dnsbl '.blackholes.five-ten-sg.com.',0; # just first +# store "=spam".";$_" if $_=dnsbl '.blackholes.five-ten-sg.com.',0; # just first # I don't send viruses but viruses propagate mails of mine - store "=spam" if headeris "X-Mailer",'ravmd/8.3.2'; - store "=spam" if $isFROM_MAILER && headeris("To",''); + store "=spam".";ravmd" if headeris "X-Mailer",'ravmd/8.3.2'; + store "=spam".';short@ucw.cz+MAILER' if $isFROM_MAILER && headeris("To",''); }; $store_profile=undef(); -- 1.8.3.1