diff --git a/dcd.pl b/dcd.pl index fa7eb4c38a5cd1eb3a04a45bba11bff1b167257d..cfbdf99fadccda9a061d29eadb9fad02faa96f4e 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;