Changeset 37259 for trunk/pstamp/scripts/request_finish.pl
- Timestamp:
- Aug 13, 2014, 10:47:02 AM (12 years ago)
- File:
-
- 1 edited
-
trunk/pstamp/scripts/request_finish.pl (modified) (3 diffs, 1 prop)
Legend:
- Unmodified
- Added
- Removed
-
trunk/pstamp/scripts/request_finish.pl
- Property svn:mergeinfo set to
r27874 r37259 20 20 21 21 use PS::IPP::Config qw( :standard ); 22 use PS::IPP::PStamp::RequestFile qw( :standard ); 22 23 23 24 my ( $req_id, $req_name, $req_file, $req_type, $outdir, $product, $dbname, $dbserver, $verbose, $save_temps, $redirect_output ); 25 26 my $ipprc = PS::IPP::Config->new(); 24 27 25 28 GetOptions( … … 57 60 if ($redirect_output) { 58 61 my $logDest = "$outdir/reqfinish.$req_id.log"; 59 my $ipprc = PS::IPP::Config->new();60 62 $ipprc->redirect_output($logDest); 63 } 64 65 if (!$dbserver) { 66 $dbserver = metadataLookupStr($ipprc->{_siteConfig}, 'PS_DBSERVER'); 61 67 } 62 68 … … 90 96 } 91 97 } else { 92 # Unknown request type. 93 # Since we don't have a req_name there's not much we can do so just the request's state to stop. 98 # Unknown request type. Stop job with fault invalid request. 94 99 print STDERR "request $req_id has unknown reqType $req_type\n" if $verbose; 95 my $command = "$pstamptool -updatereq -req_id $req_id -state stop -fault $PS_EXIT_DATA_ERROR"; 100 101 my $command = "$pstamptool -updatereq -req_id $req_id -set_state stop -set_fault $PSTAMP_INVALID_REQUEST"; 96 102 $command .= " -dbname $dbname" if $dbname; 97 103 $command .= " -dbserver $dbserver" if $dbserver;
Note:
See TracChangeset
for help on using the changeset viewer.
