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

Count only option, if you just want to know how many would be deleted.

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

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

@ -23,12 +23,12 @@ use warnings;
use Mail::Header;
#use File::Copy;
if (@ARGV < 3) {
print STDERR "usage: $0 <MAILDIR_DIRECTORY> <DSPAM_PROBABILITY_MIN> <DSPAM_CONFIDENCE_LEVEL_MIN>\n";
if (@ARGV < 3 or @ARGV > 4) {
print STDERR "usage: $0 <MAILDIR_DIRECTORY> <DSPAM_PROBABILITY_MIN> <DSPAM_CONFIDENCE_LEVEL_MIN> [<COUNT_ONLY_DONT_DELETE>]\n";
exit 1;
}
my($MAILDIR_FOLDER, $DSPAM_PROB_MIN, $DSPAM_CONF_MIN) = @ARGV;
my($MAILDIR_FOLDER, $DSPAM_PROB_MIN, $DSPAM_CONF_MIN, $COUNT_ONLY) = @ARGV;
my($total, $countDeleted) = (0, 0);
@ -68,8 +68,10 @@ MAIL: foreach my $dir (@msgDirs) {
if ($dspamVal{Confidence} >= $DSPAM_CONF_MIN and
$dspamVal{Probability} >= $DSPAM_PROB_MIN) {
$countDeleted++;
warn "unable to unlink $dir/$file : $!"
unless unlink("$dir/$file") == 1;
if (defined $COUNT_ONLY and $COUNT_ONLY) {
warn "unable to unlink $dir/$file : $!"
unless unlink("$dir/$file") == 1;
}
}
close MAIL_MESSAGE;
}