diff options
author | Peter Palfrader <peter@palfrader.org> | 2005-12-02 11:55:16 +0000 |
---|---|---|
committer | root <root@bc3d92e2-beff-0310-a7cd-cc87d7ac0ede> | 2005-12-02 11:55:16 +0000 |
commit | 2f3645abf989184fa5bb8fa1cb3804d3acc05f3e (patch) | |
tree | 2ec64058189d53322471dcf6d7094d44e514b696 /expire-baks | |
parent | a0df76ea5e7b68cce2e2b0a9862953ebc28953ae (diff) |
Remove old MD5- links
git-svn-id: svn+ssh://asteria.noreply.org/svn/weaselutils/trunk@37 bc3d92e2-beff-0310-a7cd-cc87d7ac0ede
Diffstat (limited to 'expire-baks')
-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"), |