Changeset 16308 for trunk/ippScripts/scripts/register_imfile.pl

Timestamp:

Feb 5, 2008, 11:47:19 AM (19 years ago)

Author:

Paul Price

Message:

Added verbose flags to scripts.

File:

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

trunk/ippScripts/scripts/register_imfile.pl

@@ -37 +37 @@
 use Pod::Usage qw( pod2usage );
 
-my ($cache, $exp_id, $tmp_class_id, $tmp_exp_name, $uri, $dbname, $no_update, $no_op);
+my ($cache, $exp_id, $tmp_class_id, $tmp_exp_name, $uri, $dbname, $berbose, $no_update, $no_op);
 GetOptions(
     'caches'           => \$cache,
@@ -45 +45 @@
     'uri|u=s'          => \$uri,
     'dbname|d=s'       => \$dbname,# Database name
+    'verbose'          => \$verbose,   # Print to stdout
     'no-update'        => \$no_update,
     'no-op'            => \$no_op,
@@ -130 +131 @@
 
 my $now_time = localtime();
-printf STDERR "\nstarting ppStats: %s\n", $now_time;
+printf STDERR "\nstarting ppStats: %s\n", $now_time if $verbose;
 
 # Run ppStats on the input file
@@ -137 +138 @@
     my $command = "$ppStats $uri -recipe PPSTATS $RECIPE -level"; # Command to run ppStats
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
-        cache_run(command => $command, verbose => 1);
+        cache_run(command => $command, verbose => $verbose);
     unless ($success) { 
         $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
@@ -157 +158 @@
 
 $now_time = localtime();
-printf STDERR "\ndone with ppStats: %s\n", $now_time;
+printf STDERR "\ndone with ppStats: %s\n", $now_time if $verbose;
 
 # we require at a minimum: -telescope, -inst, -filelevel, -class_id, -exp_type
@@ -175 +176 @@
 
 $now_time = localtime();
-printf STDERR "\nrunning regtool update: %s\n", $now_time;
+printf STDERR "\nrunning regtool update: %s\n", $now_time if $verbose;
 
 # Push the results into the database
 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);
@@ -191 +192 @@
 
 $now_time = localtime();
-printf STDERR "\ndone with regtool update: %s\n", $now_time;
+printf STDERR "\ndone with regtool update: %s\n", $now_time if $verbose;
 
 sub cache_run