ZaneYork
/
zoneminder
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Handle there being no services in the response

This commit is contained in:
Isaac Connor 2020-11-20 16:35:48 -05:00
parent ec5e6b392b
commit 1b5448ede4
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
onvif/modules/lib/ONVIF/Client.pm
View File

@ -117,7 +117,9 @@ sub get_service_urls {
} }
); );
if ( $result ) { if ( $result ) {
foreach my $svc ( @{ $result->get_Service() } ) { my $services = $result->get_Service();
if ( $services ) {
foreach my $svc ( @{ $services } ) {
my $short_name = $namespace_map{$svc->get_Namespace()}; my $short_name = $namespace_map{$svc->get_Namespace()};
my $url_svc = $svc->get_XAddr()->get_value(); my $url_svc = $svc->get_XAddr()->get_value();
if ( defined $short_name && defined $url_svc ) { if ( defined $short_name && defined $url_svc ) {
@ -125,6 +127,7 @@ sub get_service_urls {
$self->set_service($short_name, 'url', $url_svc); $self->set_service($short_name, 'url', $url_svc);
} }
} }
}
#} else { #} else {
#print "No results from GetServices: $result\n"; #print "No results from GetServices: $result\n";
} }