[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Thu Dec  7 11:18:04 EST 2006
Update of /home/repository/moby/moby-live/Perl/MOBY/Client
In directory dev.open-bio.org:/tmp/cvs-serv29562/MOBY/Client

Modified Files:
	Central.pm 
Log Message:
proving that I am working in Germany :-)  Heiko and I are making MOBY POST, as an alternative to MOBY SOAP.  Will also help with message chunking, since you can process the message as it is streaming in.
moby-live/Perl/MOBY/Client Central.pm,1.135,1.136
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm,v
retrieving revision 1.135
retrieving revision 1.136
diff -u -r1.135 -r1.136
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2006/05/04 19:33:08	1.135
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2006/12/07 16:18:04	1.136
@@ -712,9 +712,9 @@
 
 #____________________________________________________________________________________________
 	return $self->errorRegXML(
-"Only 'moby' and 'wsdl' Service Categories are currently allowed - you gave me $Category"
+"Only 'moby', 'post' and 'wsdl' Service Categories are currently allowed - you gave me $Category"
 	  )
-	  unless ( ( $Category eq 'moby' ) || ( $Category eq 'wsdl' ) );
+	  unless ( ( $Category eq 'moby' ) || ( $Category eq 'wsdl' ) || ( $Category eq 'post' ));
 	return $self->errorRegXML(
 "All Fields Required:  serviceName, serviceType, authURI, contactEmail, URL, description, Category, input, output, secondary"
 	  )
@@ -736,7 +736,7 @@
 			<authURI>$authURI</authURI>
 			<contactEmail>$email</contactEmail>";
 
-	if ( $Category eq "moby" || $Category eq 'soap' ) {
+	if ( $Category eq "moby" || $Category eq 'soap' || $Category eq 'post') {
 		my %SEC;
 		if ( $a{'secondary'} && ( ref( $a{'secondary'} ) eq 'HASH' ) ) {
 			%SEC = %{ $a{secondary} };
@@ -861,9 +861,7 @@
 		$message .= "</registerService>";
 	}
 	else {
-		return $self->errorRegXML(
-"only 'moby' and 'wsdl' service types are allowed to be registered at this time."
-		);
+		return $self->errorRegXML("only 'moby', 'post' and 'wsdl' service types are allowed to be registered at this time.");
 	}
 
 #elsif ($Category eq "cgi") {