Changeset 30005

Timestamp:

Dec 9, 2010, 1:26:56 PM (15 years ago)

Author:

bills

Message:

require dbhost to be supplied

File:

• trunk/tools/makedistdest (modified) (2 diffs)

trunk/tools/makedistdest

@@ -13 +13 @@
 
 my $prod_name;
+my $dbhost;
 
 GetOptions(
            'prod_name=s'     => \$prod_name,
+           'dbhost=s'        => \$dbhost,
 ) or pod2usage( 2 );
 
 pod2usage( -msg => "Unknown option: @ARGV", -exitval => 2 ) if @ARGV;
-pod2usage( -msg => "Required options: --prod_name",
+pod2usage( -msg => "Required options: --prod_name --dbhost",
            -exitval => 3)
-    unless defined $prod_name;  
+    unless defined $prod_name
+    and defined $dbhost;  
 
 my $cmd = "dsprodtool --add $prod_name --type ipp-dist --description $prod_name";
@@ -31 +34 @@
 die "dsprodtool failed: $rc" if $rc;
 
-$cmd = "disttool -dbname gpc1 -definedestination -ds_dbname ippRequestServer -ds_dbhost ippdb02 -name $prod_name";
+$cmd = "disttool -dbname gpc1 -definedestination -ds_dbname ippRequestServer -ds_dbhost $dbhost -name $prod_name";
 
 $rc = system $cmd;