[MOBY-guts] biomoby commit

[Mark Wilkinson]

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

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 Central.pm,1.262,1.263
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.262
retrieving revision 1.263
diff -u -r1.262 -r1.263
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2006/10/17 14:00:53	1.262
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2006/12/07 16:18:04	1.263
@@ -1302,18 +1302,18 @@
 	$error .= "missing Category \n"    unless defined $Category;
 	return &_error( "malformed payload $error\n\n", "" ) if ($error);
 	return &_error(
-		"Category may take the (case sensitive) values 'moby', 'cgi', 'soap'\n",
+		"Category may take the (case sensitive) values 'moby', 'cgi', 'post', 'wsdl'\n",
 		""
 	  )
 	  unless (
 		( $Category eq "wsdl" )
 
-		#		|| ($Category eq "cgi")
+		|| ($Category eq "cgi")
 		|| ( $Category eq "moby" )
+		|| ( $Category eq "post" )
 	  );
-	$debug && &_LOG("Entering switch with $Category method\n");
-	return &_error("Service categories other than 'moby' and 'wsdl' are not yet implemented","")
-          unless ( ( $Category eq "moby" ) || ( $Category eq "wsdl" ) );
+	return &_error("Service categories other than 'moby', 'post' are not yet implemented","")
+          unless ( ( $Category eq "moby" ) || ( $Category eq "post" ) );
 
 #test the existence of the service
 	return &_error( "This service already exists", "" ) if (MOBY::service_instance->new(