src/test/perllib/TrackDb.pm 1.4

Index: src/test/perllib/TrackDb.pm
===================================================================
RCS file: /projects/compbio/cvsroot/kent/src/test/perllib/TrackDb.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -b -B -U 4 -r1.3 -r1.4
--- src/test/perllib/TrackDb.pm	5 Nov 2003 22:38:21 -0000	1.3
+++ src/test/perllib/TrackDb.pm	20 Mar 2009 18:42:23 -0000	1.4
@@ -9,8 +9,12 @@
 use strict;
 use vars qw($VERSION @ISA @EXPORT_OK);
 use Exporter;
 
+use FindBin qw($Bin);
+use lib $Bin;
+use HgConf;
+
 use DBI;
 use Carp;
 
 @ISA = qw(Exporter);
@@ -20,10 +24,8 @@
 #
 # Some parameters...
 #
 my $defaultDb = 'hg10';
-my $username  = 'hguser';
-my $password  = 'hguserstuff';
 
 #
 # new: create a TrackDb object.
 # Mandatory argument: <none>
@@ -33,9 +35,18 @@
     my $class = shift;
     my $dbName = shift;
     confess "Too many arguments" if (defined shift);
     $dbName = $defaultDb if (! defined $dbName);
-    my $dbh = DBI->connect("DBI:mysql:$dbName", $username, $password);
+    my $hgConf = HgConf->new($main::opt_hgConf);
+    my $host = $hgConf->lookup('db.host');
+    if ($host && $host ne 'localhost') {
+        $host = ";host=$host";
+    } else {
+        $host = "";
+    }
+    my $username = $hgConf->lookup('db.user');
+    my $password = $hgConf->lookup('db.password');
+    my $dbh = DBI->connect("DBI:mysql:database=$dbName$host", $username, $password);
     confess "Can't connect to mysql database $dbName!" if (! $dbh);
     my $this = {
 	'dbh' => $dbh,
     };