Changeset 18562 for trunk/ippScripts/scripts/detrend_norm_calc.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_calc.pl (modified) (3 diffs)

trunk/ippScripts/scripts/detrend_norm_calc.pl

@@ -20 +20 @@
 use PS::IPP::Config 1.01 qw( :standard );
 
+my $ipprc = PS::IPP::Config->new(); # IPP configuration
+
 use Getopt::Long qw( GetOptions :config auto_help auto_version gnu_getopt );
 use Pod::Usage qw( pod2usage );
 
 # Parse command-line arguments
-my ($det_id, $iter, $detType, $outroot, $dbname, $verbose, $no_update, $no_op);
+my ($det_id, $iter, $detType, $outroot, $dbname, $verbose, $no_update, $no_op, $redirect );
 GetOptions(
-        'det_id|d=s'    => \$det_id,    # Detrend id                         
-        'iteration|i=s' => \$iter,      # Iteration                          
-        'det_type|t=s'  => \$detType,   # Detrend type                       
-        'outroot|w=s'   => \$outroot,   # output file base name
-        'dbname|d=s'    => \$dbname,    # Database name                      
-        'verbose'       => \$verbose,   # Print to stdout
-        'no-update'     => \$no_update, # Don't update the database?         
-        'no-op'         => \$no_op,     # Don't do operations                
-        ) or pod2usage( 2 );
+    'det_id|d=s'        => \$det_id,    # Detrend id                         
+    'iteration|i=s'     => \$iter,      # Iteration                          
+    'det_type|t=s'      => \$detType,   # Detrend type                       
+    'outroot|w=s'       => \$outroot,   # output file base name
+    'dbname|d=s'        => \$dbname,    # Database name                      
+    'verbose'           => \$verbose,   # Print to stdout
+    'no-update'         => \$no_update, # Don't update the database?         
+    'no-op'             => \$no_op,     # Don't do operations                
+    'redirect-output'   => \$redirect,
+    ) or pod2usage( 2 );
 
 pod2usage( -msg => "Unknown option: @ARGV", -exitval => 2 ) if @ARGV;
@@ -44 +47 @@
     defined $detType and
     defined $outroot;
+
+my $logfile = $outroot . ".log";
+
+$ipprc->redirect_output($logfile) if $redirect;
 
 use constant STATISTIC => 'bg'; # Background statistic to use from the database
@@ -225 +232 @@
         $command .= " -det_id $det_id";
         $command .= " -iteration $iter";
+        # XXX EAM : we should add this to the db : $command .= " -path_base $outroot";
         $command .= " -code $exit_code";
         $command .= " -dbname $dbname" if defined $dbname;