Changeset 43048 for branches/eam_branches/ipp-pstamp-20260421/pstamp/scripts/pstamp_job_run.pl

Timestamp:

Jun 1, 2026, 4:53:16 PM (7 weeks ago)

Author:

eugene

Message:

working on modernizing the error_code trapping

File:

• branches/eam_branches/ipp-pstamp-20260421/pstamp/scripts/pstamp_job_run.pl (modified) (2 diffs)

branches/eam_branches/ipp-pstamp-20260421/pstamp/scripts/pstamp_job_run.pl

@@ -15 +15 @@
 use File::Copy;
 use File::Temp qw(tempfile tempdir);
+use Scalar::Util qw(looks_like_number);
+
 use Digest::MD5::File qw( file_md5_hex );
 use PS::IPP::PStamp::RequestFile qw( :standard );
@@ -946 +948 @@
 }
 
+
+# if the program exited normally, the exit value is returned
+# if the program exited with a signal (abort, crash, etc), PS_EXIT_PROG_ERROR (4) is returned
+# if the program failed to run, -PS_EXIT_PROG_ERROR (-4) is returned
+sub parse_error_message {
+    my $success = shift;
+    my $error_msg = shift;
+    my $command = shift;
+
+    if ($success) { return 0; }
+
+    print "raw error_msg: $error_msg\n";
+    print "full command: $command\n";
+
+    if (&looks_like_number($error_msg)) { return (($error_msg >> 8) or ($PS_EXIT_PROG_ERROR)); }
+        
+    # which of these match?
+    my ($error_code) = $error_msg =~ m/exited with value (\d+)/;
+    if (defined $error_code) { return $error_code; }
+    
+    ($error_code) = $error_msg =~ m/died with signal (\d+)/;
+#   if (defined $error_code) { return (128 + $error_code); }
+    if (defined $error_code) { return ($PS_EXIT_PROG_ERROR); }
+    
+    # probably failed to execute:
+    return (-1*$PS_EXIT_PROG_ERROR);
+}