[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Thu Feb 20 19:15:44 EST 2003
Update of /home/repository/moby/moby-live/Perl/scripts
In directory pub.open-bio.org:/tmp/cvs-serv26952/Perl/scripts

Modified Files:
	simple_client.pl simple_client_localhost.pl 
Log Message:
implemented GOOBY :-)  MOBY-Central is now able to register CGI services, and provide you with a URL and a GET string in sprintf format ready for you to pass parameters to.  This is trez cool :-)  I will commit a sample GOOBY client script in a minute and will register a few CGI services for you to GOOBY for yourself.
moby-live/Perl/scripts simple_client.pl,1.1,1.2 simple_client_localhost.pl,1.1,1.2
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/scripts/simple_client.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- /home/repository/moby/moby-live/Perl/scripts/simple_client.pl	2003/02/19 21:22:08	1.1
+++ /home/repository/moby/moby-live/Perl/scripts/simple_client.pl	2003/02/21 00:15:44	1.2
@@ -3,10 +3,7 @@
 use MOBY::Client::Central;
 use MOBY::Client::Service;
 
-my $Central = MOBY::Client::Central->new(
-	MOBY_server => "http://mobycentral.cbr.nrc.ca/cgi-bin/MOBY-Central.pl",
-	MOBY_uri => "http://mobycentral.cbr.nrc.ca/MOBY/Central",
-	);
+my $Central = MOBY::Client::Central->new();
 
 print "looking for services that use Generic Keywords for retrieval\n";
 

===================================================================
RCS file: /home/repository/moby/moby-live/Perl/scripts/simple_client_localhost.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- /home/repository/moby/moby-live/Perl/scripts/simple_client_localhost.pl	2003/02/19 21:22:08	1.1
+++ /home/repository/moby/moby-live/Perl/scripts/simple_client_localhost.pl	2003/02/21 00:15:44	1.2
@@ -1,19 +1,23 @@
 #!/usr/bin/perl -w
 use strict;
+use lib "../";
 use MOBY::Client::Central;
 use MOBY::Client::Service;
 
 my $Central = MOBY::Client::Central->new(
-	MOBY_server => "http://localhost/cgi-bin/MOBY-Central.pl",
-	MOBY_uri => "http://localhost/MOBY/Central",
-	);
+	Registries => {
+		local => {
+			URL => "http://illuminae/cgi-bin/MOBY/MOBY-Central.pl",
+			URI => "http://illuminae/MOBY/Central",
+		}
+	});
 
 print "looking for services that use Generic Keywords for retrieval\n";
 
 # returns a list of ServiceInstance objects
 my @services =  $Central->locateServiceByInput(
-	input => {'Object' =>['Generic/Keyword']},
-	serviceType => 'Retrieve');
+	input => {'Object' =>['Generic/Keyword']},);
+#	serviceType => 'Retrieve');
 
 foreach (@services) {
 	print "\nFound:\n",
@@ -25,7 +29,8 @@
 
 	my $wsdl = $Central->retrieveService(
 		authURI => $_->authority,
-		serviceName => $_->name);
+		serviceName => $_->name,
+		Registry => 'local');
 	my $Service = MOBY::Client::Service->new(service => $wsdl);
 	print "Executing Service: ",$Service->ServiceName," with keywords '*brassinosteroid*' and '*apoptosis*'\n";