Changeset 18048 for trunk/ippScripts/scripts/detrend_correct_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_correct_imfile.pl (modified) (3 diffs)

trunk/ippScripts/scripts/detrend_correct_imfile.pl

@@ -25 +25 @@
 
 my ( $det_id, $exp_id, $class_id, $det_type, $exp_tag, $input_uri, $camera, $dbname, $workdir, $reduction,
-     $verbose, $no_update, $no_op );
+     $verbose, $no_update, $no_op, $outroot, $redirect, $corr_id, $corr_type, $corr_uri );
 GetOptions(
     'det_id|d=s'        => \$det_id,
@@ -41 +41 @@
     'no-update'         => \$no_update,
     'no-op'             => \$no_op,
+    'outroot'           => \$outroot,
+    'redirect-output'   => \$redirect,
 ) or pod2usage( 2 );
 
@@ -56 +58 @@
 # XXX this exits with status = 0 on failure
 $ipprc->define_camera($camera);
+
+if ($redirect) {
+    die "must suplly --outroot with --redirect-output" if !defined ($outroot);
+    my $logDest     = $ipprc->filename("LOG.IMFILE", $outroot, $class_id)
+       or &my_die("Missing entry from camera config", $det_id, $exp_id, $class_id, $PS_EXIT_CONFIG_ERROR);
+    $ipprc->redirect_output($logDest);
+}
 
 # Recipes to use as a function of detrend type