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

Print out the returned profiles like profiles() used to do

This commit is contained in:
Isaac Connor 2020-05-12 10:49:47 -04:00
parent e950f3c843
commit e40c3d8487
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
scripts/zmonvif-probe.pl.in
View File

@ -102,7 +102,19 @@ if ( $action eq 'probe' ) {
$client->create_services();
if ( $action eq 'profiles' ) {
ZoneMinder::ONVIF::profiles($client);
my @profiles = ZoneMinder::ONVIF::profiles($client);
foreach my $profile ( @profiles ) {
my ( $token, $name, $encoding, $width, $height, $frame_rate_limit, $uri ) = @{$profile};
print join(', ', $token,
$name,
$encoding,
$width,
$height,
$frame_rate_limit,
$uri,
) . "\n";
} # end foreach profile
} elsif( $action eq 'move' ) {
my $dir = shift;
ZoneMinder::ONVIF::move($client, $dir);