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