Changeset 27753

Timestamp:

Apr 23, 2010, 11:34:18 AM (16 years ago)

Author:

bills

Message:

dsprodtool needs to accept a dbserver argument

File:

• trunk/DataStoreServer/scripts/dsprodtool (modified) (3 diffs)

trunk/DataStoreServer/scripts/dsprodtool

@@ -38 +38 @@
 my $dsroot;
 my $dbname;
+my $dbserver;
 my $dbpass;
 
@@ -61 +62 @@
         'ps7=s'         =>      \$ps7,
         'dbname=s'      =>      \$dbname,
+        'dbserver=s'    =>      \$dbserver,
         'dsroot=s'      =>      \$dsroot,
 ) or pod2usage(2);
@@ -124 +126 @@
     if ($err);
 
-my $dbserver = metadataLookupStr($siteConfig, 'DS_DBSERVER');
+$dbserver = metadataLookupStr($siteConfig, 'DS_DBSERVER') 
+    unless defined $dbserver;
 $dbname      = metadataLookupStr($siteConfig, 'DS_DBNAME')
     unless defined $dbname;