[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Thu May  8 14:26:32 EDT 2003
Update of /home/repository/moby/moby-live/Perl/MOBY/Client
In directory pub.open-bio.org:/tmp/cvs-serv2582/Perl/MOBY/Client

Modified Files:
	Central.pm 
Log Message:
got the perl client to create correct XML for service registration
moby-live/Perl/MOBY/Client Central.pm,1.20,1.21
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -r1.20 -r1.21
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2003/05/08 18:14:17	1.20
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2003/05/08 18:26:32	1.21
@@ -592,7 +592,8 @@
 			<serviceType>$type</serviceType>
 			<Description><![CDATA[$desc]]></Description>
 			<URL>$URL</URL>
-			<authURI>$authURI</authURI>";
+			<authURI>$authURI</authURI>
+			<contactEmail>$email</contactEmail>";
 
 	if ($Category eq "moby") {
 		my %IN = %{$a{input}};