[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Thu Jul 29 20:16:32 EDT 2004
Update of /home/repository/moby/moby-live/Perl/MOBY/Client
In directory pub.open-bio.org:/tmp/cvs-serv21705/MOBY/Client

Modified Files:
	Central.pm 
Log Message:
adding the new parameter into the client library

moby-live/Perl/MOBY/Client Central.pm,1.77,1.78
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm,v
retrieving revision 1.77
retrieving revision 1.78
diff -u -r1.77 -r1.78
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2004/07/29 21:53:54	1.77
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2004/07/30 00:16:32	1.78
@@ -706,6 +706,7 @@
 	my $email = $a{contactEmail}; $email ||="";
 	my $URL = $a{URL}; $URL ||="";
 	my $desc = $a{description}; $desc ||="";
+    my $signatureURL = $a{signatureURL}; $signatureURL ||="";
 	my $Category = lc($a{category}); chomp $Category; $Category ||="";
 	return $self->errorRegXML("Only 'moby' and 'wsdl' Service Categories are currently allowed - you gave me $Category") unless (($Category eq 'moby') || ($Category eq 'wsdl'));
 	return $self->errorRegXML("All Fields Required:  serviceName, serviceType, authURI, contactEmail, URL, description, Category, input, output, secondary") unless (
@@ -717,6 +718,7 @@
 			<serviceName>$name</serviceName>
 			<serviceType>$type</serviceType>
 			<Description><![CDATA[$desc]]></Description>
+            <signatureURL>$signatureURL</signatureURL>
 			<URL>$URL</URL>
 			<authURI>$authURI</authURI>
 			<contactEmail>$email</contactEmail>";