From 4f30ae10b51624d1959aa2903b9192382fc1c834 Mon Sep 17 00:00:00 2001
From: Gerhard Gonter <ggonter@gmail.com>
Date: Mon, 11 Nov 2013 03:55:58 +0100
Subject: [PATCH] add option to get a new sequence number by hand
---
textarchive/vlib001.pl | 8 ++++++--
1 file changed, 6 insertions(+), 2 deletions(-)
diff --git a/textarchive/vlib001.pl b/textarchive/vlib001.pl
index 9879239..514a107 100755
--- a/textarchive/vlib001.pl
+++ b/textarchive/vlib001.pl
@@ -58,8 +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 eq '--maint') { $op_mode= 'maint'; }
- elsif ($arg =~ /^--(refresh|verify|lookup|edit)$/) { $op_mode= $1; }
+ elsif ($arg =~ /^--(refresh|verify|lookup|edit|maint|next-seq)$/) { $op_mode= $1; }
}
elsif ($arg =~ /^-/)
{
@@ -140,6 +139,11 @@ For MongoDB backend: synchronize information about stores with maint collection
=cut
}
+elsif ($op_mode eq 'next-seq')
+{
+ my $x= $objreg->next_seq ();
+ print "x: ", Dumper ($x);
+}
# print "objreg: (after refresh)", Dumper ($objreg);
--
GitLab