Bonjour à vous, je suis en train de mettre en place une communication Serveur/Client SOAP en Perl. Pour cela j'ai trouvé un site traitant du sujet :

http://guide.soaplite.com/

Lorsque je test ce bout de code,


Coté serveur
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
 
#!/usr/bin/env perl
 
use SOAP::Transport::HTTP;
 
SOAP::Transport::HTTP::CGI   
  -> dispatch_to('Demo')     
  -> handle;
 
package Demo;
 
sub hi {                     
    return "hello, world";     
}
 
sub bye {                    
    return "goodbye, cruel world";
  }


Coté client
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
#!/usr/bin/env perl
 
use SOAP::Lite;
 
print SOAP::Lite
  -> uri('http://www.soaplite.com/Demo')
  -> proxy('http://services.soaplite.com/hibye.cgi')
  -> hi()
  -> result;
A l'exécution de ce code (je suis allé vérifié la validité des valeurs renseigné dans uri et proxy, j'ai même utilisé mon propre serveur http avec mod_perl)
j'obtiens un pédalage dans la choucroute. Aucune résultat.

A savoir que je me trouve derrière un proxy.

Je vous remercie de m'éclairer sur le sujet.