From 79864974003abc3384492bb77b8249de72ef49c8 Mon Sep 17 00:00:00 2001
From: Gerhard Gonter <ggonter@gmail.com>
Date: Mon, 21 Oct 2013 06:21:42 +0200
Subject: [PATCH] added -edit option and made toc verification a little
robuster
---
textarchive/vlib001.pl | 13 ++++++++++++-
1 file changed, 12 insertions(+), 1 deletion(-)
diff --git a/textarchive/vlib001.pl b/textarchive/vlib001.pl
index bb01c02..79bd0a2 100755
--- a/textarchive/vlib001.pl
+++ b/textarchive/vlib001.pl
@@ -58,7 +58,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|lookup)$/) { $op_mode= $1; }
+ elsif ($arg =~ /^--(refresh|verify|lookup|edit)$/) { $op_mode= $1; }
}
elsif ($arg =~ /^-/)
{
@@ -112,6 +112,13 @@ elsif ($op_mode eq 'verify')
{
$objreg->verify_toc (\&verify_toc_item, \@hdr);
}
+elsif ($op_mode eq 'edit')
+{
+ print "objreg: ", Dumper ($objreg);
+ my $proj_cfg_fnm= $objreg->{'proj_cfg_fnm'};
+ system ("\$EDITOR '$proj_cfg_fnm'");
+ # print "store_cfg: ", Dumper ($store_cfg);
+}
elsif ($op_mode eq 'lookup')
{
foreach my $key (@PAR)
@@ -186,6 +193,9 @@ sub refresh_internal
my $fl= $md5cat->{'FLIST'};
my %key= ();
my $cnt= 0;
+ if (defined ($toc))
+ {
+ # print "toc: ", Dumper ($toc);
printf ("%6d items to be processed\n", scalar @$toc);
foreach my $x (@$toc)
{
@@ -226,6 +236,7 @@ sub refresh_internal
# my %paths= map { my $x= $toc->{$_}; $x->{'found'}= 0; $x->{'path'} => $x } keys %$toc;
# print "paths: ", Dumper (\%paths);
# print "fl: ", Dumper ($fl);
+ }
print __LINE__, " check_new_files\n";
my $new_files= $md5cat->check_new_files ();
--
GitLab