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

A few fixes.

Browse source
This commit is contained in:
Bradley M. Kuhn 2011-08-11 07:58:17 -04:00
parent 7cc54ac7f3
commit c00b12b037
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -61,20 +61,20 @@ MAIL: foreach my $dir (@msgDirs) {
if (not defined $mailDate) { if (not defined $mailDate) {
$mailDate = $dt; $mailDate = $dt;
} else { } else {
$mailDate = $dt if $dt lt $maileDate; $mailDate = $dt if $dt lt $mailDate;
} }
} }
if (not defined $mailDate) { if (not defined $mailDate) {
print STDERR "File $file has no Date: header. Skipping.\n"; print STDERR "File $file has no Date: header. Skipping.\n";
next MAIL; next MAIL;
} }
$parsedDate = ParseDate($mailDate); my $parsedDate = ParseDate($mailDate);
unless (defined $parseDate) { unless (defined $parsedDate) {
print STDERR "File $file has Unparsable Date header $mailDate"; print STDERR "File $file has Unparsable Date header $mailDate";
next MAIL; next MAIL;
} }
next MAIL if ($parseDate gt $nDaysAgo); next MAIL if ($parsedDate gt $nDaysAgo);
my %dspamVal; my %dspamVal;
foreach my $val ('Confidence', 'Probability') { foreach my $val ('Confidence', 'Probability') {