You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl@perl.apache.org by Martin Moss <ma...@btopenworld.com> on 2007/03/13 13:39:19 UTC
SOAP::Lite help
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
Re: [OT] SOAP::Lite help
Posted by Martin Moss <ma...@btopenworld.com>.
When I try this I am getting this
SOAP::Transport::new: ()
SOAP::Serializer::new: ()
SOAP::Deserializer::new: ()
SOAP::Parser::new: ()
SOAP::Lite::new: ()
SOAP::Deserializer::new: ()
SOAP::Parser::new: ()
SOAP::Schema::new: ()
And then it just hangs here indefinitely..... Would
this be a server issue?
--- John ORourke <jo...@o-rourke.org> wrote:
> 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
> >
> >
>
>
___________________________________________________________
New Yahoo! Mail is the ultimate force in competitive emailing. Find out more at the Yahoo! Mail Championships. Plus: play games and win prizes.
http://uk.rd.yahoo.com/evt=44106/*http://mail.yahoo.net/uk
Re: [OT] SOAP::Lite help
Posted by John ORourke <jo...@o-rourke.org>.
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
>
>