diff options
author | Daniel Friesel <derf@finalrewind.org> | 2011-01-07 14:00:34 +0100 |
---|---|---|
committer | Daniel Friesel <derf@finalrewind.org> | 2011-01-07 14:00:34 +0100 |
commit | 7ae2890248388904feb29b6a726b24b5c798ea9f (patch) | |
tree | 806f4a713bd892395503e920bb5371ba3db5215b | |
parent | 440a9d6874f8f6e26c12d9faf8b5bd96a98e8b35 (diff) |
Add hashl list-files
-rwxr-xr-x | bin/hashl | 5 |
1 files changed, 5 insertions, 0 deletions
@@ -356,6 +356,10 @@ sub cmd_list { } } +sub cmd_list_files { + say join("\n", sort keys %{$db->{'files'}}); +} + sub cmd_list_ignored { if (exists $db->{'ignored'}->{'hashes'}) { for my $hash (@{$db->{'ignored'}->{'hashes'}}) { @@ -380,6 +384,7 @@ given ($action) { when ('ignore') { cmd_ignore(@ARGV) } when ('info') { cmd_info(@ARGV) } when ('list') { cmd_list(@ARGV) } + when ('list-files') { cmd_list_files(@ARGV) } when ('list-ignored') { cmd_list_ignored(@ARGV) } when ('update') { cmd_update(@ARGV) } default { usage() } |