started "updated" option, not completed

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;