[Xml-compile] consultation xml::compile::wsdl

[Mark Overmeer]

* Lor Knut (lknuttzen at hotmail.com) [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
       Mark at Overmeer.net                          solutions at overmeer.net
http://Mark.Overmeer.net                   http://solutions.overmeer.net