[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Fri Jul 29 14:58:44 EDT 2005
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv11340/MOBY

Modified Files:
	Central.pm 
Log Message:
updated pod documentation for MOBY Central and MOBY Client Central.  MOBY Client Central now has ways of getting to the LSID for various things in the MOBY Central messages.  See pod for details.

moby-live/Perl/MOBY Central.pm,1.196,1.197
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.196
retrieving revision 1.197
diff -u -r1.196 -r1.197
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2005/07/29 17:39:32	1.196
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2005/07/29 18:58:44	1.197
@@ -2383,16 +2383,13 @@
 			  
  outputXML (by category):
 
-     moby: <Service><![CDATA[WSDL document here]]</Service>
+     moby: <Service lsid='urn:lsid:...'><![CDATA[WSDL document here]]</Service>
 
 
 =cut
 
 sub retrieveService {
 	my ( $pkg, $payload ) = @_;
-
-  # the payload here is actually the full XML from the findService call above...
-  #return "<Services>NOT YET IMPLEMENTED</Services>";
 	my ( $AuthURI, $serviceName, $InputXML, $OutputXML, $SecondaryXML ) =
 	  &_retrieveServicePayload($payload);
 	unless ( $AuthURI && $serviceName ) { return "<Services/>" }
@@ -2532,7 +2529,7 @@
  Args      :	none
  XML       :
 	<serviceTypes>
-	   <serviceType name="serviceName">
+	   <serviceType name="serviceName" lsid="urn:lsid...">
 		  <Description><![CDATA[free text description here]]></Description>
 	   </serviceType>
 		...
@@ -2610,7 +2607,7 @@
  Args      :	none
  XML       :
 	<objectNames>
-	   <Object name="objectName">
+	   <Object name="objectName" lsid="urn:lsid:...">
 		  <Description><![CDATA[free text description here]]></Description>
 	   </Object>
 		...
@@ -2649,7 +2646,7 @@
 
  Ouptut XML :
         <retrieveObjectDefinition>
-            <objectType>NewObjectType</objectType>
+            <objectType lsid="urn:lsid:...">NewObjectType</objectType>
             <Description><![CDATA[
                     human readable description
                     of data type]]>
@@ -2714,7 +2711,7 @@
  Args      :	none
  XML       :
 	<Namespaces>
-	   <Namespace name="namespace">
+	   <Namespace name="namespace" lsid="urn:lsid:...">
 		  <Description><![CDATA[free text description here]]></Description>
 	   </Namespace>
 		...