Changeset 17172

Timestamp:

Mar 28, 2008, 11:38:41 AM (18 years ago)

Author:

Paul Price

Message:

Adding verbose flag.

File:

• trunk/ippScripts/scripts/ipp_serial_detrend.pl (modified) (10 diffs)

trunk/ippScripts/scripts/ipp_serial_detrend.pl

@@ -13 +13 @@
 
 my ($dbname,                    # Database name to use
-    $workdir_global             # Global working directory
+    $workdir_global,            # Global working directory
+    $verbose,                   # Produce verbose output?
     );
 GetOptions(
            'dbname=s'  => \$dbname,
            'workdir=s' => \$workdir_global,
+           'verbose'   => \$verbose,
 ) or pod2usage( 2 );
 
@@ -80 +82 @@
                 my $command = "$detrend_process_imfile --det_id $det_id --exp_tag $exp_tag --exp_id $exp_id --class_id $class_id --det_type $det_type --input_uri $uri --camera $camera --dbname $dbname --outroot $outroot";
                 $command .= " --reduction $reduction" if defined $reduction;
+                $command .= " --verbose" if defined $verbose;
                 my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
                     run( command => $command, verbose => 1 );
@@ -115 +118 @@
 
         my $command = "$detrend_process_exp --det_id $det_id --det_type $det_type --exp_tag $exp_tag --exp_id $exp_id --camera $camera --dbname $dbname --outroot $outroot";
+        $command .= " --verbose" if defined $verbose;
         my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
             run( command => $command, verbose => 1 );
@@ -148 +152 @@
         my $command = "$detrend_stack --det_id $det_id --iteration $iteration --class_id $class_id --det_type $det_type --camera $camera --dbname $dbname --outroot $outroot";
         $command .= " --reduction $reduction" if defined $reduction;
+        $command .= " --verbose" if defined $verbose;
         my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
             run( command => $command, verbose => 1 );
@@ -177 +182 @@
 
         my $command = "$detrend_norm_calc --det_id $det_id --iteration $iteration --det_type $det_type --dbname $dbname --outroot $outroot";
+        $command .= " --verbose" if defined $verbose;
         my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
             run( command => $command, verbose => 1 );
@@ -209 +215 @@
 
         my $command = "$detrend_norm_apply --det_id $det_id --iteration $iteration --class_id $class_id --value $value --input_uri $uri --camera $camera --det_type $det_type --dbname $dbname --outroot $outroot";
+        $command .= " --verbose" if defined $verbose;
         my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
             run( command => $command, verbose => 1 );
@@ -241 +248 @@
 
         my $command = "$detrend_norm_exp --det_id $det_id --iteration $iteration --camera $camera --det_type $det_type --dbname $dbname --outroot $outroot";
+        $command .= " --verbose" if defined $verbose;
         my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
             run( command => $command, verbose => 1 );
@@ -289 +297 @@
                 $command .= " --reduction $reduction" if defined $reduction;
                 $command .= " --detrend $detrend" if defined $detrend;
+                $command .= " --verbose" if defined $verbose;
 
                 my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
@@ -326 +335 @@
 
         my $command = "$detrend_reject_imfile --det_id $det_id --iteration $iteration --exp_tag $exp_tag --exp_id $exp_id --det_type $det_type --camera $camera --dbname $dbname --outroot $outroot";
+        $command .= " --verbose" if defined $verbose;
         my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
             run( command => $command, verbose => 1 );
@@ -355 +365 @@
 
         my $command = "$detrend_reject_exp --det_id $det_id --iteration $iteration --det_type $det_type --camera $camera --dbname $dbname --outroot $outroot";
+        $command .= " --verbose" if defined $verbose;
         my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
             run( command => $command, verbose => 1 );