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

Failed open() should not be fatal; normalized full path file name.

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

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

@ -42,9 +42,12 @@ MAIL: foreach my $dir (@msgDirs) {
opendir(MAILDIR, $dir) or die "Unable to open directory $dir for reading: $!";
while (my $file = readdir MAILDIR) {
next if -d $file; # skip directories
my $existing_file = "$dir/$file";
open(MAIL_MESSAGE, "<", $existing_file) or
die "unable to open $existing_file for reading: $!";
my $fullFileName = "$dir/$file";
unless (open(MAIL_MESSAGE, "<", $fullFileName)) {
print STDERR "File, $fullFileName, appears to have disappeared during processing ($!).\n (Ignoring that fact, but counts may be off.)\n";
next MAIL;
}
my $header = new Mail::Header(\*MAIL_MESSAGE);
my $fields = $header->header_hashref;
@ -69,8 +72,8 @@ MAIL: foreach my $dir (@msgDirs) {
$dspamVal{Probability} >= $DSPAM_PROB_MIN) {
$countDeleted++;
if (defined $COUNT_ONLY and $COUNT_ONLY) {
warn "unable to unlink $dir/$file : $!"
unless unlink("$dir/$file") == 1;
warn "unable to unlink $fullFileName: $!"
unless unlink("$fullFileName") == 1;
}
}
close MAIL_MESSAGE;