package Mail::SpamAssassin::Plugin::Bayes;
use Mail::SpamAssassin::Plugin;
use strict;
use warnings;
use bytes;
use vars qw(@ISA);
@ISA = qw(Mail::SpamAssassin::Plugin);
sub new {
my $class = shift;
my $mailsaobject = shift;
$class = ref($class) || $class;
my $self = $class->SUPER::new($mailsaobject);
bless ($self, $class);
$self->register_eval_rule("check_bayes");
return $self;
}
sub check_bayes {
my ($self, $pms, $fulltext, $min, $max) = @_;
return 0 if (!$pms->{conf}->{use_bayes} || !$pms->{conf}->{use_bayes_rules});
if (!exists ($pms->{bayes_score})) {
$pms->{bayes_score} = $self->{main}->{bayes_scanner}->scan ($pms, $pms->{msg});
}
if (defined $pms->{bayes_score} &&
($min == 0 || $pms->{bayes_score} > $min) &&
($max eq "undef" || $pms->{bayes_score} <= $max))
{
if ($pms->{conf}->{detailed_bayes_score}) {
$pms->test_log(sprintf ("score: %3.4f, hits: %s",
$pms->{bayes_score},
$pms->{bayes_hits}));
}
else {
$pms->test_log(sprintf ("score: %3.4f", $pms->{bayes_score}));
}
return 1;
}
return 0;
}
1;