add git-annex-dropoldunused

1 files changed, 24 insertions, 0 deletions

diff --git a/bin/git-annex-dropoldunused b/bin/git-annex-dropoldunused
new file mode 100755
index 00000000..881ddb49
--- /dev/null
+++ b/bin/git-annex-dropoldunused
@@ -0,0 +1,24 @@
+#!/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