SOAP :: Lite Perl模块发送错误的SOAP信封命名空间

时间:2016-10-12 11:12:36

标签: xml perl web-services soap soaplite

我在编写SOAP / XML客户端时遇到问题,无法与名为Domainbox的公司提供的API进行通信。我正在使用SOAP :: Lite模块/库在Perl中编写客户端。我收到以下错误消息:

可能的SOAP版本不匹配:信封命名空间http://schemas.xmlsoap.org/soap/envelope/出乎意料。期待http://www.w3.org/2003/05/soap-envelope

这是因为库使用SOAP 1.1命名空间发送SOAP Envelope,服务器需要SOAP 1.2。

但我无法提出解决方案,我已经尝试明确设置$ soap-> soapversion('1.2');在SOAP :: Lite对象中但这仅影响响应消息中收到的Envelope,而不影响客户端发送的Envelope。

服务器正在运行ASP.net,似乎不想接受SOAP 1.1版消息。

默认情况下查询soapversion()方法会返回版本1.1,当我将其更改为1.2时,它返回1.2但在内部显然忽略了这一点。

WSDL似乎没有正确定义xmlns:soap或xmlns:soap12,但SOAP :: Lite也没有使用这些命名空间。我会提供一个链接,但我不允许在这里发布两个以上的链接。

我也尝试使用SOAP :: Lite的service()方法,但这根本没有区别。

这是我正在使用的代码:

#!/usr/bin/perl -w
use strict;
use SOAP::Lite;
use Data::Dumper;

### API Info
my $reseller = 'Removed';
my $username = 'Removed';
my $password  = 'Removed';

my $soap = SOAP::Lite->new(proxy => 'https://sandbox.domainbox.net/');
$soap->default_ns('https://sandbox.domainbox.net/');
$soap->soapversion('1.2');

my $header = SOAP::Header->new->attr({xmlns => 'https://sandbox.domainbox.net/'});

my $body = SOAP::Data->name('CheckDomainAvailability' => \SOAP::Data->value(
            SOAP::Data->name('AuthenticationParameters' => \SOAP::Data->value(
                SOAP::Data->name('Reseller' => $reseller),
                SOAP::Data->name('Username' => $username),
                SOAP::Data->name('Password' => $password),
            )
        )
    )
);

$soap->on_action( sub { "https://sandbox.domainbox.net/" });
my $som = $soap->call('',
$header,
$body
);

die $som->faultstring if ($som->fault);
print $som->result, "\n";

#print Dumper($som);

其他:

无论类中的soapversion设置如何,信封中的xmlns:soap属性都设置为http://schemas.xmlsoap.org/soap/envelope。我认为它是Perl模块中的一个错误,或者是导致它的WSDL的一些奇怪的东西。这是WSDL:http://sandbox.domainbox.net/?WSDL

XML请求消息:

<?xml version="1.0" encoding="UTF-8"?><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"><Header><c-gensym3 
xmlns="https://sandbox.domainbox.net/" /></Header><Body><DomainboxAPI 
xmlns="https://sandbox.domainbox.net/"><CheckDomainAvailability>
<AuthenticationParameters><Reseller 
xsi:type="xsd:string">Removed</Reseller><Username 
xsi:type="xsd:string">Removed</Username><Password 
xsi:type="xsd:string">Removed</Password></AuthenticationParameters>
</CheckDomainAvailability></DomainboxAPI></Body></Envelope>

XML响应消息:

<?xml version="1.0" encoding="utf-8"?><soap:Envelope 
xmlns:soap="http://www.w3.org/2003/05/soap-envelope" 
xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" 
xmlns:xsd="http://www.w3.org/2001/XMLSchema"><soap:Header>
<soap12:Upgrade xmlns:soap12="http://www.w3.org/2003/05/soap-envelope">
<soap12:SupportedEnvelope qname="soap12:Envelope" 
xmlns:soap12="http://www.w3.org/2003/05/soap-envelope"/></soap12:Upgrade>
</soap:Header><soap:Body><soap:Fault><soap:Code>
<soap:Value>soap:VersionMismatch</soap:Value></soap:Code><soap:Reason>
<soap:Text xml:lang="en">Possible SOAP version mismatch: Envelope 
namespace  was unexpected. Expecting http://www.w3.org/2003/05/soap-
envelope.</soap:Text></soap:Reason><soap:Detail /></soap:Fault>
</soap:Body></soap:Envelope>

更新

感谢鲍罗丁,你是当之无愧的。 SOAP :: Lite模块似乎没有将soapversion参数传递给SOAP :: Lite :: Serializer对象。我现在使用以下代码初始化SOAP对象,它工作正常。

my $soap = SOAP::Lite->new(proxy => 'https://sandbox.domainbox.net/');
$soap->default_ns('https://sandbox.domainbox.net/');
$soap->soapversion('1.2');
$soap->serializer->soapversion('1.2');

我应该指出,我还必须调整我的代码以适应Domainbox所需的XML格式,但我现在得到了有效的响应。

我现在唯一的问题是如何处理SOAP :: Lite :: SOM作为消息结果返回的Hash引用。我认为这需要一个单独的问题。

1 个答案:

答案 0 :(得分:1)

我的问题的答案由鲍罗丁提供。正确的代码是在SOAP :: Lite对象和SOAP :: Lite :: Serializer对象上使用soapversion方法。这是一个有效的例子:

my $soap = SOAP::Lite->new(proxy => 'https://sandbox.domainbox.net/');
$soap->default_ns('https://sandbox.domainbox.net/');
$soap->soapversion('1.2');
$soap->serializer->soapversion('1.2');