Changeset 24831 for trunk/pstamp/scripts/request_finish.pl
- Timestamp:
- Jul 16, 2009, 5:14:07 PM (17 years ago)
- File:
-
- 1 edited
-
trunk/pstamp/scripts/request_finish.pl (modified) (4 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/pstamp/scripts/request_finish.pl
r21410 r24831 21 21 use PS::IPP::Config qw( :standard ); 22 22 23 my ( $req_id, $req_name, $req_file, $req_type, $out_dir, $product, $dbname, $ verbose, $save_temps, $redirect_output );23 my ( $req_id, $req_name, $req_file, $req_type, $out_dir, $product, $dbname, $dbserver, $verbose, $save_temps, $redirect_output ); 24 24 25 25 GetOptions( … … 31 31 'product=s' => \$product, 32 32 'dbname=s' => \$dbname, 33 'dbserver=s' => \$dbserver, 33 34 'verbose' => \$verbose, 34 35 'save-temps' => \$save_temps, … … 80 81 my $command = $finish_cmd . " --req_id $req_id --req_name $req_name --req_file $req_file --product $product --out_dir $out_dir"; 81 82 $command .= " --dbname $dbname" if $dbname; 83 $command .= " --dbserver $dbserver" if $dbserver; 82 84 $command .= " --verbose" if $verbose; 83 85 $command .= " --save-temps" if $save_temps; … … 93 95 my $command = "$pstamptool -updatereq -req_id $req_id -state stop -fault $PS_EXIT_DATA_ERROR"; 94 96 $command .= " -dbname $dbname" if $dbname; 97 $command .= " -dbserver $dbserver" if $dbserver; 95 98 my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) = 96 99 run(command => $command, verbose => $verbose);
Note:
See TracChangeset
for help on using the changeset viewer.
