#!/usr/bin/perl
#
# A cutsom filter to process my email
use Mail::Audit;

open LOG, ">>/home/kvale/.audit_log";
print LOG localtime() . ": ";

my $item = Mail::Audit->new( nomime => 1 );
my $subject = $item->subject();

if ($item->subject =~ /\[SPAM\s+\?\]/i) {
   print LOG "phy spam: $subject\n";
   $item->print_out();
}

use Mail::SpamAssassin;

my $mail = Mail::SpamAssassin->new();
my $status = $mail->check( $item );

if ($status->is_spam()) {
   $item->replace_header( subject => '***SPAM***' . $subject);
   my @report = split /\n/, $status->get_report();
   shift @report until $report[0] =~ /^Content analysis/;
   print LOG "SA Spam: $subject\n", join "\n", @report, "\n";
   $item->print_out();
}

print LOG "OK: $subject\n";
$item->print_out();