[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Tue Jul 19 10:33:46 EDT 2005
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv20166/Perl/MOBY

Modified Files:
	Central.pm 
Log Message:
temporarily removing all LSID code to get a fresh start

moby-live/Perl/MOBY Central.pm,1.160,1.161
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.160
retrieving revision 1.161
diff -u -r1.160 -r1.161
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2005/07/18 22:46:00	1.160
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2005/07/19 14:33:46	1.161
@@ -1340,7 +1340,7 @@
 	#model            => $model,
 	#service_instance => $service_instance );
 	#	my $RDF_XML = $RDF_MODEL->serialize;
-	my $LSID = $service_instance->LSID;
+	#my $LSID = $service_instance->LSID;
 
 	# my $RDF = _getServiceInstanceRDF($LSID);
 	my $RDF = "<RDF/>";
@@ -1359,7 +1359,7 @@
 
 sub _getServiceInstanceRDF {
 	my ( $self, $LSID ) = @_;
-	my $lsid       = LS::ID->new($LSID);
+	#my $lsid       = LS::ID->new($LSID);
 	my $RDF_XML    = "";
 	my $lsid_error = "";
 	my $lsid_good  = 1;
@@ -1369,38 +1369,38 @@
 	#use LS::Client::BasicResolver;
 	#use LS::Locator;
 
-	my $resolver = LS::Client::BasicResolver->new();
-	my $authority = $resolver->resolve( lsid => $lsid );
-	unless ($authority) {
-		$lsid_error .= "The authority for $LSID could not be located";
+	#my $resolver = LS::Client::BasicResolver->new();
+	#my $authority = $resolver->resolve( lsid => $lsid );
+	#unless ($authority) {
+	#	$lsid_error .= "The authority for $LSID could not be located";
+
+	#}
+	#return $lsid_error unless $authority;
+	#$authority->clean_cache();
+
+#	my $resource = $authority->getResource($lsid);
+#	unless ($resource) {
+#		$lsid_error .= $authority->error_string . " ";
+#		return $lsid_error;
+#	}
 
-	}
-	return $lsid_error unless $authority;
-	$authority->clean_cache();
-
-	my $resource = $authority->getResource($lsid);
-	unless ($resource) {
-		$lsid_error .= $authority->error_string . " ";
-		return $lsid_error;
-	}
-
-	my $response = $resource->get_metadata;
-	unless ( ref($response) =~ /LS::Service::Response/ ) {
+#	my $response = $resource->get_metadata;
+#	unless ( ref($response) =~ /LS::Service::Response/ ) {
 
 		#TODO raise an error
-		$lsid_error .= "Metadata response didn't come back";
-		return $lsid_error;
-	}
+#		$lsid_error .= "Metadata response didn't come back";
+#		return $lsid_error;
+#	}
 
-	my $rsp = $response->response;
-	unless ( ref($rsp) =~ /IO::File/ ) {
+#	my $rsp = $response->response;
+#	unless ( ref($rsp) =~ /IO::File/ ) {
 
 		#TODO raise an error
-		$lsid_error .= "metadata response was not a filehandle";
-	}
-	while (<$rsp>) {
-		$RDF_XML .= $_;
-	}
+#		$lsid_error .= "metadata response was not a filehandle";
+#	}
+#	while (<$rsp>) {
+#		$RDF_XML .= $_;
+#	}
 	return $RDF_XML
 
 }