[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Thu May  8 13:52:28 EDT 2003
Update of /home/repository/moby/moby-live/Perl/MOBY/Client
In directory pub.open-bio.org:/tmp/cvs-serv1931/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.15,1.16
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -r1.15 -r1.16
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2003/05/08 17:44:48	1.15
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2003/05/08 17:52:27	1.16
@@ -582,6 +582,8 @@
 	my $desc = $a{description}; $desc ||="";
 	my $Category = lc($a{Category}); $Category ||="moby";
 	return $self->errorRegXML("Only MOBY Service Categories are currently allowed") unless ($Category eq 'moby');
+	return $self->errorRegXML("All Fields Required:  serviceName, serviceType, authURI, contactEmail, URL, description, Category, input, output, secondary") unless (
+		$name && $type && $authURI && $email && $URL && $desc && Category);
 
 	my $message = "
 		<registerService>
@@ -693,7 +695,7 @@
 	#	error_messsage => "missing parameters or other failure leading to incorrectly formatted XML",
 	#	registration_id => "0")};
 
-	return $message;
+	#return $message;
 	$debug && &_LOG(" message\n\n$message\n\n");
 	my $return = $self->SOAP_connection->call(registerService => ($message))->paramsall;