Added header elements to perl WS-Discovery proxy

This commit is contained in:
Jan M. Hochstein 2016-04-10 09:37:16 +02:00
parent 1558353672
commit 2125faa444
2 changed files with 10 additions and 1 deletions

View File

@ -34,7 +34,11 @@ sub ProbeOp {
},
header => {
'use' => 'literal',
namespace => 'http://schemas.xmlsoap.org/ws/2004/08/addressing',
encodingStyle => '',
parts => [qw(WSDiscovery10::Elements::To WSDiscovery10::Elements::Action)],
},
headerfault => {

View File

@ -24,6 +24,11 @@ our $typemap_1 = {
'ProbeMatches/ProbeMatch/EndpointReference' => 'WSDiscovery10::Types::EndpointReferenceType',
'ProbeMatches/ProbeMatch/EndpointReference/ReferenceProperties' => 'WSDiscovery10::Types::ReferencePropertiesType',
'ProbeMatches/ProbeMatch/EndpointReference/PortType' => 'WSDiscovery10::Types::AttributedQName'
'MessageID' => 'WSDiscovery10::Elements::MessageID',
'RelatesTo' => '__SKIP__',
'To' => '__SKIP__',
'Action' => '__SKIP__',
'AppSequence' => '__SKIP__',
};
;