* Lor Knut ([email protected]) [141222 13:45]:
> that's what I should change??
>
> use XML::Compile::WSDL11;
> use XML::Compile::SOAP11;
> use XML::Compile::Transport::SOAPHTTP;
> use XML::LibXML;
>
> my $wsdl = XML::Compile::WSDL11->new($file_wsdl);
> my $loginCms = $wsdl->compileClient ( 'loginCms' );
> my ($response)= $loginCms->(parameters => {in0=>$CMS});
>
> print Dumper [$response]; $response = undef
I did not expect this to work: you call compileClient, should be
compileCall.
#!/usr/bin/env perl
use XML::Compile::WSDL11;
use XML::Compile::SOAP11;
use XML::Compile::Transport::SOAPHTTP;
use XML::LibXML;
use Data::Dumper;
my $file_wsdl = 'wsdl_wsaa_test.wsdl';
my $CMS='xyz';
my $wsdl = XML::Compile::WSDL11->new($file_wsdl);
my $loginCms = $wsdl->compileCall('loginCms');
print $wsdl->explain('loginCms', PERL => 'INPUT', recurse => 1);
my ($response, $trace)= $loginCms->(in0=>$CMS);
warn "RESPONSE=", Dumper $response;
warn "ERRORS=", $trace->errors;
--
Regards,
MarkOv
------------------------------------------------------------------------
Mark Overmeer MSc MARKOV Solutions
[email protected] [email protected]
http://Mark.Overmeer.net http://solutions.overmeer.net
_______________________________________________
Xml-compile mailing list
[email protected]
http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/xml-compile
