[MOBY-guts] biomoby commit

Mark Wilkinson mwilkinson at pub.open-bio.org
Sat Nov 1 11:42:14 EST 2003


mwilkinson
Sat Nov  1 11:42:14 EST 2003
Update of /home/repository/moby/moby-live/Perl/MOBY/Client
In directory pub.open-bio.org:/tmp/cvs-serv7526/Client

Modified Files:
	Central.pm ServiceInstance.html ServiceInstance.pm 
Log Message:
changed the output of the findService method to return XML elements for the service endpoint and the contact email address.  This should be a backward-compatible change.  Updated the client code accordingly.  updated the ServiceInstance object to hold this new data.  Updated documentation

moby-live/Perl/MOBY/Client Central.pm,1.59,1.60 ServiceInstance.html,1.5,1.6 ServiceInstance.pm,1.7,1.8
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm,v
retrieving revision 1.59
retrieving revision 1.60
diff -u -r1.59 -r1.60
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2003/11/01 16:02:52	1.59
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2003/11/01 16:42:14	1.60
@@ -1439,6 +1439,7 @@
         my $servicename = $Service->getAttributeNode('serviceName')->getValue;
         my $Type = &_nodeTextContent($Service, 'serviceType');
         my $authoritative = &_nodeTextContent($Service, 'authoritative');
+        my $contactEmail = &_nodeTextContent($Service, 'contactEmail');
         my $URL = &_nodeTextContent($Service, 'URL');
         #my $Output = &_nodeTextContent($Service, 'outputObject');
         my $Description = &_nodeTextContent($Service, 'Description');
@@ -1475,6 +1476,7 @@
             authority => $AuthURI,
 			authoritative => $authoritative,
 			URL => $URL,
+			contactEmail => $contactEmail,
             name => $servicename,
             type => $Type,
             category => $cat,

===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/ServiceInstance.html,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- /home/repository/moby/moby-live/Perl/MOBY/Client/ServiceInstance.html	2003/11/01 16:03:04	1.5
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/ServiceInstance.html	2003/11/01 16:42:14	1.6
@@ -28,6 +28,7 @@
 		<li><a href="#description">description</a></li>
 		<li><a href="#authoritative">authoritative</a></li>
 		<li><a href="#url">URL</a></li>
+		<li><a href="#contactemail">contactEmail</a></li>
 		<li><a href="#registry">registry</a></li>
 	</ul>
 
@@ -168,6 +169,15 @@
  Returns   :    current value</pre>
 <p>
 </p>
+<h2><a name="contactemail">contactEmail</a></h2>
+<pre>
+ Title     :    contactEmail
+ Usage     :    $email = $Service-&gt;contactEmail($email)
+ Args      :    (optional) string representing an email address
+ Function  :    get/set service email address
+ Returns   :    current value</pre>
+<p>
+</p>
 <h2><a name="registry">registry</a></h2>
 <pre>
  Title     :    registry

===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/ServiceInstance.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -r1.7 -r1.8
--- /home/repository/moby/moby-live/Perl/MOBY/Client/ServiceInstance.pm	2003/11/01 16:02:52	1.7
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/ServiceInstance.pm	2003/11/01 16:42:14	1.8
@@ -151,6 +151,17 @@
 =cut
 
 
+=head2 contactEmail
+
+ Title     :    contactEmail
+ Usage     :	$email = $Service->contactEmail($email)
+ Args      :    (optional) string representing an email address
+ Function  :	get/set service email address
+ Returns   :	current value
+
+=cut
+
+
 =head2 registry
 
  Title     :	registry
@@ -179,6 +190,7 @@
 					  XML           => [undef, 		'read/write'],
 					  authoritative => [undef,		'read/write'],
 					  URL			=> [undef, 		'read/write'],
+					  contactEmail	=> [undef, 		'read/write'],
 				);
 
    #_____________________________________________________________



More information about the MOBY-guts mailing list