From 4f7b405087a12aff3b1aca6de6d90fbbca9e4b6d Mon Sep 17 00:00:00 2001
From: Peter Palfrader <peter@palfrader.org>
Date: Tue, 21 Aug 2007 12:42:17 +0000
Subject: Fix the case where backups are older than the longest keep time

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

(limited to 'expire-baks')

diff --git a/expire-baks b/expire-baks
index e130f35..ee92d81 100755
--- a/expire-baks
+++ b/expire-baks
@@ -172,6 +172,11 @@ sub doexpire($$$) {
 
 			my $howoften = $rules->{$keep[0]};
 
+			if ($age > $keep[0]) {
+				push @expire, $timestamp;
+				print "File at $timestamp (".(scalar localtime $timestamp).") is way too old ".
+				      "($age seconds, when we keep only $keep[0])\n" if $VERBOSE;
+			}
 			if (defined $last &&
 			    ($timestamp - $last < $howoften - $SKEW)) {	# if the difference between the 
 				push @expire, $timestamp;		# last we kept and this one is too
-- 
cgit v1.2.3