Script perl web service et proxy
Bonjour,
Je reviens avec mon script (http://www.developpez.net/forums/sho...d.php?t=185968) !!!
Bref, ce script qui invoque un WebService fonctionne bien sur mon poste.
Mais mis sur un autre poste d'un autre réseau, il ne fonctionne pas.
J'ai une erreur 500 (SOAP::Transport::HTTP::Client::send_receive: 500 (Internal Server Error) Can't connect to www.serveur.webservice:25011 (connect: Unknown error).
Le poste en question utilise un proxy pour se connecter à internet (paramétré dans son I.E.).
Celà peut-il être la raison de mon problème, si oui, comment déclarer ce proxy côté script perl ?
Le script actuel :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
| #!/usr/bin/perl -w
#perl -MCPAN -e 'install SOAP::Lite'
use SOAP::Lite +trace=> 'all' ;
# use SOAP::Lite +trace=> 'debug' ;
# use SOAP::Lite;
print("Code utilisateur : ");
$user = <STDIN>;
chop($user);
print ("Mot de passe : ");
$pwd = <STDIN>;
chop($pwd);
my $client = SOAP::Lite
-> uri('urn:prgs:DocLiteral:WSTKDocLiteral')
-> proxy('http://www.serveur.webservice:25011/wsa/wsa1')
-> on_action(sub{sprintf '%s/%s', @_ });
my $res = $client->ValidateUser(
SOAP::Data->name(ipcCodUser => SOAP::Data->type(string => $user )),
SOAP::Data->name(ipcPassWord => SOAP::Data->type(string => $pwd )),
SOAP::Data->name(oplOk => SOAP::Data->type(string => '')),
SOAP::Data->name(opcIDSession => SOAP::Data->type(string => ''))
); |
