In your script:my $soap = SOAP::Lite->uri($uri)->proxy($proxyURL);
#!/usr/bin/perl -l use strict; use warnings; use SOAP::Lite; my $uri = 'http://www.example.com'; sub check_result { my ( $self, $code, $IP, $PORT ) = @_; my $proxyURL = "http://$IP:$PORT/REMOTE_SOAP"; my $soap = SOAP::Lite->uri($uri)->proxy($proxyURL); $soap->autotype(0); $soap->default_ns('http://REMOTENAMESPACE/namespace/default'); $soap->proxy->timeout(15); $soap->on_fault( sub { my ( $soap, $res ) = @_; eval { die ref $res ? $res->faultstring : $soap->transport +->status }; return ref $res ? $res : new SOAP::SOM; } ); my $som = $soap->call( "remote_function", SOAP::Data->name('Entry1')->valu +e($code), ); return $som->paramsout; }
In reply to Re: SOAP::LITE client timeout makes ALL my Catalyst app to wait
by Khen1950fx
in thread SOAP::LITE client timeout makes ALL my Catalyst app to wait
by miguelele
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |