Mail::SpamAssassin::PerMsgStatus - per-message status (spam or not-spam)
my $spamtest = new Mail::SpamAssassin ({ 'rules_filename' => '/etc/spamassassin.rules', 'userprefs_filename' => $ENV{HOME}.'/.spamassassin.cf' }); my $mail = Mail::Audit->new();
my $status = $spamtest->check ($mail); if ($status->is_spam()) { $status->rewrite_mail (); $mail->accept("caught_spam"); } ...
The Mail::SpamAssassin check()
method returns an object of this class. This object encapsulates all the
per-message state.
After a mail message has been checked, this method can be called. It will return 1 for mail determined likely to be spam, 0 if it does not seem spam-like.
Deliver a ``spam report'' on the checked mail message. This contains details of how many spam detection rules it triggered.
The report is returned as a multi-line string, with the lines separated by
\n
characters.
Rewrite the mail message. This will add headers, and possibly body text, to reflect it's spam or not-spam status.
The modifications made are as follows:
The string *****SPAM*****
is prepended to the subject.
A string, Yes, hits=nn required=nn
is set in this header to reflect the filter status.
Set to YES
.
Set to text/plain
, in order to defang HTML mail or other active content that could ``call
back'' to the spammer.
The SpamAssassin report is added to top of the mail message body.
A string, No, hits=nn required=nn
is set in this header to reflect the filter status.
If this mail message has a high enough hit score, report it to
spam-tracking services straight away, without waiting for user
confirmation. See the documentation for spamassassin's -r
switch for details on what spam-tracking services are used.
Mail::SpamAssassin
spamassassin