[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Mon Jul 21 10:18:07 EDT 2003
Update of /home/repository/moby/moby-live/Perl/MOBY/Client
In directory pub.open-bio.org:/tmp/cvs-serv3525/MOBY/Client

Modified Files:
	Central.html 
Log Message:
duh.  have to update the HTML as well.  It will sync with the website sometime today

moby-live/Perl/MOBY/Client Central.html,1.9,1.10
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Central.html,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -r1.9 -r1.10
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Central.html	2003/07/18 21:44:55	1.9
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Central.html	2003/07/21 14:18:07	1.10
@@ -58,11 +58,19 @@
  use MOBY::Client::Central;
  my $Central = MOBY::Client::Central-&gt;new();</pre>
 <pre>
- my @Services = $Central-&gt;locateServiceByInput('Sequence');
- foreach my $SERVICE(@Services){
-        print &quot;Central Registry: &quot;, $SERVICE-&gt;registry, &quot;\n&quot;;
+ my ($Services, $REG) = $Central-&gt;findService(
+            input =&gt;[
+              [DNASequence =&gt; ['NCBI_gi', 'NCBI_Acc']],
+                ]);
+ unless ($Services){
+         print &quot;Service discovery failed with the following errror: &quot;
+         print $REG-&gt;message;
+         end
+ }
+ foreach my $SERVICE(@{$Services}){
     print &quot;Service Name: &quot;, $SERVICE-&gt;name, &quot;\n&quot;;
     print &quot;Service Provider: &quot;, $SERVICE-&gt;authority,&quot;\n&quot;;
+        
  }</pre>
 <p>
 </p>