#!/usr/bin/perl # PODNAME: git-annex-reviewunused # ABSTRACT: interactively process 'git annex unused' output # # Copyright (C) 2019-2020 Sean Whitton # # This program is free software: you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation, either version 3 of the License, or (at # your option) any later version. # # This program is distributed in the hope that it will be useful, but # WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program. If not, see . =head1 SYNOPSIS B [B<--just-print>] [B<--from=>I] [B<--used-refspec=>I] =head1 DESCRIPTION This program lets you interactively review unused files in a git annex repository, choosing which you'd like to drop. By running git-log(1), it provides more information about unused files than does B. =head1 OPTIONS =over 4 =item B<--just-print> Run non-interactively: gather and print information about unused files, and then exit. =item B<--from=>I Passed on to B. =item B<--used-refspec=>I Passed on to B. =back =head1 EXIT STATUS 0 if there are no unused files left at time of program exit, 1 if there are. =head1 SEE ALSO git-annex-unused(1), git-annex-dropunused(1) =cut use App::git_annex_reviewunused; exit App::git_annex_reviewunused->main;