[MOBY-guts] biomoby commit

Mark Wilkinson mwilkinson at dev.open-bio.org
Wed Feb 13 03:39:29 UTC 2008


mwilkinson
Tue Feb 12 22:39:28 EST 2008
Update of /home/repository/moby/moby-live/Perl/MOBY/Client
In directory dev.open-bio.org:/tmp/cvs-serv14635/MOBY/Client

Modified Files:
	Central.pm 
Log Message:
support for doc-literal services added
moby-live/Perl/MOBY/Client Central.pm,1.153,1.154
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm,v
retrieving revision 1.153
retrieving revision 1.154
diff -u -r1.153 -r1.154
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2007/11/26 23:00:35	1.153
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2008/02/13 03:39:28	1.154
@@ -735,9 +735,13 @@
 
 #____________________________________________________________________________________________
 	return $self->errorRegXML(
-"Only 'moby', 'post', 'moby-async' and 'wsdl' Service Categories are currently allowed - you gave me $Category"
+"Only 'moby', 'post', 'moby-async', 'doc-literal', 'doc-literal-async' Service Categories are currently allowed - you gave me $Category"
 	  )
-	  unless ( ( $Category eq 'moby' ) || ( $Category eq 'wsdl' )|| ( $Category eq 'moby-async' ) || ( $Category eq 'post' ));
+	  unless ( ( $Category eq 'moby' )
+			  || ( $Category eq 'moby-async' )
+			  || ( $Category eq 'doc-literal' )
+			  || ( $Category eq 'doc-literal-async' )
+			  || ( $Category eq 'post' ));
 	return $self->errorRegXML(
 "All Fields Required:  serviceName, serviceType, authURI, contactEmail, URL, description, Category, input, output, secondary"
 	  )
@@ -759,7 +763,7 @@
 			<authURI>$authURI</authURI>
 			<contactEmail>$email</contactEmail>";
 
-	if ( $Category eq "moby" || $Category eq 'moby-async' || $Category eq 'post') {
+
 		my %SEC;
 		if ( $a{'secondary'} && ( ref( $a{'secondary'} ) eq 'HASH' ) ) {
 			%SEC = %{ $a{secondary} };
@@ -882,10 +886,6 @@
 		}
 		$message .= "</secondaryArticles>\n";
 		$message .= "</registerService>";
-	}
-	else {
-		return $self->errorRegXML("only 'moby', 'post' and 'moby-async' service types are allowed to be registered at this time.");
-	}
 
 
 	$debug && &_LOG(" message\n\n$message\n\n");




More information about the MOBY-guts mailing list