Changeset 28928

Timestamp:

Aug 17, 2010, 10:29:06 AM (16 years ago)

Author:

bills

Message:

from trunk. set job state to gone if inputs do not exist

File:

• tags/ipp-20100701/pstamp/scripts/pstamp_job_run.pl (modified) (3 diffs, 1 prop)

tags/ipp-20100701/pstamp/scripts/pstamp_job_run.pl

@@ -359 +359 @@
     foreach my $f (@_) {
         if (!$ipprc->file_exists($f)) {
-            my_die( "file $f does not exist:", $job_id, $PS_EXIT_SYS_ERROR);
+            my_die( "file $f does not exist:", $job_id, $PSTAMP_GONE, 'stop');
         }
     }
@@ -369 +369 @@
     my $job_id = shift;         # job identifier
     my $exit_code = shift;      # Exit code to add
+    my $job_state = shift;      # new pstampJob.state
 
     $exit_code = $PS_EXIT_PROG_ERROR unless $exit_code;
+    $job_state = 'run' unless $job_state;
 
     carp($msg);
@@ -378 +380 @@
         $command .= " -set_fault $exit_code";
         # XXX: fix pstamptool to not require -state when -fault with nonzero value is provided
-        $command .= " -set_state run";
+        $command .= " -set_state $job_state";
         $command .= " -dbname $dbname" if defined $dbname;
         $command .= " -dbserver $dbserver" if defined $dbserver;