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

Better debug output on errors. Use libXML to pretty-print the returned XML

pull/2975/head
Isaac Connor 2020-05-12 11:14:56 -04:00
parent 5676e825c6
commit bbcb7f2c60
1 changed files with 22 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
scripts/ZoneMinder/lib/ZoneMinder/ONVIF.pm.in
View File

@ -271,11 +271,19 @@ sub profiles {
return;
}
if ( $verbose ) {
print "Received message:\n" . $result . "\n";
use XML::LibXML;
my $dom = XML::LibXML->load_xml(string=>$result);
print "Received message:\n" . $dom->toString(1) . "\n";
}
my @Profiles = @{ $result->get_Profiles() };
if ( !@Profiles ) {
print "No profiles returned from get_Profiles\n";
return;
}
print "Number of profiles found: " .(scalar @Profiles)."\n" if $verbose;
my @profiles;
foreach my $profile ( @{ $result->get_Profiles() } ) {
foreach my $profile ( @Profiles ) {
my $token = $profile->attr()->get_token() ;
my $Name = $profile->get_Name();
@ -297,11 +305,20 @@ sub profiles {
},
ProfileToken => $token, # ReferenceToken
} );
next if ! ( $StreamUri and $StreamUri->can('get_MediaUri') );
if ( ! ( $StreamUri and $StreamUri->can('get_MediaUri') ) ) {
print "No StreamUri or no MediaUri on profile $Name of type $streamtype\n" if $verbose;
next;
}
my $MediaUri = $StreamUri->get_MediaUri();
next if ! $MediaUri;
if ( ! $MediaUri ) {
print "No MediaUri in profile $Name of type $streamtype\n";
next;
}
my $Uri = $MediaUri->get_Uri();
next if ! $Uri;
if ( ! $Uri ) {
print "No Uri in profile $Name of type $streamtype\n";
next;
}
my $Resolution = $VideoEncoderConfiguration->get_Resolution();
my $Width = $Resolution ? $Resolution->get_Width() : 0;
my $Height = $Resolution ? $Resolution->get_Height() : 0;