Perl SOAP::Lite fix XML to be compatible with generated by PHP SoapClient

Wednesday, November 4, 2015

How can I make SOAP::Lite produce XML like PHP SoapClient does?



Example



Perl code:



#!/usr/bin/perl
use strict;
use warnings;

use SOAP::Lite on_action => sub{sprintf '%s', $_[0]};
SOAP::Lite->import(+trace => "all");
my $client = SOAP::Lite->new;

$client->service("https://www.just-example.test/dir/JustTest/Service.asmx?WSDL");
$client->proxy("https://www.just-example.test/dir/JustTest/Service.asmx");
$client->uri("http://example.test/ExampleMethod");

my %params = (
'TestParam' => "",
);
$client->ExampleMethod(\%params);


XML that is sent by the Perl code (seems to be not compatible with the service):



<?xml version="1.0" encoding="UTF-8"?>
<soap:Envelope soap:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"
xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/"
xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/"
xmlns:xsd="http://www.w3.org/2001/XMLSchema"
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<soap:Body>
<ExampleMethod
xmlns="http://example.test/ExampleMethod">
<c-gensym3>
<TestParam xsi:type="xsd:string" />
</c-gensym3>
</ExampleMethod>
</soap:Body>
</soap:Envelope>


PHP code:



<?php
$client = new SoapClient("https://www.just-example.test/dir/test/JustTest/Service.asmx?WSDL",
array(
'trace' => 1,
'uri' => "http://example.test/ExampleMethod"

)
);
$params = array (
'TestParam' => ""
);

$response = $client->ExampleMethod($params);

echo $client->__getLastRequest() . "\n";

var_dump($response);


XML that is sent by the PHP code (seems to be compatible with the service):



<?xml version="1.0" encoding="UTF-8"?>
<SOAP-ENV:Envelope
xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/"
xmlns:ns1="http://example.test/">
<SOAP-ENV:Body>
<ns1:ExampleMethod>
<ns1:TestParam>0</ns1:TestParam>
</ns1:ExampleMethod>
</SOAP-ENV:Body>
</SOAP-ENV:Envelope>

0 comments:

Post a Comment