XX
YY
23
2016-06-05T09:00:00
####
use strict;
use warnings;
use SOAP::Lite;
use Data::Dumper;
use v5.10;
my $user = 'XX';
my $pass = 'YY';
my $systemActorID = 23;
my $fromDate = "2016-06-06T09:00:00";
my $uri = 'https://ws.csautopass.no/services/CSNWService';
my $wsdl = $uri . '?wsdl';
my $som;
my $soap = SOAP::Lite
->uri($uri)
->proxy($wsdl);
my $elem1 = SOAP::Data->name('userName' => $user)->prefix('no');
my $elem2 = SOAP::Data->name('password' => $pass)->prefix('no');
my $elem3 = SOAP::Data->name('systemActorID' => $systemActorID)->prefix('no');
my $elem4 = SOAP::Data->name('fromDate' => $fromDate)->prefix('no');
my $elems = SOAP::Data->name("GetAllPassagesRequest" => ($elem1, $elem2, $elem3, $elem4))->prefix('no');
eval {
$som = $soap->testConnection();
($som->result) ? say "test ok ": say "failure";
$som = $soap->getAllPassages( $elems );
($som->result) ? say "getAllPassages call ok ": say "getAllPassages call failure";
say("getAllPassages paramsout:" . Dumper($som->paramsout));
if($som->fault) { say $som->faultcode . ", ". $som->faultstring; }
};
if ($@) {
die $@;
}
__END__
C:\test\perl\soap-lite>perl test-2.pl
test ok
getAllPassages call failure
getAllPassages paramsout:
soapenv:Server, com.ctc.wstx.exc.WstxParsingException: Undeclared namespace prefix "no"
at [row,col {unknown-source}]: [1,441]
C:\test\perl\soap-lite>