From da660076f444a04d286f09930876199ace60ad4d Mon Sep 17 00:00:00 2001 From: Gerhard Gonter <ggonter@gmail.com> Date: Tue, 3 Sep 2013 14:27:07 +0200 Subject: [PATCH] added lookup mode --- textarchive/vlib001.pl | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/textarchive/vlib001.pl b/textarchive/vlib001.pl index 5f121ff..19e818f 100755 --- a/textarchive/vlib001.pl +++ b/textarchive/vlib001.pl @@ -47,7 +47,7 @@ while (my $arg= shift (@ARGV)) if ($arg eq '--project') { $project= shift (@ARGV); } elsif ($arg eq '--store') { $store= shift (@ARGV); } elsif ($arg eq '--fileinfo') { $refresh_fileinfo= 1; } - elsif ($arg =~ /^--(refresh|verify)$/) { $op_mode= $1; } + elsif ($arg =~ /^--(refresh|verify|lookup)$/) { $op_mode= $1; } } elsif ($arg =~ /^-/) { @@ -97,6 +97,14 @@ elsif ($op_mode eq 'verify') { $objreg->verify_toc ($store); } +elsif ($op_mode eq 'lookup') +{ + foreach my $key (@PAR) + { + my $res= $objreg->lookup ($key); + print "res: ", Dumper ($res); + } +} # print "objreg: (after refresh)", Dumper ($objreg); -- GitLab