[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Mon Feb  5 21:53:11 EST 2007
Update of /home/repository/moby/moby-live/Perl/MOBY/Client
In directory dev.open-bio.org:/tmp/cvs-serv15977/MOBY/Client

Modified Files:
	Service.pm 
Log Message:
MOBY Central compatible with SOAP::Lite v .69 and ready for Async
moby-live/Perl/MOBY/Client Service.pm,1.30,1.31
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Service.pm,v
retrieving revision 1.30
retrieving revision 1.31
diff -u -r1.30 -r1.31
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Service.pm	2007/01/24 22:56:55	1.30
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Service.pm	2007/02/06 02:53:11	1.31
@@ -128,6 +128,7 @@
 	$wsdl = URI::Escape::uri_escape( $self->service );    # this seems to fix the bug
 	
 	my $soap = SOAP::Lite->service( "data:,$wsdl" );
+	$soap->soapversion('1.1');
 	if ( $self->uri ) { $soap->uri( $self->uri ) }
 	$self->serviceName( &_getServiceName( $soap ) );
 	$self->_soapService( $soap );
@@ -273,9 +274,9 @@
 	          $data
 	      </moby:mobyContent>
 	</moby:MOBY>";
-  $data =~ s"&"&amp;"g;  # encode content in case it has CDATA
-  $data =~ s"\<"&lt;"g;
-  $data =~ s"\]\]\>"\]\]&gt;"g;
+#  $data =~ s"&"&amp;"g;  # encode content in case it has CDATA
+#  $data =~ s"\<"&lt;"g;
+#  $data =~ s"\]\]\>"\]\]&gt;"g;
   
   ####################
   ####################