From 7ce9b081922e8777d35483f8cec81e2b7bb13e1d Mon Sep 17 00:00:00 2001
From: Gerhard Gonter <ggonter@gmail.com>
Date: Sat, 10 Jul 2021 08:47:30 +0200
Subject: [PATCH] started "updated" option, not completed
---
dcd.pl | 9 +++++++++
1 file changed, 9 insertions(+)
diff --git a/dcd.pl b/dcd.pl
index fa7eb4c..cfbdf99 100755
--- a/dcd.pl
+++ b/dcd.pl
@@ -120,6 +120,15 @@ if ($op_code eq 'register')
sleep(3) if (@PARS);
}
}
+elsif ($op_code eq 'update')
+{
+ while (my $identifier= shift (@PARS))
+ {
+ next if ($identifier eq 'identifier'); # TSV header ...
+ # register_url ($cnf, $repo_url); does not work that way!!
+ sleep(3) if (@PARS);
+ }
+}
elsif ($op_code eq 'order')
{
my $order_count= shift (@PARS) || 1;
--
GitLab