[perl] SOAP::LITE

[noarts]

cercando di richiamare un web services su internet dalla intranet aziendale, ricevo 500 come codice di errore, il che mi fa pensare che il client soap non riesca a uscire dal proxy internet. Mi servirebbe un esempio su come settare il proxy (sul client) per utilizzare un web services che si trova fuori dalla lan aziendale. Spero di essere riuscito a farmi capire.

Qualcuno ha esperienza?

[noarts]

Bastava settare la variabile di ambiente $ENV{HTTP_proxy}
Allego un esempio di richiamo della web application di google

#!/usr/bin/perl -w
use SOAP::Lite;
$googleSearch = SOAP::Lite->service('file:GoogleSearch.wsdl');
$key = '<---- key fornita da google ----->';
$query = 'noarts';
$ENV{HTTP_proxy} = 'http://proxy:8080'; 
$risultato = $googleSearch->doGoogleSearch($key, $query, 0, 10, 'false', '', 'false', '', 'latin1', 'latin1');
for (@{$risultato->{"resultElements"}}) {
	print $_->{"URL"}."\n";
}

Il campo $key va valorizzato con un codice che si ottiene registandosi su google. Nel caso specifico l'output dello scrip è il seguente:

http://www.noarts.net/
http://katalogen.sunet.se/reginfo.html?id=123672
http://katalogen.sunet.se/reginfo.ht...2&lang=english
http://lists.slimdevices.com/archive...ne/002503.html
http://lists.slimdevices.com/archive...ne/002500.html
http://lists.slimdevices.com/archive...ry/001245.html
http://lists.slimdevices.com/archive...er/000857.html
http://lists.slimdevices.com/archive...ry/025061.html
http://article.gmane.org/gmane.music...vices.cvs/1758
http://article.gmane.org/gmane.music...vices.cvs/1755

Restituisce i primi dieci link trovati con google che contengono la stringa 'noarts'


ops! Dimenticavo 'http://proxy:8080' è il nome del proxy-serverorta verso internet della ditta in cui lavoro, per utilizzare lo script questo va personalizzato con il valore opportuno. Il file 'GoogleSearch.wsdl' è il descrittore del web services, si scarica da google e va salvato in locale.

[shishii]

Ciao,

inserisco il link a questo tread molto interessante tra le "Pillole"