[MOBY-guts] biomoby commit

[José Manuel Rodríguez Carrasco]

jmrc
Tue Sep 22 11:55:42 EDT 2009
Update of /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Async
In directory dev.open-bio.org:/tmp/cvs-serv30812

Modified Files:
	SimpleServer.pm 
Log Message:
A couple of bugfixes from Dmitry and Romina from INB.
*	One of the bugs is related to huge input messages,
	which are inspected in depth where only a one level
	check is needed.
*	The second one is a fix to avoid a serialization bug
	from XML::LibXML, which does not generate serialization
	for implicit namespace nodes inherited from ancestors.

moby-live/Perl/MOBY-Server/lib/MOBY/Async SimpleServer.pm,1.4,1.5
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Async/SimpleServer.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/Async/SimpleServer.pm	2008/09/02 13:10:26	1.4
+++ /home/repository/moby/moby-live/Perl/MOBY-Server/lib/MOBY/Async/SimpleServer.pm	2009/09/22 15:55:42	1.5
@@ -180,9 +180,12 @@
 	my $auth = $mobyContent->getAttribute('authority') || $mobyContent->getAttributeNS($WSRF::Constants::MOBY_MESSAGE_NS,'authority');
 	
 	# Get mobyData and iterate over them in order to run the service for each one
-	my @mobyData = ($moby->getElementsByTagNameNS($WSRF::Constants::MOBY_MESSAGE_NS,'mobyData'));
+	my @mobyData = ($mobyContent->getChildrenByTagNameNS($WSRF::Constants::MOBY_MESSAGE_NS,'mobyData'));
 
 	foreach my $mobyData (@mobyData) {
+		# This line avoids a serialization bug in XML::LibXML, which probably
+		# is inherited from libxml2
+		$mobyData->setNamespace($WSRF::Constants::MOBY_MESSAGE_NS, $mobyData->prefix(), 0);
 		my $queryID = $mobyData->getAttribute('queryID') || $mobyData->getAttributeNS($WSRF::Constants::MOBY_MESSAGE_NS,'queryID');
 		my $property_pid    = "pid_$queryID";
 		my $property_input  = "input_$queryID";