Changeset 21410 for trunk/pstamp/scripts/request_finish.pl

Timestamp:

Feb 6, 2009, 5:44:55 PM (17 years ago)

Author:

bills

Message:

Create stamps in workdir area instead of the data store product directory
various changes to improve logging

File:

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

trunk/pstamp/scripts/request_finish.pl

@@ -13 +13 @@
 use File::Temp qw( tempfile );
 use File::Copy;
+use File::Basename qw( dirname );
 
 use PS::IPP::Metadata::Config;
@@ -20 +21 @@
 use PS::IPP::Config qw( :standard );
 
-my ( $req_id, $req_name, $req_file, $req_type, $product, $dbname, $verbose, $save_temps );
+my ( $req_id, $req_name, $req_file, $req_type, $out_dir, $product, $dbname, $verbose, $save_temps, $redirect_output );
 
 GetOptions(
@@ -27 +28 @@
            'req_file=s' => \$req_file,
            'req_type=s' => \$req_type,
+           'out_dir=s'  => \$out_dir,
            'product=s'  => \$product,
            'dbname=s'   => \$dbname,
            'verbose'    => \$verbose,
            'save-temps' => \$save_temps,
+           'redirect-output' => \$redirect_output,
 ) or pod2usage( 2 );
 
@@ -42 +45 @@
 $err .= "--req_name is required\n" if !$req_name;
 $err .= "--product is required\n" if !$product;
+# $err .= "--out_dir is required\n" if !$out_dir;
 
 die "$err" if $err;
+
+
+if (!$out_dir) {
+    $out_dir = dirname($req_file);
+}
+
+if ($redirect_output) {
+    my $logDest = "$out_dir/reqfinish.$req_id.log";
+    my $ipprc = PS::IPP::Config->new();
+    $ipprc->redirect_output($logDest);
+}
 
 my $missing_tools;
@@ -63 +78 @@
 }
 if ($finish_cmd) {
-    my $command = $finish_cmd . " --req_id $req_id --req_name $req_name --req_file $req_file --product $product";
+    my $command = $finish_cmd . " --req_id $req_id --req_name $req_name --req_file $req_file --product $product --out_dir $out_dir";
     $command   .= " --dbname $dbname" if $dbname;
     $command   .= " --verbose" if $verbose;