Changeset 18562 for trunk/ippScripts/scripts/detrend_norm_exp.pl

Timestamp:

Jul 15, 2008, 10:33:17 AM (18 years ago)

Author:

eugene

Message:

implement redirect-output everywhere; cleanup logfile names; rename detrend_resid.pl to detrend_resid_imfile.pl; rename detrend_reject_imfile.pl to detrend_resid_exp.pl

File:

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

trunk/ippScripts/scripts/detrend_norm_exp.pl

@@ -26 +26 @@
 use Pod::Usage qw( pod2usage );
 
-my ($det_id, $iter, $det_type, $camera, $outroot, $dbname, $reduction, $verbose, $no_update, $no_op, $save_temps);
+my ($det_id, $iter, $det_type, $camera, $outroot, $dbname, $reduction, $verbose, $no_update, $no_op, $redirect, $save_temps);
 GetOptions(
-           'det_id|d=s'        => \$det_id,
-           'iteration|i=s'     => \$iter,
-           'camera|c=s'        => \$camera,
-           'det_type|t=s'      => \$det_type,
-           'outroot|w=s'       => \$outroot,   # output file base name
-           'dbname|d=s'        => \$dbname, # Database name
-           'reduction|=s'      => \$reduction,
-           'verbose'           => \$verbose,   # Print to stdout
-           'no-update'         => \$no_update,
-           'no-op'             => \$no_op,
-           'save-temps'        => \$save_temps, # Save temporary files?
-           ) or pod2usage( 2 );
+    'det_id|d=s'        => \$det_id,
+    'iteration|i=s'     => \$iter,
+    'camera|c=s'        => \$camera,
+    'det_type|t=s'      => \$det_type,
+    'outroot|w=s'       => \$outroot,   # output file base name
+    'dbname|d=s'        => \$dbname, # Database name
+    'reduction|=s'      => \$reduction,
+    'verbose'           => \$verbose,   # Print to stdout
+    'no-update'         => \$no_update,
+    'no-op'             => \$no_op,
+    'redirect-output'   => \$redirect,
+    'save-temps'        => \$save_temps, # Save temporary files?
+    ) or pod2usage( 2 );
 
 pod2usage( -msg => "Unknown option: @ARGV", -exitval => 2 ) if @ARGV;
@@ -49 +50 @@
     defined $det_type and
     defined $outroot;
+
+my $logfile = $outroot . ".log";
+
+$ipprc->redirect_output($logfile) if $redirect;
 
 $ipprc->define_camera($camera);
@@ -87 +92 @@
 my ($files, $command, $success, $error_code, $full_buf, $stdout_buf, $stderr_buf);
 {
-    $command  = "$dettool -normalizedimfile -det_id $det_id -iteration $iter"; # Command to run
+    $command  = "$dettool -normalizedimfile"; # Command to run
+    $command .= " -det_id $det_id";
+    $command .= " -iteration $iter"; 
     $command .= " -dbname $dbname" if defined $dbname;
     ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
@@ -181 +188 @@
         $command .= " -det_id $det_id";
         $command .= " -iteration $iter";
+        $command .= " -path_base $outroot ";
         $command .= " -code $exit_code";
         $command .= " -dbname $dbname" if defined $dbname;