[MOBY-guts] biomoby commit

[Eddie Kawas]

kawas
Fri Feb  9 16:55:32 EST 2007
Update of /home/repository/moby/moby-live/Perl/MOBY/Client
In directory dev.open-bio.org:/tmp/cvs-serv7001/Client

Modified Files:
	Service.pm 
Log Message:
applying a client side patch for the wsdl returned by a server running the old codebase.
moby-live/Perl/MOBY/Client Service.pm,1.33,1.34
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Service.pm,v
retrieving revision 1.33
retrieving revision 1.34
diff -u -r1.33 -r1.34
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Service.pm	2007/02/08 18:50:24	1.33
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Service.pm	2007/02/09 21:55:32	1.34
@@ -117,14 +117,12 @@
 		$self->category('post');
 	}
 
-	#my $dir = cwd;
-	# seems to be a bug in SOAP::Lite that the WSDL document
-	# fails a parse if it is passed as a scalar rather than a file
-	# this section can be removed when this bug is fixed
-	#open (OUT, ">$dir/Service.wsdl") || die "cant open dump of wsdl file";
-	#print OUT $self->service;
-	#close OUT;
-	# ________________________________________
+	# TODO - added to make old WSDL compliant with soap lite 0.69
+	if ( $wsdl =~ /element="xsd1:NOT_YET_DEFINED_INPUTS"/ ) {
+		$wsdl =~ s/name="body" element="xsd1:NOT_YET_DEFINED_INPUTS"/name="data" type="xsd:string"/g;
+		$wsdl =~ s/element="xsd1:NOT_YET_DEFINED_OUTPUTS"/type="xsd:string"/g;
+	}
+	
 	$wsdl = URI::Escape::uri_escape( $self->service );    # this seems to fix the bug
 	
 	my $soap = SOAP::Lite->service( "data:,$wsdl" );