[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Tue Jun 10 13:12:53 EDT 2003
Update of /home/repository/moby/moby-live/Perl/MOBY/Client
In directory pub.open-bio.org:/tmp/cvs-serv31276/MOBY/Client

Modified Files:
	Central.pm 
Log Message:
Both client and server now use (if available) environment variables to set their default connection parameters.  This is described in the INSTALL file that I just added.  I will also be updating the HTML page on the biomoby website to indicate these changes

moby-live/Perl/MOBY/Client Central.pm,1.30,1.31
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm,v
retrieving revision 1.30
retrieving revision 1.31
diff -u -r1.30 -r1.31
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2003/06/10 01:30:12	1.30
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2003/06/10 17:12:53	1.31
@@ -176,6 +176,11 @@
     }
 	$self->SOAP_connections([]);  # initialize;
 	
+	# if user has set up preferred servers, then use those by default
+	$self->default_MOBY_server($ENV{MOBY_SERVER}) if $ENV{MOBY_SERVER};
+	$self->default_MOBY_uri($ENV{MOBY_URI}) if $ENV{MOBY_URI};
+	
+	
     if ($self->Registries){
 		my $regno = 0;
 		my %reg = %{$self->Registries};