ONVIF: Fix probe type header and add To header

This commit is contained in:
Jon Burgess 2016-04-09 17:02:36 +01:00
parent fa56c17bdb
commit c1526b8fe5
1 changed files with 7 additions and 4 deletions

View File

@ -31,6 +31,7 @@ require ONVIF::Client;
require WSDiscovery10::Interfaces::WSDiscovery::WSDiscoveryPort; require WSDiscovery10::Interfaces::WSDiscovery::WSDiscoveryPort;
require WSDiscovery10::Elements::Types; require WSDiscovery10::Elements::Types;
require WSDiscovery10::Elements::Scopes; require WSDiscovery10::Elements::Scopes;
require WSDiscovery10::Elements::To;
require WSDiscovery::TransportUDP; require WSDiscovery::TransportUDP;
@ -178,9 +179,10 @@ sub discover
my $result = $svc_discover->ProbeOp( my $result = $svc_discover->ProbeOp(
{ # WSDiscovery::Types::ProbeType { # WSDiscovery::Types::ProbeType
Types => { 'dn:NetworkVideoTransmitter', 'tds:Device' }, # QNameListType Types => 'http://www.onvif.org/ver10/network/wsdl:NetworkVideoTransmitter http://www.onvif.org/ver10/device/wsdl:Device', # QNameListType
Scopes => { value => '' }, Scopes => { value => '' },
},, },
WSDiscovery10::Elements::To->new({ value => 'urn:schemas-xmlsoap-org:ws:2005:04:discovery' })
); );
# print $result . "\n"; # print $result . "\n";
@ -197,9 +199,10 @@ sub discover
$result = $svc_discover->ProbeOp( $result = $svc_discover->ProbeOp(
{ # WSDiscovery::Types::ProbeType { # WSDiscovery::Types::ProbeType
Types => { 'dn:NetworkVideoTransmitter', 'tds:Device' }, # QNameListType Types => 'http://www.onvif.org/ver10/network/wsdl:NetworkVideoTransmitter http://www.onvif.org/ver10/device/wsdl:Device', # QNameListType
Scopes => { value => '' }, Scopes => { value => '' },
},, },
WSDiscovery10::Elements::To->new({ value => 'urn:schemas-xmlsoap-org:ws:2005:04:discovery' })
); );
# print $result . "\n"; # print $result . "\n";