Changeset 28927
- Timestamp:
- Aug 17, 2010, 10:27:54 AM (16 years ago)
- File:
-
- 1 edited
-
trunk/pstamp/scripts/pstamp_job_run.pl (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/pstamp/scripts/pstamp_job_run.pl
r28880 r28927 359 359 foreach my $f (@_) { 360 360 if (!$ipprc->file_exists($f)) { 361 my_die( "file $f does not exist:", $job_id, $PS _EXIT_SYS_ERROR);361 my_die( "file $f does not exist:", $job_id, $PSTAMP_GONE, 'stop'); 362 362 } 363 363 } … … 369 369 my $job_id = shift; # job identifier 370 370 my $exit_code = shift; # Exit code to add 371 my $job_state = shift; # new pstampJob.state 371 372 372 373 $exit_code = $PS_EXIT_PROG_ERROR unless $exit_code; 374 $job_state = 'run' unless $job_state; 373 375 374 376 carp($msg); … … 378 380 $command .= " -set_fault $exit_code"; 379 381 # XXX: fix pstamptool to not require -state when -fault with nonzero value is provided 380 $command .= " -set_state run";382 $command .= " -set_state $job_state"; 381 383 $command .= " -dbname $dbname" if defined $dbname; 382 384 $command .= " -dbserver $dbserver" if defined $dbserver;
Note:
See TracChangeset
for help on using the changeset viewer.
