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