From 7ae2890248388904feb29b6a726b24b5c798ea9f Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Fri, 7 Jan 2011 14:00:34 +0100 Subject: Add hashl list-files --- bin/hashl | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/bin/hashl b/bin/hashl index 223a7c1..084b4d2 100755 --- a/bin/hashl +++ b/bin/hashl @@ -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() } -- cgit v1.2.3