Changeset 11087

Timestamp:

Jan 12, 2007, 4:28:48 PM (19 years ago)

Author:

eugene

Message:

shift exec error code right by 8

Location:

trunk/ippScripts/scripts

Files:

• phase0_exp.pl (modified) (2 diffs)
• phase0_imfile.pl (modified) (2 diffs)

trunk/ippScripts/scripts/phase0_exp.pl

@@ -95 +95 @@
 my $imfiles;
 {
-    my $command = "$p0tool -rawimfile -exp_tag $exptag";
+    my $command = "$p0tool -processedimfile -exp_tag $exptag";
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
         cache_run(command => $command, verbose => 1);
     unless ($success) {
+        $error_code = $error_code >> 8;
         warn ("Unable to perform p0tool on exposure id $exptag: $error_code");
-        &my_die ($exptag, $error_code);
+        exit ($error_code);
     }
 
@@ -199 +200 @@
         cache_run(command => \@command, verbose => 1);
     unless ($success) {
+        $error_code = $error_code >> 8;
         warn ("Unable to run phase0 update for $exptag: $error_code");
         exit($error_code);

trunk/ippScripts/scripts/phase0_imfile.pl

@@ -112 +112 @@
         cache_run(command => $command, verbose => 1);
     unless ($success) { 
+        $error_code = $error_code >> 8;
         warn ("Unable to perform ppStats on exposure id $exp_tag: $error_code");
         &my_die ($exp_tag, $class_id, $error_code);
@@ -185 +186 @@
 
     unless ($success) {
+        $error_code = $error_code >> 8;
         # XXX if we can't run -addprocessedimfile, we can't actually set the
         # error code.