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 <[EMAIL PROTECTED]> 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
