[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Mon Jul 21 09:45:48 EDT 2003
Update of /home/repository/moby/moby-live/Perl/MOBY/Client
In directory pub.open-bio.org:/tmp/cvs-serv3402/Perl/MOBY/Client

Modified Files:
	Central.pm 
Log Message:
fixed the synopsis of MOBY::Client::Central.  It was still referring to a call that doesn't exist in the new API

moby-live/Perl/MOBY/Client Central.pm,1.44,1.45
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm,v
retrieving revision 1.44
retrieving revision 1.45
diff -u -r1.44 -r1.45
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2003/07/18 21:44:55	1.44
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2003/07/21 13:45:48	1.45
@@ -25,11 +25,19 @@
  use MOBY::Client::Central;
  my $Central = MOBY::Client::Central->new();
 
- my @Services = $Central->locateServiceByInput('Sequence');
- foreach my $SERVICE(@Services){
-	print "Central Registry: ", $SERVICE->registry, "\n";
+ my ($Services, $REG) = $Central->findService(
+	    input =>[
+              [DNASequence => ['NCBI_gi', 'NCBI_Acc']],
+                ]);
+ unless ($Services){
+	 print "Service discovery failed with the following errror: "
+	 print $REG->message;
+	 end
+ }
+ foreach my $SERVICE(@{$Services}){
     print "Service Name: ", $SERVICE->name, "\n";
     print "Service Provider: ", $SERVICE->authority,"\n";
+	
  }
 
 =cut