From: short <>
Date: Sat, 19 Feb 2005 16:44:31 +0000 (+0000)
Subject: Better spam logging.
X-Git-Url: http://git.jankratochvil.net/?p=PerlMail.git;a=commitdiff_plain;h=eecdf508cae8375279b4cfe124a18b66a81c568d;hp=e2cd7546e29fc32a82874a0c271dffbaf72c4d94

Better spam logging.
---

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",'<short@ucw.cz>');
+		store "=spam".";ravmd"               if headeris "X-Mailer",'ravmd/8.3.2';
+		store "=spam".';short@ucw.cz+MAILER' if $isFROM_MAILER && headeris("To",'<short@ucw.cz>');
 		};
 	$store_profile=undef();