diff options
-rwxr-xr-x | expire-baks | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/expire-baks b/expire-baks index c015a38..e130f35 100755 --- a/expire-baks +++ b/expire-baks @@ -119,7 +119,15 @@ sub getfiles($) { my %files; for my $file (@files) { - next if $file =~ /^MD5-/; + if ($file =~ /^MD5-/) { + my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size, + $atime,$mtime,$ctime,$blksize,$blocks) = stat($dir.'/'.$file) or + warn("Cannot stat '$dir/$file': $!\n"), next; + if ($nlink == 1) { + unlink($dir.'/'.$file) or warn("Cannot unlink '$dir/$file': $!\n"); + }; + next; + }; my ($date, $time, $facility) = $file =~ /^(\d{8})-(\d{6})-(.*)$/; (defined $date && defined $time && defined $facility) or warn ("Cannot parse '$file'.\n"), |