summaryrefslogtreecommitdiff
path: root/expire-baks
diff options
context:
space:
mode:
Diffstat (limited to 'expire-baks')
-rwxr-xr-xexpire-baks5
1 files changed, 5 insertions, 0 deletions
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