[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Sat Aug 16 11:51:32 EDT 2003
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv6250/MOBY

Modified Files:
	Central.pm OntologyServer.pm 
Log Message:
this version of the client allows connections to a MOBY Central registry running with a CGI GET interface, rather than a CGI SOAP interface.  Since such a thing doesn't exist yet, this should not matter to anyone. 

moby-live/Perl/MOBY Central.pm,1.99,1.100 OntologyServer.pm,1.26,1.27
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.99
retrieving revision 1.100
diff -u -r1.99 -r1.100
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/07/14 22:56:56	1.99
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/08/16 15:51:32	1.100
@@ -19,7 +19,7 @@
 use MOBY::service_instance;
 use MOBY::central_db_connection;
 
-my $debug = 1;
+my $debug = 0;
 
 if ($debug){open (OUT, ">/tmp/CentralRegistryLogOut.txt") || die "cant open logfile\n";print OUT "created logfile\n";close OUT;}
 

===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/OntologyServer.pm,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -r1.26 -r1.27
--- /home/repository/moby/moby-live/Perl/MOBY/OntologyServer.pm	2003/07/10 20:43:09	1.26
+++ /home/repository/moby/moby-live/Perl/MOBY/OntologyServer.pm	2003/08/16 15:51:32	1.27
@@ -141,7 +141,7 @@
 
 	my $host = $self->host?$self->host:$ENV{MOBY_CENTRAL_URL}; chomp $host;
 	my $username = $self->username?$self->username:$ENV{MOBY_CENTRAL_DBUSER}; chomp $username;
-	my $password = $self->password?$self->password:$ENV{MOBY_CENTRAL_DBPASS}; chomp $password; $password =~ s/\s//g;
+	my $password = $self->password?$self->password:$ENV{MOBY_CENTRAL_DBPASS}; chomp $password if $password; $password =~ s/\s//g if $password;
     my $port = $self->port?$self->port:$ENV{MOBY_CENTRAL_DBPORT}; chomp $port;
     
     my ($dsn) = "DBI:mysql:".($self->database).":".($host).":".($port);