Re: [OT] SOAP::Lite help

[John ORourke <suppressed>]

Not really mod_perl but possibly of interest - here's my version, untested:

#!/usr/bin/perl
use SOAP::Lite +trace;
use Data::Dumper;
$soapobj=SOAP::Lite->service('https://myserver.myhost.com/services/EndUser?wsdl');
$soapresult=$soapobj->getUser('wombat104');
if($soapresult->fault){
   print "FAULTED! code ".$soapresult->faultcode." reason 
".$soapresult->faultstring."\n";
}else{
   print "OK! results are: 
".Dumper($soapresult->result,$soapresult->paramsout);
}

sub SOAP::Transport::HTTP::Client::get_basic_credentials {
   return '1111'=>'password';
}


Martin Moss wrote:
> All,
>
> I have a Php script which I wish to convert to perl
> ============
> require_once('SOAP/Client.php');
> $wsdl_url =
> 'https://myserver.myhost.com/services/EndUser?wsdl';
> $WSDL = new Soap_WSDL($wsdl_url);
> $soap = $WSDL->getProxy();
>
> $soap->setCredentials('1111','password');
> $username = "wombat104";
>
> $return = $soap->getUser($username);
> ======================
>
> Can someone show me how this would look using
> SOAP::Lite?  
>
>  
>
>
> 		
> ___________________________________________________________ 
> Yahoo! Messenger - with free PC-PC calling and photo sharing. http://uk.messenger.yahoo.com
>
>