Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
$_->{A} = ($newest_t - $_->{T}) / $unit foreach @files;
$slop /= $unit;
$_->{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;
last if $files[$i]{A} >= $start_age;
if ($i == $#files) {
print STDERR "insufficiently old for $spec\n";
last if $files[$i]{A} >= $start_age;
if ($i == $#files) {
print STDERR "insufficiently old for $spec\n";
sub implement () {
foreach (@files) {
next unless @{$_->{U}};
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}};
}
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;
if ($rm) {
my $r= system 'rm', ($recurse ? ('-r') : ()), "--", $_->{F};
die "run rm: $!\n" unless defined($r) && $r >= 0;