diff options
Diffstat (limited to 'bin/git-annex-dropoldunused')
-rwxr-xr-x | bin/git-annex-dropoldunused | 24 |
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 |