ZoneMinder
/
zoneminder
mirror of https://github.com/ZoneMinder/zoneminder.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Add command line option '-v' to zmonvif-script.pl

pull/479/head
altaroca 2014-08-18 17:46:59 +02:00
parent 5f1fda43a0
commit 56bdebc433
1 changed files with 25 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
onvif/scripts/zmonvif-probe.pl
View File

@ -36,6 +36,7 @@ require WSDiscovery::TransportUDP;
# ========================================================================
# Globals
my $verbose = 0;
my $client;
# =========================================================================
@ -96,8 +97,17 @@ sub interpret_messages
foreach my $response ( @responses ) {
if($verbose) {
print "Received message:\n" . $response . "\n";
}
my $result = deserialize_message($svc_discover, $response);
next if not $result;
if(not $result) {
if($verbose) {
print "Error deserializing message:\n" . $result . "\n";
}
next;
}
my $xaddr;
foreach my $l_xaddr (split ' ', $result->get_ProbeMatch()->get_XAddrs()) {
@ -148,6 +158,9 @@ sub discover
## try both soap versions
my %services;
if($verbose) {
print "Probing for SOAP 1.1\n"
}
my $svc_discover = WSDiscovery::Interfaces::WSDiscovery::WSDiscoveryPort->new({
# no_dispatch => '1',
});
@ -164,6 +177,9 @@ sub discover
interpret_messages($svc_discover, \@responses, \%services);
@responses = ();
if($verbose) {
print "Probing for SOAP 1.2\n"
}
$svc_discover = WSDiscovery::Interfaces::WSDiscovery::WSDiscoveryPort->new({
# no_dispatch => '1',
});
@ -189,7 +205,9 @@ sub profiles
my $result = $client->get_endpoint('media')->GetProfiles( { } ,, );
die $result if not $result;
# print $result . "\n";
if($verbose) {
print "Received message:\n" . $result . "\n";
}
my $profiles = $result->get_Profiles();
@ -259,6 +277,11 @@ sub metadata
my $action = shift;
if($ARGV[0] eq "-v") {
shift;
$verbose = 1;
}
if($action eq "probe") {
discover();
}