[MOBY-guts] biomoby commit

[Mark Wilkinson]

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

Modified Files:
	Gooby.pl 
Log Message:
removed localhost specific implementation details
moby-live/Perl/scripts Gooby.pl,1.1,1.2
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/scripts/Gooby.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- /home/repository/moby/moby-live/Perl/scripts/Gooby.pl	2003/02/21 00:21:33	1.1
+++ /home/repository/moby/moby-live/Perl/scripts/Gooby.pl	2003/02/21 00:29:47	1.2
@@ -16,8 +16,7 @@
     print "Accessing Service...\n";
     my $s = $C->retrieveService(
         authURI		=> $_->authority,
-        serviceName	=> $_->name,
-        Registry	=> 'local');
+        serviceName	=> $_->name);
     #print $wsdl;
     $s =~ /\<URL\>\s*(.*?)\s*\<\/URL\>\s*\<GETstring\>\s*(.*?)\s*\<\/GETstring\>/;
     my $URL = $1;