[Perl] Appeler une fonction d'un webservice
Bonjour à tous !!
Voilà, j'ai fait un webservice (en C# avec VC2005). Celui-ci fonctionne.
J'aimerai maintenant appeler une fonction de ce webservice dans un script perl.
J'ai vu sur le CPAN, qu'on pouvait utiliser le module SOAP::Lite pour communiquer avec le webservice.
J'ai donc tenter le script suivant:
Code:
1 2 3 4 5 6 7
|
use SOAP::Lite;
print SOAP::Lite
-> uri('http://161.120.218.109/ServiceWeb')
-> proxy('http://161.120.218.109/ServiceWeb/Convertir.asmx')
-> CelsiusToFahrenheit(32)
-> result; |
Où:
- ServiceWeb est le nom de mon webservice
- Convertir.asmx contient les fonctions du service
- CelisusToFahrenheit() une fonction du webservice
le script s'éxécute sans ressortir d'erreur (à priori) mais lorsque je vais voir la log de mon serveur web (IIS 5.0), j'ai le message d'erreur suivant:
Code:
1 2
|
09:44:10 161.120.220.25 POST /ServiceWeb/Convertir.asmx 500 |
où 161.120.220.25 est l'adresse ip du proxy du réseau.
D'où mes diverses questions de novices:
1) Pourquoi ai-je une réponse du proxy ? alors que mon serveur est en local.
2) Dans mon script, les valeurs que j'ai mis dans uri() et proxy() sont-elles bonnes ? Je comprends pas bien le principe.
Voilà, merci pour vos réponses.
Bonne journée !!!
Guillaume.