From d08c1604014ac88dc4dbd1851d1ead801ad3c85b Mon Sep 17 00:00:00 2001
From: Gerhard Gonter <ggonter@gmail.com>
Date: Wed, 11 Sep 2013 17:57:23 +0200
Subject: [PATCH] show list of projects if none specified
---
textarchive/vlib001.pl | 8 +++++++-
1 file changed, 7 insertions(+), 1 deletion(-)
diff --git a/textarchive/vlib001.pl b/textarchive/vlib001.pl
index 9385716..8508406 100755
--- a/textarchive/vlib001.pl
+++ b/textarchive/vlib001.pl
@@ -68,7 +68,13 @@ while (my $arg= shift (@ARGV))
print "debug level: $DEBUG\n";
&usage ('environment variable TABASE not set') unless (exists ($ENV{'TABASE'}));
-&usage ('no project specified') unless (defined ($project));
+# &usage ('no project specified') unless (defined ($project));
+unless (defined ($project))
+{
+ print "no project specified; check these:\n";
+ system ("ls -ls \"$ENV{'TABASE'}/projects\"");
+ exit (0);
+}
# &usage ('no store specified') unless (defined ($store));
my $objreg= new TA::ObjReg ('project' => $project, 'store' => $store);
--
GitLab