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

trunk/ippScripts/scripts/register_exp.pl

@@ -34 +34 @@
     );
 
-my ($cache, $exp_id, $exp_tag, $dbname, $no_update, $no_op);
+my ($cache, $exp_id, $exp_tag, $dbname, $verbose, $no_update, $no_op);
 GetOptions(
     'caches'        => \$cache,
@@ -40 +40 @@
     'exp_tag|t=s'   => \$exp_tag,
     'dbname|d=s'    => \$dbname, # Database name    
+    'verbose'       => \$verbose,   # Print to stdout
     'no-update'     => \$no_update,
     'no-op'         => \$no_op,
@@ -126 +127 @@
     $command .= " -dbname $dbname" if defined $dbname;
     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);
@@ -176 +177 @@
 unless ($no_update) {
     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);