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

Unsure when I finished this script.

Browse source
This commit is contained in:
Bradley M. Kuhn 2011-05-28 15:21:28 -04:00
parent 3d4c268afd
commit 7c8f88ac12
1 changed files with 26 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -21,17 +21,21 @@ use strict;
use warnings; use warnings;
use Mail::Header; use Mail::Header;
use Date::Manip;
#use File::Copy; #use File::Copy;
if (@ARGV < 3 or @ARGV > 4) { if (@ARGV < 3 or @ARGV > 4) {
print STDERR "usage: $0 <MAILDIR_DIRECTORY> <DSPAM_PROBABILITY_MIN> <DSPAM_CONFIDENCE_LEVEL_MIN> [<COUNT_ONLY_DONT_DELETE>]\n"; print STDERR "usage: $0 <MAILDIR_DIRECTORY> <DSPAM_PROBABILITY_MIN> <DSPAM_CONFIDENCE_LEVEL_MIN> <DAYS> [<COUNT_ONLY_DONT_DELETE>]\n";
exit 1; exit 1;
} }
my($MAILDIR_FOLDER, $DSPAM_PROB_MIN, $DSPAM_CONF_MIN, $COUNT_ONLY) = @ARGV; my($MAILDIR_FOLDER, $DSPAM_PROB_MIN, $DSPAM_CONF_MIN, $DAYS, $COUNT_ONLY) = @ARGV;
my($total, $countDeleted) = (0, 0); my($total, $countDeleted) = (0, 0);
my $nDaysAgo = ParseDate("$DAYS days ago");
my @msgDirs = ("$MAILDIR_FOLDER/cur", "$MAILDIR_FOLDER/new"); my @msgDirs = ("$MAILDIR_FOLDER/cur", "$MAILDIR_FOLDER/new");
foreach my $dir (@msgDirs) { foreach my $dir (@msgDirs) {
@ -52,6 +56,26 @@ MAIL: foreach my $dir (@msgDirs) {
my $header = new Mail::Header(\*MAIL_MESSAGE); my $header = new Mail::Header(\*MAIL_MESSAGE);
my $fields = $header->header_hashref; my $fields = $header->header_hashref;
my $mailDate;
foreach my $dt (@{$fields->{"Date"}}) {
if (not defined $mailDate) {
$mailDate = $dt;
} else {
$mailDate = $dt if $dt lt $maileDate;
}
}
if (not defined $mailDate) {
print STDERR "File $file has no Date: header. Skipping.\n";
next MAIL;
}
$parsedDate = ParseDate($mailDate);
unless (defined $parseDate) {
print STDERR "File $file has Unparsable Date header $mailDate";
next MAIL;
}
next MAIL if ($parseDate gt $nDaysAgo);
my %dspamVal; my %dspamVal;
foreach my $val ('Confidence', 'Probability') { foreach my $val ('Confidence', 'Probability') {
foreach my $dv (@{$fields->{"X-Dspam-$val"}}) { foreach my $dv (@{$fields->{"X-Dspam-$val"}}) {