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

Better output, configured some based on CLI option of $COUNT_ONLY

Browse source
This commit is contained in:
Bradley M. Kuhn 2010-11-21 12:13:02 -05:00
parent 074f2979e8
commit 598ca46506
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -78,8 +78,12 @@ MAIL: foreach my $dir (@msgDirs) {
close MAILDIR;
}
print "$countDeleted of $total were deleted\n";
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));
###############################################################################
#
# Local variables: