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++; $total++;
if ($dspamVal{Confidence} >= $DSPAM_PROB_MIN and if ($dspamVal{Confidence} >= $DSPAM_CONF_MIN and
$dspamVal{Probability} >= $DSPAM_CONF_MIN) { $dspamVal{Probability} >= $DSPAM_PROB_MIN) {
$countDeleted++; $countDeleted++;
warn "unable to unlink $dir/$file : $!"
unless unlink("$dir/$file") == 1;
} }
close MAIL_MESSAGE; close MAIL_MESSAGE;
} }
close MAILDIR; close MAILDIR;
} }
print "$countDeleted of $total would be deleted\n"; print "$countDeleted of $total were deleted\n";
############################################################################### ###############################################################################
# #