Changeset 13678

Timestamp:

Jun 6, 2007, 9:36:30 AM (19 years ago)

Author:

eugene

Message:

add user option for quiet / verbose

File:

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

trunk/ippScripts/scripts/detrend_stack.pl

@@ -1 +1 @@
 #!/usr/bin/env perl
 
+use Carp;
 use warnings;
 use strict;
@@ -32 +33 @@
 use Pod::Usage qw( pod2usage );
 
-my ($det_id, $iter, $class_id, $det_type, $camera, $dbname, $workdir, $no_update, $no_op);
+my ($det_id, $iter, $class_id, $det_type, $camera, $dbname, $workdir, $no_update, $no_op, $quiet);
 GetOptions(
     'det_id|d=s'        => \$det_id,
@@ -43 +44 @@
     'no-update'         => \$no_update,
     'no-op'             => \$no_op,
+    'quiet'             => \$quiet,
 ) or pod2usage( 2 );
 
 pod2usage( -msg => "Unknown option: @ARGV", -exitval => 2 ) if @ARGV;
-pod2usage(
-    -msg => "Required options: --det_id --iteration --class_id --det_type --camera",
-    -exitval => 3,
-) unless defined $det_id
+pod2usage( -msg => "Required options: --det_id --iteration --class_id --det_type --camera", -exitval => 3 ) 
+    unless defined $det_id
     and defined $iter
     and defined $class_id
     and defined $det_type
     and defined $camera;
+
+my $verbose = 1;
+if (defined $quiet) { $verbose = 0; }
 
 # Recipes to use as a function of detrend type
@@ -86 +89 @@
     $command .= " -dbname $dbname" if defined $dbname;
     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);
@@ -115 +118 @@
     
     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);
@@ -149 +152 @@
 
     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);
@@ -166 +169 @@
     my $exit_code = shift; # Exit code to add
 
-    warn($msg);
+    carp($msg);
     if ($det_id and $iter and $class_id and not $no_update) {
         my $command = "$dettool -addstacked -det_id $det_id -iteration $iter -class_id $class_id -code $exit_code";