Changeset 26866

Timestamp:

Feb 10, 2010, 4:06:15 PM (16 years ago)

Author:

eugene

Message:

use dbport

File:

• branches/eam_branches/20091201/PS-IPP-Config/lib/PS/IPP/Config.pm (modified) (2 diffs)

branches/eam_branches/20091201/PS-IPP-Config/lib/PS/IPP/Config.pm

@@ -352 +352 @@
     my $dbuser = metadataLookupStr($self->{_siteConfig}, "DBUSER");
     my $dbpassword = metadataLookupStr($self->{_siteConfig}, "DBPASSWORD");
+    my $dbport = metadataLookupStr($self->{_siteConfig}, "DBPORT");
     my $admindb = "ippadmin";
 
@@ -360 +361 @@
 
     my $dsn = "DBI:mysql:host=$dbserver;database=$admindb";
+    $dsn .= ";port=$dbport" if $dbport;     # if $dbport eq "0" we use the default
     my $dbh = DBI->connect($dsn, $dbuser, $dbpassword) or die "Cannot connect to database.\n";