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
