SOAP::Lite, WSDL , and firewall

[perlTM]

Hi. Is there a option to declare the firewall exception in a SOAP::Lite web service request using a wsdl file? Normally you would write and process:

use SOAP::Lite ;
...
@result = SOAP::Lite
-> service('http://a.particular.file/wsdl')
-> $method ( @arguments ) ;
print join ( "\n", @result ) . "\n" ;

Are there some arguments to the object to specify our own proxy and the port (in PHP PEAR is such an option - but Perl is my language)? Thanks in advance ...

[ikegami]

I believe SOAP::Lite uses LWP, in which case you can configure a proxy as you would for LWP. I think it can be done via environment variables. See LWP::UserAgent. Sorry, it's all I have time for right now.

[Corion]

SOAP::Lite seems to use LWP::UserAgent as its HTTP transport, so all methods of specifying a HTTP proxy for LWP::UserAgent should apply.

[Khen1950fx]

To specify a proxy and port, I'd do something like this:

#!/usr/bin/perl

use strict;
use warnings;
use SOAP::Lite;

print SOAP::Lite
    -> uri('http://www.soaplite.com/Demo')
    -> proxy('http://services.soaplite.com/hibye.cgi')
    -> hi()
    -> result;
my $soap = SOAP::Lite->proxy(
    'http://user:[e-mail]:80/', 
    proxy => ['http' => 'http://my.proxy.server/']);

[perlTM]

and, in addition, do you think that

my $soap = SOAP::Lite->service( 'http://user:[e-mail]:80/wsdl',
proxy => 'http' => 'http://my.proxy.server/' );

would work ?

[Khen1950fx]

No, it won't work because you're mixing the service proxy and your local server proxy together. Maybe you could post some code to show us how you're using your service?

[perlTM]

Hi Khen1950fx,

this kind of client (->proxy() ->uri() ) I already found in the plenty descriptions in the web.

The point is to use an WSDL (by ->service(http://*.wsdl) ) and to use at the same time an object that specifies a proxy server AT MY OWN SIDE, eventually an own port, too.

Kind regs

[Anonymous Monk]

o use at the same time an object that specifies a proxy server AT MY OWN SIDE, eventually an own port, too.

Are you talking about a local proxy which provides you with an internet connection? For that just set enviromental variable HTTP_Proxy

3231:    $self->useragent->env_proxy if $ENV{'HTTP_proxy'};

[Anonymous Monk]

I'm sorry, I'm not sure what you mean. Does this help? http://search.cpan.org/grep?cpanid=MKUTTER&release=SOAP-Lite-0.711&string=proxy&i=1&n=1&C=0