Changeset 11297 for trunk/ippScripts/scripts/phase0_exp.pl

Timestamp:

Jan 25, 2007, 2:55:43 PM (19 years ago)

Author:

Paul Price

Message:

Adding -dbname to all scripts.

File:

• trunk/ippScripts/scripts/phase0_exp.pl (modified) (4 diffs)

trunk/ippScripts/scripts/phase0_exp.pl

@@ -30 +30 @@
     'caches'        => \$cache,
     'exp_tag|e=s'   => \$exptag,
+    'dbname|d=s'    => \$dbname,# Database name    
     'no-update'     => \$no_update
 ) or pod2usage( 2 );
@@ -96 +97 @@
 {
     my $command = "$p0tool -processedimfile -exp_tag $exptag";
+    $command .= " -dbname $dbname" if defined $dbname;
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
         cache_run(command => $command, verbose => 1);
@@ -199 +201 @@
     }
 
+    push @command, "-dbname", $dbname if defined $dbname;
+
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
         cache_run(command => \@command, verbose => 1);
@@ -243 +247 @@
     my $exit_code = $_[1];
     if ($exp_tag) {
-        system ("$p0tool -addprocessedexp -exp_tag $exp_tag -code $exit_code");
+        my $command = "$p0tool -addprocessedexp -exp_tag $exp_tag -code $exit_code";
+        $command .= " -dbname $dbname" if defined $dbname;
+        system($command);
     }
     exit $exit_code;