[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Sat Nov  1 05:35:20 EST 2003
Update of /home/repository/moby/moby-live/Perl/lsid/authority
In directory pub.open-bio.org:/tmp/cvs-serv19174/lsid/authority

Modified Files:
	metadata.pl 
Log Message:
undeclared variables fixed

moby-live/Perl/lsid/authority metadata.pl,1.1,1.2
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/lsid/authority/metadata.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- /home/repository/moby/moby-live/Perl/lsid/authority/metadata.pl	2003/11/01 09:40:58	1.1
+++ /home/repository/moby/moby-live/Perl/lsid/authority/metadata.pl	2003/11/01 10:35:20	1.2
@@ -12,6 +12,7 @@
     $SERVICE_CGI
     $RDF_PREFIX
     $RDF_SUFFIX);
+
 use dbConfigure qw(
 	$service
 	$namespace
@@ -169,8 +170,8 @@
 	my $host = $db->{host};
 	my $dbname = $db->{dbname};
 	my $port = $db->{port};
-	my ($dsn) = "DBI:mysql:$dbname:$url:$port";
-	my $dbh = DBI->connect($dsn, $username, $password, {RaiseError => 1}) or die "can't connect to database";
+	my ($dsn) = "DBI:mysql:$dbname:$host:$port";
+	my $dbh = DBI->connect($dsn, $user, $pass, {RaiseError => 1}) or die "can't connect to database";
 	
 	return ($dbh);
 }