[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Tue Nov 22 16:33:23 EST 2005
Update of /home/repository/moby/moby-live/Perl/MOBY/Client
In directory pub.open-bio.org:/tmp/cvs-serv14216/MOBY/Client

Modified Files:
	OntologyServer.pm 
Log Message:
made modifications to allow complete independence from public MOBY Central.  The MOBY::Client::OntologyServer checks the MOBY_ONTOLOGYSERVER environment varable, and connects to whatever server is at that address.  if you set this to localhost you will be talking to your own moby ontologies.  I have also modified the test suite so that they will work on a vanilla bootstrapped MOBY ontology server, and don't expect any entries from the public ontologies with the exception of the bootstrap entries.

moby-live/Perl/MOBY/Client OntologyServer.pm,1.14,1.15
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/OntologyServer.pm,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -r1.14 -r1.15
--- /home/repository/moby/moby-live/Perl/MOBY/Client/OntologyServer.pm	2005/09/27 00:01:24	1.14
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/OntologyServer.pm	2005/11/22 21:33:23	1.15
@@ -124,6 +124,7 @@
 			$self->{$attrname} = $self->_default_for( $attrname );
 		}
 	}
+	$self->host($ENV{MOBY_ONTOLOGYSERVER}) if ($ENV{MOBY_ONTOLOGYSERVER});
 	return undef unless $self->host;
 	return $self;
 }