我正在使用 SOAP::Lite 创建 Web 服务客户端。第一个 XML 数据包是 Java 测试 GUI 发送的。它收到正确的响应。
第二个是我的 Perl 客户端正在发送的 XML 数据包(根据 SOAP::Lite 调试输出),我从服务器收到的响应是所有输入的参数(hostnameFQ 等)都是空的。
<?xml version="1.0" encoding="UTF-8"?>
<S:Envelope xmlns:S="http://schemas.xmlsoap.org/soap/envelope/">
<S:Header/>
<S:Body>
<ns2:postEvent xmlns:ns2="http://ws.health.server/">
<hostnameFQ>a</hostnameFQ>
<eventLabel>b</eventLabel>
<deviceInst>c</deviceInst>
<severity>d</severity>
<message>e</message>
<eventSource>f</eventSource>
</ns2:postEvent>
</S:Body>
</S:Envelope>
<?xml version="1.0" encoding="UTF-8"?>
<soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/"
xmlns:xsd="http://www.w3.org/2001/XMLSchema"
soap:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"
xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
<soap:Body>
<postEvent xmlns="http://ws.health.server/">
<hostnameFQ>a</hostnameFQ>
<eventLabel>b</eventLabel>
<deviceInst>c</deviceInst>
<severity>d</severity>
<message>e</message>
<eventSource>f</eventSource>
</postEvent>
</soap:Body>
</soap:Envelope>
它们对我来说看起来一样......所以我不太确定发生了什么。
这是我的 Perl 代码,以防万一:
my $EVENT_LISTENER_PROXY = "http://localhost:8080/EventListener/EventListener";
my $soap = SOAP::Lite->new( proxy => $EVENT_LISTENER_PROXY);
$soap->on_action( sub { "http://ws.health.server/#postEvent" });
$soap->autotype(0);
$soap->default_ns('http://ws.health.server/');
my $som = $soap->call("postEvent",
SOAP::Data->name('hostnameFQ')->value( "a" ),
SOAP::Data->name('eventLabel')->value( "b" ),
SOAP::Data->name('deviceInst')->value( "c" ),
SOAP::Data->name('severity')->value( "d" ),
SOAP::Data->name('message')->value( "e" ),
SOAP::Data->name('eventSource')->value( "f" )
);
有人有想法么?