X-Git-Url: http://git.jankratochvil.net/?p=PerlMail.git;a=blobdiff_plain;f=My-Audit.pm;h=4bcb2edc4815196f46d3c8ca92febe017fdcfc0a;hp=1889869ae54e2f970713345186f5f5deb6d540e6;hb=7161a361d1db1f9779809d8160de34f87ec80c7a;hpb=801d7896065744eb6369a0fa972badc03a1ccdbc diff --git a/My-Audit.pm b/My-Audit.pm index 1889869..4bcb2ed 100644 --- a/My-Audit.pm +++ b/My-Audit.pm @@ -39,18 +39,6 @@ sub audit || headerhas "From",'' ); - # spam detection - return if did sub { - local $store_profile="silent"; - local $_; - 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'; - }; - # spam honeypots return if did sub { local $_; @@ -60,6 +48,9 @@ sub audit store "=spamo" if headeris "From",''; store "=spamo" if headeris "From",''; store "=spamo" if headeris "From",''; + store "=spamo" if headeris "From",''; + store "=spamo" if headeris "From",''; + store "=spamo" if headeris "From",''; { # weak detection: files with text/html w/o text/plain are usually a spam my @types_linear=map({ mime_type($_); } parts_linear()); @@ -68,18 +59,36 @@ sub audit store "=spamo-big5" if ($_=mimehead(body_first())->mime_attr("Content-Type.charset")) && /^big5/i; }; + # spam detection + 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 + # I don't send viruses but viruses propagate mails of mine + store "=spam-av" if headeris "X-Mailer",'ravmd/8.3.2'; + }; + # special delivery store "=err","bell" and return if headerhas \&Received_for,''; # ppl-wished foreign remapping, Reply-To is left untouched! header_remap("From",{ - 'kerere@post.cz' =>'kamzik@k332.feld.cvut.cz', - 'profes@mbox.vol.cz' =>'kratochvilova@egp.cz', - 'jkrouzek@mbox.vol.cz' =>'krouzek@mbox.fsv.cuni.cz', - 'jakub.gorner@lidovky.cz' =>'tonda@disnet.cz', - 'jan.kolar@videoprogress.cz'=>'jenda.kolar@volny.cz', - 'daniel.rulicek@cponline.cz'=>'daniel.rulicek@cpress.cz', - 'pavel@suse.cz' =>'pavel@ucw.cz', + 'kerere@post.cz' =>'kamzik@k332.feld.cvut.cz', + 'profes@mbox.vol.cz' =>'kratochvilova@egp.cz', + 'jkrouzek@mbox.vol.cz' =>'krouzek@mbox.fsv.cuni.cz', + 'jakub.gorner@lidovky.cz' =>'tonda@disnet.cz', + 'jan.kolar@videoprogress.cz' =>'jenda.kolar@volny.cz', + 'daniel.rulicek@cponline.cz' =>'daniel.rulicek@cpress.cz', + 'pavel@suse.cz' =>'pavel@ucw.cz', + }); # My obsolete e-mail addresses @@ -87,7 +96,7 @@ sub audit # nasty public lists with $store_ignore { - local $store_profile="bell"; + local $store_profile="log"; local $store_ignore; $store_ignore="smsmail" if 1==$Audit->body() && length(join "",$Audit->body())<180; # SMS mail $store_ignore="sms OS" if $Audit->subject()=~/^Email pro: /; # "^Email pro: gsm@sh\.cvut\.cz$"; @@ -109,23 +118,25 @@ sub audit # lists store "=mozillabug","log" if headeris "From" ,''; - store "=9kc","bell" if headeris "List-Post",''; - store "=9kcd","bell" if headeris "List-Post",''; + store "=9kc","log" if headeris "List-Post",''; + store "=9kcd","log" if headeris "List-Post",''; store "=9ku","log" if headeris "List-Id" ,'<9000.listman.net>'; store "=9kd","log" if headeris "Sender" ,''; store "=spong","log" if headeris "List-Id" ,''; - store "=gtkd","log" if headeris "List-Id" ,''; + store "=gtkd","silent" if headeris "List-Id" ,''; + store "=gnomevfs","log" if headeris "List-Id" ,''; store "=mffstatnice","bell" if headeris "List-Post",''; store "=hw","log" if headeris "List-Post",''; store "=gnokii","log" if headeris "List-Id" ,''; store "=winelic","log" if headeris "List-Id" ,''; - store "=wined","log" if headeris "List-Id" ,''; + store "=wined","silent" if headeris "List-Id" ,''; store "=winepat","silent" if headeris "List-Id" ,''; store "=winecvs","silent" if headeris "List-Id" ,''; store "=wineann","log" if headeris "List-Id" ,''; store "=ros","log" if headeris "List-Post",''; store "=roskernel","log" if headeris "List-Post",''; store "=roscvs","silent" if headeris "List-Post",''; + store "=rosbug","log" if headeris "Reply-To" ,''; store "=fsd","log" if headeris "X-Mailing-List",''; store "=surprise","sms" if headeris "List-Post",''; store "=surprisesuse","sms" if headeris "Sender" ,''; @@ -146,6 +157,8 @@ sub audit store "=sourceforge","bell" if headeris "From" ,''; store "=gsmperlcvs","silent" if headeris("From" ,'') && $Audit->subject()=~/^'.*' has been updated!$/; + store "=libtoold","log" if headeris "List-Id" ,''; + store "=libtoolpat","log" if headeris "List-Id" ,''; # own webs store "=energie","bell" if headeris "From" ,qr/^EnergieWeb/; @@ -168,12 +181,12 @@ my($obj)=@_; my %aliases=muttrc_aliases(); if (my $alias=$aliases{lc $address}) { local $_=$alias; - s/\.cz$//i; + s/\b(Bus)siness$/$1/i; + s/\.ident$//i; return $_; } local $_=$address; - s/\b(Bus)siness$/$1/i; - s/\.ident$//i; + s/\.cz$//i; return $_; }