Changeset 30217

Timestamp:

Jan 7, 2011, 12:56:57 PM (15 years ago)

Author:

bills

Message:

from ipp-20101215.
Integrate uncommitted changes made in production branch,
fix arguments to my_die_update
fault chip if application of burntool fails

File:

• trunk/ippScripts/scripts/register_imfile.pl (modified) (4 diffs)

trunk/ippScripts/scripts/register_imfile.pl

@@ -265 +265 @@
         $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
         &my_die_for_update("Unable to perform regtool: $error_code",
-                           $exp_id, $exp_name, $class_id, $PS_EXIT_SYS_ERROR);
+                           $exp_id, $class_id, $PS_EXIT_SYS_ERROR);
     }
 
@@ -279 +279 @@
             my $list = parse_md_list( $mdcParser->parse( join( "\n", @single ) ) );
             &my_die_for_update("Unable to parse output from regtool",
-                               $exp_id, $exp_name, $class_id, $PS_EXIT_SYS_ERROR) unless
+                               $exp_id, $class_id, $PS_EXIT_SYS_ERROR) unless
                                    defined $list;
             push @{ $exposures }, @$list;
@@ -320 +320 @@
             unless ($success) {
                 $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
-                warn ("Unable to perform ipp_apply_burntool_single.pl: $error_code");
-                exit($error_code);
+                &my_die_for_update("Unable to perform ipp_apply_burntool_single.pl: $error_code",
+                               $exp_id, $class_id, $PS_EXIT_SYS_ERROR);
             }
         }
@@ -396 +396 @@
     my $msg = shift; # Warning message on die
     my $exp_id = shift;
-    my $exp_name = shift;
     my $class_id = shift;
-    my $uri = shift;
     my $exit_code = shift;
-
-    # for failed imfiles, we insert UNKNOWN for inst, telescope, class_id
 
     $exit_code = $PS_EXIT_PROG_ERROR unless defined $exit_code;