Changeset 36499

Timestamp:

Feb 9, 2014, 6:02:39 PM (12 years ago)

Author:

watersc1

Message:

path from trunk with slightly better error handling

File:

• tags/ipp-20130712/ippScripts/scripts/register_imfile.pl (modified) (2 diffs, 1 prop)

tags/ipp-20130712/ippScripts/scripts/register_imfile.pl

@@ -330 +330 @@
             unless ($success) {
                 $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
-                warn ("Unable to perform regtool -addprocessedimfile: $error_code");
-                exit($error_code);
+                warn ("Unable to perform regtool -updateprocessedimfile: $error_code");
+#                exit($error_code);
+            &my_die_for_update("Unable to perform updateprocessedimfile",
+                               $exp_id, $class_id, $error_code);
+
             }
         } else {
@@ -522 +525 @@
     carp($msg);
     if (defined $exp_id && defined $class_id and not $no_update) {
+        sleep(5);
         my $command = "$regtool -updateprocessedimfile";
         $command .= " -exp_id $exp_id";