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

Corrected COUNT_ONLY behavior.

Browse source
This commit is contained in:
Bradley M. Kuhn 2010-11-21 19:52:46 -05:00
parent 3308914195
commit 3d4c268afd
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -71,7 +71,7 @@ MAIL: foreach my $dir (@msgDirs) {
if ($dspamVal{Confidence} >= $DSPAM_CONF_MIN and if ($dspamVal{Confidence} >= $DSPAM_CONF_MIN and
$dspamVal{Probability} >= $DSPAM_PROB_MIN) { $dspamVal{Probability} >= $DSPAM_PROB_MIN) {
$countDeleted++; $countDeleted++;
if (defined $COUNT_ONLY and $COUNT_ONLY) { unless (defined $COUNT_ONLY and $COUNT_ONLY) {
warn "unable to unlink $fullFileName: $!" warn "unable to unlink $fullFileName: $!"
unless unlink("$fullFileName") == 1; unless unlink("$fullFileName") == 1;
} }
@ -83,10 +83,10 @@ MAIL: foreach my $dir (@msgDirs) {
my $percent = ($countDeleted / $total) * 100.00; my $percent = ($countDeleted / $total) * 100.00;
print sprintf("%2f", $percent), " ($countDeleted/$total) ", print sprintf("%.2f", $percent), "% ($countDeleted/$total) ",
(defined $COUNT_ONLY and $COUNT_ONLY ? " would be deleted.\n" : (defined $COUNT_ONLY and $COUNT_ONLY ?
sprintf("were deleted.\nThis leaves %d in the folder.\n", sprintf("were deleted.\nThis leaves %d in the folder.\n",
$total - $countDeleted)); $total - $countDeleted) : " would be deleted.\n");
############################################################################### ###############################################################################
# #
# Local variables: # Local variables: