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

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

@ -117,12 +117,15 @@ sub get_service_urls {
}
);
if ( $result ) {
foreach my $svc ( @{ $result->get_Service() } ) {
my $short_name = $namespace_map{$svc->get_Namespace()};
my $url_svc = $svc->get_XAddr()->get_value();
if ( defined $short_name && defined $url_svc ) {
#print "Got $short_name service\n";
$self->set_service($short_name, 'url', $url_svc);
my $services = $result->get_Service();
if ( $services ) {
foreach my $svc ( @{ $services } ) {
my $short_name = $namespace_map{$svc->get_Namespace()};
my $url_svc = $svc->get_XAddr()->get_value();
if ( defined $short_name && defined $url_svc ) {
#print "Got $short_name service\n";
$self->set_service($short_name, 'url', $url_svc);
}
}
}
#} else {