[MOBY-guts] biomoby commit

Mark Wilkinson mwilkinson at pub.open-bio.org
Wed Mar 16 20:05:46 UTC 2005


mwilkinson
Wed Mar 16 15:05:46 EST 2005
Update of /home/repository/moby/moby-live/Perl/MOBY/Client
In directory pub.open-bio.org:/tmp/cvs-serv10393/MOBY/Client

Modified Files:
	Central.pm 
Log Message:
removing the code that calls the RDF builder just for the moment.  it needs to be parameterized first.

moby-live/Perl/MOBY/Client Central.pm,1.92,1.93
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm,v
retrieving revision 1.92
retrieving revision 1.93
diff -u -r1.92 -r1.93
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2005/03/16 19:14:15	1.92
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2005/03/16 20:05:46	1.93
@@ -980,16 +980,18 @@
 #	return ( $self->parseRegXML( $return ) );
 #_______call a new version RDFbuilder (by Eddie Kawas) _________________________________________
   my $reg = $self->parseRegXML( $return );
-  if ($reg->success == 1){
-  require LWP::UserAgent;
-     
-     my $ua = LWP::UserAgent->new;
-         my $url='http://mobycentral.cbr.nrc.ca:8090/DemoServlet/forms/getSignatureResponse?domain='.$authURI.'&serviceName='.$name;
-	 
-	 my $response = $ua->get($url);
-	 my $rdf = $response->content;
-	 print "$rdf\n"; 
-}	 
+  
+#  if ($reg->success == 1){
+#  require LWP::UserAgent;
+#     
+#     my $ua = LWP::UserAgent->new;
+#         my $url='http://mobycentral.cbr.nrc.ca:8090/DemoServlet/forms/getSignatureResponse?domain='.$authURI.'&serviceName='.$name;
+#	 
+#	 my $response = $ua->get($url);
+#	 my $rdf = $response->content;
+#	 print "$rdf\n"; 
+#}	 
+
    return $reg;
 #_______________________________________________________________________________________________
 




More information about the MOBY-guts mailing list