#!/usr/bin/env perl
use 5.036;

use Getopt::Long qw(:config pass_through);
use Scalar::Util "looks_like_number";

my $d = 30;
my ($from, $force, @args);
GetOptions "days=i" => \$d, "from=s" => \$from, "force!" => \$force;

my $s = time - $d*24*60*60;
$from and unshift @ARGV, "--from=$from";
$force and unshift @args, "--force";

system qw(git annex unused), @ARGV and die "'git annex unused' failed\n";

open my $fh, "<", ".git/annex/unused" or exit;
for (<$fh>) {
    my ($n, $k) = split;
    my ($t) = `git log -1 --format="%ct" --no-textconv -S"$k"`;
    looks_like_number $t and $t < $s and push @args, $n
}

exec qw(git annex dropunused), @args