Changeset 21410 for trunk/pstamp/scripts/pstamp_job_run.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/pstamp_job_run.pl (modified) (4 diffs)

trunk/pstamp/scripts/pstamp_job_run.pl

@@ -18 +18 @@
 my $dbname;
 my $job_id;
+my $redirect_output;
+my $output_base;
 
 my $host = hostname();
@@ -23 +25 @@
 
 GetOptions(
-    'job_id=s'  =>  \$job_id,
-    'dbname=s'  =>  \$dbname,
-    'verbose'   =>  \$verbose,
+    'job_id=s'      =>  \$job_id,
+    'output_base=s' =>  \$output_base,
+    'redirect-output' => \$redirect_output,
+    'dbname=s'      =>  \$dbname,
+    'verbose'       =>  \$verbose,
 );
 
@@ -35 +39 @@
 
 die "job_id is required" if !$job_id;
+die "output_base is required" if !$output_base;
 
 use IPC::Cmd 0.36 qw( can_run run );
@@ -53 +58 @@
                        caturi
                        );
+my $ipprc = PS::IPP::Config->new(); # IPP Configuration
+
+if ($redirect_output) {
+    my $logDest = "$output_base.log";
+    $ipprc->redirect_output($logDest);
+}
 
 my $missing_tools;