perl-modperl mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From John ORourke <john-modp...@o-rourke.org>
Subject Re: [OT] SOAP::Lite help
Date Tue, 13 Mar 2007 13:03:04 GMT
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
>
>   


Mime
View raw message