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

trunk/ippScripts/scripts/chip_imfile.pl

@@ -33 +33 @@
 
 # Parse the command-line arguments
-my ($exp_id, $exp_tag, $chip_id, $class_id, $uri, $camera, $outroot, $dbname, $reduction, $no_update, $no_op);
+my ( $exp_id, $exp_tag, $chip_id, $class_id, $uri, $camera, $outroot, $dbname, $reduction, $verbose,
+     $no_update, $no_op );
 GetOptions(
-           'exp_id=s'      => \$exp_id,    # Exposure identifier                       
-           'exp_tag=s'     => \$exp_tag,   # Exposure identifier                       
-           'chip_id=s'     => \$chip_id,   # Chiptool identifier                       
-           'class_id=s'    => \$class_id,  # Class identifier                  
-           'uri|u=s'       => \$uri,       # Input FITS file                   
-           'camera|c=s'    => \$camera,    # Camera                            
+           'exp_id=s'      => \$exp_id,    # Exposure identifier
+           'exp_tag=s'     => \$exp_tag,   # Exposure identifier
+           'chip_id=s'     => \$chip_id,   # Chiptool identifier
+           'class_id=s'    => \$class_id,  # Class identifier
+           'uri|u=s'       => \$uri,       # Input FITS file
+           'camera|c=s'    => \$camera,    # Camera
            'outroot|w=s'   => \$outroot,   # output file base name
            'dbname|d=s'    => \$dbname,    # Database name
-           'reduction=s'   => \$reduction, # Reduction class                   
-           'no-update'     => \$no_update, # Don't update the database?        
-           'no-op'         => \$no_op,     # Don't do any operations?             
+           'reduction=s'   => \$reduction, # Reduction class
+           'verbose'       => \$verbose,   # Print to stdout
+           'no-update'     => \$no_update, # Don't update the database?
+           'no-op'         => \$no_op,     # Don't do any operations?
            ) or pod2usage( 2 );
 
@@ -70 +72 @@
 # values to extract from output metadata and the stats to calculate
 # XXX commented-out entries are not yet defined in the output files
-my $STATS = 
-   [   
+my $STATS =
+   [
        #          PPSTATS KEYWORD         STATISTIC          CHIPTOOL FLAG
        { name => "ROBUST_MEDIAN",  type => "mean",  flag => "-bg",             dtype => "float" },
@@ -103 +105 @@
 my $chiptool = can_run('chiptool') or (warn "Can't find chiptool" and $missing_tools = 1);
 my $ppImage = can_run('ppImage') or (warn "Can't find ppImage" and $missing_tools = 1);
-if ($missing_tools) { 
+if ($missing_tools) {
     warn("Can't find required tools.");
-    exit($PS_EXIT_CONFIG_ERROR); 
+    exit($PS_EXIT_CONFIG_ERROR);
 }
 
@@ -140 +142 @@
 
     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);
@@ -185 +187 @@
 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);