Discussion :

[phlux]

Salut,

J'essaye de faire appel à un service Web en Perl mais je galère complétement.

Pour me faire la main, j'ai utilisé SoapUI afin de vérifier que les services étaient opérationnels.

Avec l'URL suivante, je peux voir le contenu du WSDL :
http://myserver:8600/webservices/ChangeService?wsdl

Donc j'essaye de coder ça comment suit :

Code :

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

1
2
3
4
5
6
7
8
9
 
#!perl -w
use SOAP::Lite;
 
print SOAP::Lite
  -> uri('http://myserver)
  -> proxy("http://myserver:8600/webservices/ChangeService" )
  -> service('http://myserver:8600/webservices/ChangeService?wsdl')
  -> getLoginInfo;

Mais j'obtiens : Service description 'http://myserver:8600/webservices/ChangeService?wsdl' can't be
loaded: 502 Bad Gateway

J'ai également essayé de faire appel au WSDL en le mettant dans un fichier en local mais même problème

Des idées ?

Merci !

[stejutt]

Salut,

Je pense qu'il faut que tu utilises soit

Code :

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

1
2
-> uri('http://myserver)
-> proxy("http://myserver:8600/webservices/ChangeService" )

ou

Code :

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

->service('http://myserver:8600/webservices/ChangeService?wsdl')

mais pas les deux