bkuhn/small-hacks
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fixed Confidence comparison and added actual unlink.

Browse source
This commit is contained in:
Bradley M. Kuhn 2010-11-21 09:18:04 -05:00
parent a31c482e2b
commit 7f8e60a7ee
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
remove-spam-high-confidence-maildir.plx
View file

@ -65,16 +65,18 @@ MAIL: foreach my $dir (@msgDirs) {
}
$total++;
if ($dspamVal{Confidence} >= $DSPAM_PROB_MIN and
$dspamVal{Probability} >= $DSPAM_CONF_MIN) {
if ($dspamVal{Confidence} >= $DSPAM_CONF_MIN and
$dspamVal{Probability} >= $DSPAM_PROB_MIN) {
$countDeleted++;
warn "unable to unlink $dir/$file : $!"
unless unlink("$dir/$file") == 1;
}
close MAIL_MESSAGE;
}
close MAILDIR;
}
print "$countDeleted of $total would be deleted\n";
print "$countDeleted of $total were deleted\n";
###############################################################################
#