[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Thu May  8 14:24:19 EDT 2003
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv2498/Perl/MOBY

Modified Files:
	Central.pm 
Log Message:
got the perl client to create correct XML for service registration
moby-live/Perl/MOBY Central.pm,1.30,1.31
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.30
retrieving revision 1.31
diff -u -r1.30 -r1.31
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/05/08 18:05:00	1.30
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/05/08 18:24:19	1.31
@@ -943,12 +943,21 @@
 sub registerService { 
 	my ($pkg,  $payload) = @_;
 	my ($serviceName, $serviceType, $AuthURI, $contactEmail, $URL, $authoritativeService, $desc, $Category, $INPUTS, $OUTPUTS, $SECONDARY) = &_registerServicePayload($payload);
-
-	unless ($serviceName && $serviceType && $AuthURI && $contactEmail && $URL && $authoritativeService && $desc && $Category){
-		$debug && &_LOG("malformed payload  $payload\n");
+	$authoritativeService = defined($authoritativeService)?1:0;
+	my $error;
+	$error .=" missing serviceName \n" unless defined $serviceName;
+	$error .="missing serviceType \n" unless defined $serviceType;
+	$error .="missing authURI \n" unless defined $AuthURI;
+	$error .="missing contactEmail \n" unless defined $contactEmail;
+	$error .="missing URL \n" unless defined $URL;
+	$error .="missing description \n" unless defined $desc;
+	$error .="missing Category \n" unless defined $Category;
+	
+	if ($error) {
+		$debug && &_LOG("malformed payload  $error\n");
 		my $reg = &Registration({
 			success => 0,
-			error_message => "malformed payload\n\n$payload",
+			error_message => "malformed payload $error\n\n",
 			registration_id => "",
 									  });
 		return $reg;