Changeset 16308 for trunk/ippScripts/scripts/detrend_stack.pl

Timestamp:

Feb 5, 2008, 11:47:19 AM (18 years ago)

Author:

Paul Price

Message:

Added verbose flags to scripts.

File:

• trunk/ippScripts/scripts/detrend_stack.pl (modified) (3 diffs)

trunk/ippScripts/scripts/detrend_stack.pl

@@ -33 +33 @@
 use Pod::Usage qw( pod2usage );
 
-my ($det_id, $iter, $class_id, $det_type, $camera, $outroot, $dbname, $reduction, $no_update, $no_op, $quiet);
+my ( $det_id, $iter, $class_id, $det_type, $camera, $outroot, $dbname, $reduction, $verbose, $no_update,
+     $no_op );
 GetOptions(
     'det_id|d=s'        => \$det_id,
@@ -43 +44 @@
     'dbname|d=s'        => \$dbname, # Database name
     'reduction=s'       => \$reduction, # Reduction class for processing
+    'verbose'           => \$verbose,   # Print to stdout
     'no-update'         => \$no_update,
     'no-op'             => \$no_op,
-    'quiet'             => \$quiet,
 ) or pod2usage( 2 );
 
@@ -57 +58 @@
     defined $camera   and
     defined $outroot;
-
-my $verbose = 1;
-if (defined $quiet) { $verbose = 0; }
 
 $ipprc->define_camera($camera);