Re^3: Compression with SOAP::Lite

As this data is sent by SOAP::Lite/LWP, i am not sure how to do it?
Please advice how do i do it?
I get the desired result if i dont use options=>{compress_threshold =>1000} in the client.

Comment on Re^3: Compression with SOAP::Lite

Replies are listed 'Best First'.
Re^4: Compression with SOAP::Lite by Anonymous Monk on Apr 09, 2011 at 01:52 UTC
Please advice how do i do it? Something like `my $soap ... ->proxy( 'http://localhost/blah/DummyService', timeout => 1 ); $soap->transport->add_handler("request_send", sub { my( $req ) = @_; use autodie; open my $raw, ">', '/my/known/temp.gz'; binmode $raw; print $raw $req->content; close $raw; return; });` [download] Then you manually examine /my/known/temp.gz with 7-zip or gunzip or ... I get the desired result if i dont use options=>{compress_threshold =>1000} in the client. Let me understand, eliminating compress_threshold fixes it? Yeah, I'd remove that immediately :) I'd also look into SOAP::Simple	[reply] [d/l]

Replies are listed 'Best First'.

Re^4: Compression with SOAP::Lite
by Anonymous Monk on Apr 09, 2011 at 01:52 UTC

Please advice how do i do it?

Something like

my $soap ... 
->proxy( 'http://localhost/blah/DummyService', timeout => 1 );
$soap->transport->add_handler("request_send",  sub {
  my( $req ) = @_;
  use autodie;
  open my $raw, ">', '/my/known/temp.gz';
  binmode $raw;
  print $raw $req->content;
  close $raw;
  return;
});
[download]

I get the desired result if i dont use options=>{compress_threshold =>1000} in the client.

Let me understand, eliminating compress_threshold fixes it? Yeah, I'd remove that immediately :)

I'd also look into SOAP::Simple

[reply]
[d/l]