Changeset 18984

Timestamp:

Aug 8, 2008, 3:46:22 PM (18 years ago)

Author:

bills

Message:

add request file paramters to results

File:

• trunk/pstamp/scripts/request_finish.pl (modified) (3 diffs)

trunk/pstamp/scripts/request_finish.pl

@@ -18 +18 @@
 use PS::IPP::Metadata::List qw( parse_md_list );
 
-use PS::IPP::Config qw($PS_EXIT_SUCCESS
-                       $PS_EXIT_UNKNOWN_ERROR
-                       $PS_EXIT_SYS_ERROR
-                       $PS_EXIT_CONFIG_ERROR
-                       $PS_EXIT_PROG_ERROR
-                       $PS_EXIT_DATA_ERROR
-                       $PS_EXIT_TIMEOUT_ERROR
-                       metadataLookupStr
-                       metadataLookupBool
-                       caturi
-                       );
+use PS::IPP::Config qw( :standard );
 
-
-my ( $req_id, $req_name, $req_type, $product, $dbname, $verbose, $save_temps );
+my ( $req_id, $req_name, $req_file, $req_type, $product, $dbname, $verbose, $save_temps );
 
 GetOptions(
            'req_id=s'   => \$req_id,
            'req_name=s' => \$req_name,
+           'req_file=s' => \$req_file,
            'req_type=s' => \$req_type,
            'product=s'  => \$product,
@@ -49 +39 @@
 $err .= "--req_id is required\n" if !$req_id;
 $err .= "--req_type is required\n" if !$req_type;
+$err .= "--req_file is required\n" if !$req_file;
 $err .= "--req_name is required\n" if !$req_name;
 $err .= "--product is required\n" if !$product;
@@ -72 +63 @@
 }
 if ($finish_cmd) {
-    my $command = $finish_cmd . " --req_id $req_id --req_name $req_name --product $product";
+    my $command = $finish_cmd . " --req_id $req_id --req_name $req_name --req_file $req_file --product $product";
     $command   .= " --dbname $dbname" if $dbname;
     $command   .= " --verbose" if $verbose;
+    $command   .= " --save-temps" if $save_temps;
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
         run(command => $command, verbose => $verbose);