[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Thu Dec 14 12:57:05 EST 2006
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory dev.open-bio.org:/tmp/cvs-serv14971/MOBY

Modified Files:
	Central.pm 
Log Message:
making initial code changes to support async potocol
moby-live/Perl/MOBY Central.pm,1.265,1.266
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.265
retrieving revision 1.266
diff -u -r1.265 -r1.266
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2006/12/08 14:29:55	1.265
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2006/12/14 17:57:05	1.266
@@ -1302,7 +1302,7 @@
 	$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', 'post', 'wsdl'\n",
+		"Category may take the (case sensitive) values 'moby', 'cgi', 'post', 'wsdl', 'moby-async'\n",
 		""
 	  )
 	  unless (
@@ -1310,10 +1310,11 @@
 
 		|| ($Category eq "cgi")
 		|| ( $Category eq "moby" )
+		|| ( $Category eq "moby-async" )
 		|| ( $Category eq "post" )
 	  );
-	return &_error("Service categories other than 'moby', 'post' are not yet implemented","")
-          unless ( ( $Category eq "moby" ) || ( $Category eq "post" ) );
+	return &_error("Service categories other than 'moby', 'post', 'moby-async' are not yet implemented","")
+          unless ( ( $Category eq "moby" ) || ( $Category eq "post" )|| ( $Category eq "moby-async" ) );
 
 #test the existence of the service
 	return &_error( "This service already exists", "" ) if (MOBY::service_instance->new(
@@ -1411,16 +1412,7 @@
 		$SVC->DELETE_THYSELF;
 		return &_error("Registration Failed - newly registered service could not be discovered","");
 	}
-	#my $services         = MOBY::Client::Central::_parseServices( '', '', $si );
-	#my $service_instance = shift @{$services};
 
-	#	my $storage          = new RDF::Core::Storage::Memory;
-	#	my $model            = new RDF::Core::Model( Storage => $storage );
-	#	my $RDF_MODEL = MOBY::RDF::ServiceInstanceRDF->new(
-	#model            => $model,
-	#service_instance => $service_instance );
-	#	my $RDF_XML = $RDF_MODEL->serialize;
-	#my $LSID = $service_instance->LSID;
 
 	my $RDF = _getServiceInstanceRDF(name=>$serviceName, auth=>$AuthURI, url=>$ENV{MOBY_SERVER}, uri=>$ENV{MOBY_URI});
 	unless ($RDF) {