Changeset 41584 for trunk/pstamp/scripts/dquery_job_run.pl

Timestamp:

May 15, 2021, 8:41:21 AM (5 years ago)

Author:

eugene

Message:

import modifications from ippitc

File:

• trunk/pstamp/scripts/dquery_job_run.pl (modified) (2 diffs)

trunk/pstamp/scripts/dquery_job_run.pl

@@ -121 +121 @@
 my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
     run(command => $command, verbose => $verbose);
+## MEH need to adjust error_code to rc
 unless ($success) {
     my $rc = $error_code >> 8;
@@ -388 +389 @@
     $exit_code = $PS_EXIT_PROG_ERROR unless defined $exit_code;
 
-    carp("$message : $QUERY_ID $FPA_ID $MJD_OBS $FILTER $OBSCODE $STAGE");
+    #carp("$message : $QUERY_ID $FPA_ID $MJD_OBS $FILTER $OBSCODE $STAGE");
+    carp("$message : $QUERY_ID $FPA_ID $MJD_OBS $FILTER $OBSCODE $STAGE $exit_code");
+
     exit($exit_code);