From 2f3645abf989184fa5bb8fa1cb3804d3acc05f3e Mon Sep 17 00:00:00 2001
From: Peter Palfrader <peter@palfrader.org>
Date: Fri, 2 Dec 2005 11:55:16 +0000
Subject: Remove old MD5- links

git-svn-id: svn+ssh://asteria.noreply.org/svn/weaselutils/trunk@37 bc3d92e2-beff-0310-a7cd-cc87d7ac0ede
---
 expire-baks | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

(limited to 'expire-baks')

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"),
-- 
cgit v1.2.3