From 815d559db331524d589531a8add62fec0f359ea2 Mon Sep 17 00:00:00 2001 From: short <> Date: Fri, 21 Feb 2003 23:27:06 +0000 Subject: [PATCH] Prevent some multi-folder storing of common spam --- My-Audit.pm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/My-Audit.pm b/My-Audit.pm index 8bb5d6c..d3e4013 100644 --- a/My-Audit.pm +++ b/My-Audit.pm @@ -63,11 +63,15 @@ sub audit return if did sub { local $store_profile="silent"; local $_; + store "=spam-razor".($_ eq 1 ? "" : ";$_") if $_=razor2(); + }; + 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 - store "=spam-razor".($_ eq 1 ? "" : ";$_") if $_=razor2(); # I don't send viruses but viruses propagate mails of mine store "=spam-av" if headeris "X-Mailer",'ravmd/8.3.2'; }; -- 1.8.3.1