[MOBY-guts] biomoby commit

[Eddie Kawas]

kawas
Wed May 14 10:06:23 EDT 2008
Update of /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY
In directory dev.open-bio.org:/tmp/cvs-serv12381/Perl/MOBY-Server/lib/MOBY

Modified Files:
	Central.pm 
Log Message:
category 'cgi' is what the registry expects. fixed instances in the code that 'post' was used, rather than 'cgi'
moby-live/Perl/MOBY-Server/lib/MOBY Central.pm,1.4,1.5
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Central.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Central.pm	2008/04/23 13:08:11	1.4
+++ /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Central.pm	2008/05/14 14:06:23	1.5
@@ -1102,7 +1102,7 @@
  Input XML :
 
       <registerService>
-         <Category>moby</Category> <!-- one of 'moby', 'moby-async', 'doc-literal', 'doc-literal-async'; 'moby' and 'moby-async' are RPC encoded -->
+         <Category>moby</Category> <!-- one of 'moby', 'moby-async', 'doc-literal', 'doc-literal-async', 'cgi'; 'moby' and 'moby-async' are RPC encoded -->
          <serviceName>YourServiceNameHere</serviceName>
          <serviceType>TypeOntologyTerm</serviceType>
          <signatureURL>http://path.to/your/signature/RDF.rdf</sisgnatureURL>
@@ -1330,14 +1330,14 @@
 	$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', 'moby-async', 'post', 'doc-literal', and 'doc-literal-async', \n",
+		"Category may take the (case sensitive) values 'moby', 'moby-async', 'cgi', 'doc-literal', and 'doc-literal-async', \n",
 		""
 	  )
 	  unless (
 		( $Category eq "wsdl" )
 		|| ( $Category eq "moby" )
 		|| ( $Category eq "moby-async" )
-		|| ( $Category eq "post" )
+		|| ( $Category eq "cgi" )
 	    || ( $Category eq "doc-literal" )
 		|| ( $Category eq "doc-literal-async"));
 
@@ -3274,7 +3274,7 @@
 	# do substitutions
     my $serviceType = $SI->category;
     my $wsdl;
-	if ($serviceType eq "post"){
+	if ($serviceType eq "cgi"){
 	    $wsdl = &_doPostWSDLReplacement(@_)
 	} elsif ($serviceType eq "moby"){
 	    $wsdl = &_doMobyWSDLReplacement(@_)
@@ -4073,7 +4073,7 @@
 END
 
 
-# MOBY POST service template
+# MOBY CGI service template
 
 $WSDL_POST_TEMPLATE = <<END2;
 <?xml version="1.0"?>