Changeset 16308 for trunk/ippScripts/scripts/detrend_norm_apply.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_norm_apply.pl (modified) (4 diffs)

trunk/ippScripts/scripts/detrend_norm_apply.pl

@@ -33 +33 @@
 
 # Parse the command-line
-my ($det_id, $iter, $class_id, $value, $input_uri, $camera, $det_type, $outroot, $dbname, $no_update, $no_op);
+my ( $det_id, $iter, $class_id, $value, $input_uri, $camera, $det_type, $outroot, $dbname, $verbose,
+     $no_update, $no_op );
 GetOptions(
     'det_id|d=s'        => \$det_id,     # Detrend ID                           
@@ -44 +45 @@
     '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 any operations               
@@ -117 +119 @@
 
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-        run(command => $command, verbose => 1);
+        run(command => $command, verbose => $verbose);
     unless ($success) {
         $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
@@ -160 +162 @@
 unless ($no_update) {
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-        run(command => $command, verbose => 1);
+        run(command => $command, verbose => $verbose);
     unless ($success) {
         $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);