Changeset 18048 for trunk/ippScripts/scripts/detrend_process_imfile.pl

Timestamp:

Jun 10, 2008, 8:46:59 AM (18 years ago)

Author:

bills

Message:

Resolve log file and redirect output in scripts not in tasks

File:

• trunk/ippScripts/scripts/detrend_process_imfile.pl (modified) (4 diffs)

trunk/ippScripts/scripts/detrend_process_imfile.pl

@@ -25 +25 @@
 
 my ( $det_id, $exp_id, $class_id, $det_type, $exp_tag, $input_uri, $camera, $outroot, $dbname, $reduction,
-     $verbose, $no_update, $no_op );
+     $verbose, $no_update, $no_op, $redirect );
 GetOptions(
     'det_id|d=s'        => \$det_id,
@@ -40 +40 @@
     'no-update'         => \$no_update,
     'no-op'             => \$no_op,
+    'redirect-output'   => \$redirect,
 ) or pod2usage( 2 );
 
@@ -56 +57 @@
 # XXX this exits with status = 0 on failure
 $ipprc->define_camera($camera);
+
+my $logDest     = $ipprc->filename("LOG.IMFILE",     $outroot, $class_id)
+      or &my_die("Missing entry from camera config", $exp_id, $exp_id, $class_id, $PS_EXIT_CONFIG_ERROR);
+
+$ipprc->redirect_output($logDest) if $redirect;
 
 # Recipes to use as a function of detrend type
@@ -95 +101 @@
 my $outputStats = $ipprc->filename("PPIMAGE.STATS",  $outroot, $class_id) or &my_die("Missing entry from camera config", $det_id, $exp_id, $class_id, $PS_EXIT_PROG_ERROR);
 my $traceDest   = $ipprc->filename("TRACE.IMFILE",   $outroot, $class_id) or &my_die("Missing entry from camera config", $exp_id, $exp_id, $class_id, $PS_EXIT_CONFIG_ERROR);
-my $logDest     = $ipprc->filename("LOG.IMFILE",     $outroot, $class_id) or &my_die("Missing entry from camera config", $exp_id, $exp_id, $class_id, $PS_EXIT_CONFIG_ERROR);
-
 # Run ppImage
 unless ($no_op) {