Mail::SpamAssassin::PerMsgLearnerSection: User Contributed Perl Documentation (3)Updated: 2004-08-27 |
Mail::SpamAssassin::PerMsgLearnerSection: User Contributed Perl Documentation (3)Updated: 2004-08-27 |
my $spamtest = new Mail::SpamAssassin ({
'rules_filename' => '/etc/spamassassin.rules',
'userprefs_filename' => $ENV{HOME}.'/.spamassassin/user_prefs'
});
my $mail = $spamtest->parse();
my $status = $spamtest->learn($mail,$id,$isspam,$forget); my $didlearn = $status->did_learn(); $status->finish();