Bug 98368 - dbi connect doesn't use db_port option.

Patch by gene.stuckey@tellabs.com, r=bbaetz,justdave

diff --git a/globals.pl b/globals.pl
index 36e1f86f1448e6891bb5c1cdb7162756a25740aa..37ecdafbeae2a8319b70f27130cbc3a2eb1a410c 100644 (file)
--- a/globals.pl
+++ b/globals.pl
@@ -61,6 +61,7 @@ sub globals_pl_sillyness {
 # 
 
 $::db_host = "localhost";
+$::db_port = 3306;
 $::db_name = "bugs";
 $::db_user = "bugs";
 $::db_pass = "";
@@ -105,7 +106,7 @@ sub ConnectToDatabase {
             $name = Param("shadowdb");
             $::dbwritesallowed = 0;
         }
-        $::db = DBI->connect("DBI:mysql:host=$::db_host;database=$name", $::db_user, $::db_pass)
+        $::db = DBI->connect("DBI:mysql:host=$::db_host;database=$name;port=$::db_port", $::db_user, $::db_pass)
             || die "Bugzilla is currently broken. Please try again later. " . 
       "If the problem persists, please contact " . Param("maintainer") .
       ". The error you should quote is: " . $DBI::errstr;