Loading ...
Sorry, an error occurred while loading the content.

Here is a Patch to make Keep alive work with SOAP::Lite 0.55

Expand Messages
  • crazyfewl2002
    Save the bottom of this post as a file patchfile then apply to SOAP::Transport::Protocol::HTTP you should find it here .. site_perl/5.6.1/SOAP/Transport
    Message 1 of 1 , Jul 23, 2003
    • 0 Attachment
      Save the bottom of this post as a file 'patchfile'
      then apply to SOAP::Transport::Protocol::HTTP

      you should find it here .. site_perl/5.6.1/SOAP/Transport under your
      perl lib dir.

      simply run

      patch HTTP.pm patchfile

      Once it is patched, you should be able to supply keep_alive =>
      MAXCONNS as a parameter to the proxy method.

      eg..

      use SOAP::Lite +autodispatch =>
      proxy => [ 'http://someurl.com/soap/', keep_alive => 1 ],
      uri => 'http://whatever/';


      Only tested on my machine so far using perl561 and SOAP::Lite 0.55
      and LWP 5.65.




      *** HTTP.orig 2003-07-23 18:27:00.000000000 +0100
      --- HTTP.pm 2003-07-23 18:36:11.000000000 +0100
      ***************
      *** 49,55 ****


      sub DESTROY { SOAP::Trace::objects('()') }


      ! sub new { require LWP::UserAgent; patch;
      my $self = shift;


      unless (ref $self) {
      --- 49,56 ----


      sub DESTROY { SOAP::Trace::objects('()') }


      ! sub new { require LWP::UserAgent;
      ! #patch;
      my $self = shift;


      unless (ref $self) {
      ***************
      *** 67,72 ****
      --- 68,79 ----
      return $self;
      }


      + sub keep_alive {
      + my ($self,$val) = @_;
      + $self->conn_cache( { total_capacity => $val } );
      + }
      +
      +
      sub send_receive {
      my($self, %parameters) = @_;
      my($envelope, $endpoint, $action, $encoding) =
    Your message has been successfully submitted and would be delivered to recipients shortly.