From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Wed, 19 Aug 2020 21:27:05 +0000 (+0100)
Subject: expire-8601: new version fixes
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=0a8c89f980b07c7d63efc2a70a2cf355f05b1f18;hp=cf564ca374a91282d1fb727d8407214fe453450f;p=chiark-utils.git

expire-8601: new version fixes

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---

diff --git a/scripts/expire-iso8601.new b/scripts/expire-iso8601.new
index d9e009c..552b258 100755
--- a/scripts/expire-iso8601.new
+++ b/scripts/expire-iso8601.new
@@ -99,7 +99,9 @@ sub precomp () {
   $_->{A} = ($newest_t - $_->{T}) / $unit foreach @files;
   $slop /= $unit;
 
-  print DEBUG Dumper(\@files, \@intervals) if $debug >= 2;
+  push @{$files[0]{U}}, "newest";
+
+  print DEBUG Dumper(scalar(@files), \@files, \@intervals) if $debug >= 2;
 }
 
 sub flag ($) {
@@ -119,6 +121,7 @@ sub flag ($) {
     last if $files[$i]{A} >= $start_age;
     if ($i == $#files) {
       print STDERR "insufficiently old for $spec\n";
+      last;
     }
     $i++;
   }
@@ -151,11 +154,13 @@ sub flag ($) {
 sub implement () {
   foreach (@files) {
     next unless @{$_->{U}};
-    print "keep $_->{F} for @{$_->{U}}\n";
+    printf "keep %s for %s - age %.1f\n",
+      $_->{F}, "@{$_->{U}}", $_->{A};
   }
   foreach (@files) {
     next if @{$_->{U}};
-    print "remove $_->{F}\n";
+    printf "remove %s - age %.1f\n",
+      $_->{F}, $_->{A};
     if ($rm) {
       my $r= system 'rm', ($recurse ? ('-r') : ()), "--", $_->{F};
       die "run rm: $!\n" unless defined($r) && $r >= 0;