Changeset 16331 for trunk/ippScripts/scripts/magic_tree.pl

Timestamp:

Feb 5, 2008, 6:04:27 PM (18 years ago)

Author:

Paul Price

Message:

Adding verbosity switch.

File:

• trunk/ippScripts/scripts/magic_tree.pl (modified) (5 diffs)

trunk/ippScripts/scripts/magic_tree.pl

@@ -44 +44 @@
 
 # Parse the command-line arguments
-my ($magic_id, $tess_id, $camera, $ra0, $dec0, $dbname, $workdir, $save_temps, $no_update, $no_op);
+my ($magic_id, $tess_id, $camera, $ra0, $dec0, $dbname, $workdir, $save_temps, $verbose, $no_update, $no_op);
 GetOptions(
            'magic_id=s'    => \$magic_id,   # Magic identifier
@@ -54 +54 @@
            'workdir=s'     => \$workdir,    # Working directory, for output files
            'save-temps'    => \$save_temps, # Save temporary files?
+           'verbose'       => \$verbose,    # Print stuff?
            'no-update'     => \$no_update,  # Don't update the database?
            'no-op'         => \$no_op,      # Don't do any operations?
@@ -88 +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);
@@ -105 +106 @@
 }
 
-generate_skycells($ipprc, $tess_id, \@skycells, $workdir) or
+generate_skycells($ipprc, $tess_id, \@skycells, $workdir, $verbose) or
     &my_die("Unable to generate skycells", $magic_id, $PS_EXIT_PROG_ERROR);
 
@@ -213 +214 @@
     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);