summaryrefslogtreecommitdiff
path: root/expire-baks
diff options
context:
space:
mode:
authorPeter Palfrader <peter@palfrader.org>2005-12-02 11:55:16 +0000
committerroot <root@bc3d92e2-beff-0310-a7cd-cc87d7ac0ede>2005-12-02 11:55:16 +0000
commit2f3645abf989184fa5bb8fa1cb3804d3acc05f3e (patch)
tree2ec64058189d53322471dcf6d7094d44e514b696 /expire-baks
parenta0df76ea5e7b68cce2e2b0a9862953ebc28953ae (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-xexpire-baks10
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"),