[MOBY-guts] biomoby commit

Nina Opushneva nopushneva at pub.open-bio.org
Thu Feb 10 00:17:45 UTC 2005


nopushneva
Wed Feb  9 19:17:45 EST 2005
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv32037

Modified Files:
	Central.pm 
Log Message:
delete some typo

moby-live/Perl/MOBY Central.pm,1.148,1.149
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.148
retrieving revision 1.149
diff -u -r1.148 -r1.149
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2005/02/08 23:32:14	1.148
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2005/02/10 00:17:45	1.149
@@ -3779,38 +3779,6 @@
 	return $XSD;
 }
 
-#=head2 runRDFagent
 
-#Title     :	runRDFagent
-#Usage     :	$MOBY->runRDFagent($inputXML)
-#Function  :	run RDFagent for signatureURL
-#Returns   :	
-#Args      :	
-      
-#inputXML  :
-#<runRDFagent>
-# <RDFfileURL>rdfFileURL</RDFfileURL>
-#</runRDFagent>
-			      
-#=cut
-		
-#sub _runRDFagent{
-		   
-# my ($self)=@_; 
-# my $Parser = new XML::DOM::Parser;
-# my $doc = $Parser->parse($payload);
-# my $Object      = $doc->getDocumentElement();
-# my $obj         = $Object->nodeName;
-# return undef unless ( $obj eq 'runRDFagent' );
-# my $url = &_nodeTextContent( $Object, "RDFfileURL" );
-# my $l = $url->getLength;
-# if ($l == 0){
-#   print "The RDFagent can't run without a parameter";
-# }else{
-#   system("/home/rdfagent/run-RDFagent"+ $url);
-#   print "The RDFagent run saccessfully. A result will sent to you by E-mail";
-# }
-										
-}
 1;
-`
+




More information about the MOBY-guts mailing list