Discussion :

[amer2006]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 => ''))
);

[amer2006]

J'ajoute que sur le poste en question, l'URL du web service répond correctement depuis le navigateur IE.

[amer2006]

Pour ceux que ça interresse, la solution (ou une des solutions) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
my $client = SOAP::Lite
    -> uri('urn:prgs:DocLiteral:WSTKDocLiteral')
    -> proxy('http://www.serveur.webservice:25011/wsa/wsa1',
	proxy => ['http' => 'http://used.proxy:port'])
    -> on_action(sub{sprintf '%s/%s', @_ });