Changeset 24504

Timestamp:

Jun 18, 2009, 5:52:04 PM (17 years ago)

Author:

Paul Price

Message:

Redirect output to log file.

File:

• branches/pap_mops/ippScripts/scripts/publish_file.pl (modified) (3 diffs)

branches/pap_mops/ippScripts/scripts/publish_file.pl

@@ -40 +40 @@
 # Parse the command-line arguments
 my ( $pub_id, $camera, $stage, $stage_id, $format, $product, $workdir );
-my ( $dbname, $verbose, $no_update, $save_temps );
+my ( $dbname, $verbose, $no_update, $save_temps, $redirect );
 
 GetOptions(
@@ -53 +53 @@
     'no-update'         => \$no_update, # Don't update the database?
     'save-temps'        => \$save_temps, # Save temporary files?
+    'redirect-output'   => \$redirect,   # Redirect output to log file?
     ) or pod2usage( 2 );
 
@@ -71 +72 @@
 
 $ipprc->outroot_prepare( $outroot );
+my $logDest = "$outroot.log";
+$ipprc->redirect_output($logDest) or &my_die( "Unable to redirect output", $pub_id, $PS_EXIT_SYS_ERROR ) if $redirect;
 
 my $mdcParser = PS::IPP::Metadata::Config->new;