Index: trunk/pstamp/scripts/request_finish.pl
===================================================================
--- trunk/pstamp/scripts/request_finish.pl	(revision 18733)
+++ trunk/pstamp/scripts/request_finish.pl	(revision 18984)
@@ -18,22 +18,12 @@
 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,4 +39,5 @@
 $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,7 +63,8 @@
 }
 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);