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

Add ModectDuringPTZ and suspend and resume functions

pull/3222/head
Isaac Connor 2021-04-23 14:51:08 -04:00
parent e256d9a5a8
commit 4843cb8593
1 changed files with 35 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
scripts/ZoneMinder/lib/ZoneMinder/Monitor.pm
View File

@ -27,11 +27,13 @@ package ZoneMinder::Monitor;
use 5.006;
use strict;
use warnings;
use Time::HiRes qw(usleep);
require ZoneMinder::Base;
require ZoneMinder::Object;
require ZoneMinder::Storage;
require ZoneMinder::Server;
require ZoneMinder::Memory;
require ZoneMinder::Monitor_Status;
#our @ISA = qw(Exporter ZoneMinder::Base);
@ -115,6 +117,7 @@ $serial = $primary_key = 'Id';
TrackDelay
ReturnLocation
ReturnDelay
ModectDuringPTZ
DefaultRate
DefaultScale
SignalCheckPoints
@ -200,6 +203,7 @@ $serial = $primary_key = 'Id';
TrackDelay => undef,
ReturnLocation => -1,
ReturnDelay => undef,
ModectDuringPTZ => 0,
DefaultRate => 100,
DefaultScale => 100,
SignalCheckPoints => 0,
@ -254,6 +258,37 @@ sub Status {
return $$self{Status};
}
sub connect {
my $self = shift;
return ZoneMinder::Memory::zmMemVerify($self);
}
sub disconnect {
my $self = shift;
ZoneMinder::Memory::zmMemInvalidate($self); # Close our file handle to the zmc process we are about to end
}
sub suspendMotionDetection {
my $self = shift;
return 0 if ! ZoneMinder::Memory::zmMemVerify($self);
while (ZoneMinder::Memory::zmMemRead($self, 'shared_data:active', 1)) {
ZoneMinder::Logger::Debug(1, 'Suspending motion detection');
ZoneMinder::Memory::zmMonitorSuspend($self);
usleep(100000);
}
ZoneMinder::Logger::Debug(1,ZoneMinder::Memory::zmMemRead($self, 'shared_data:active', 1));
}
sub resumeMotionDetection {
my $self = shift;
return 0 if ! ZoneMinder::Memory::zmMemVerify($self);
#while (zmMemRead($self, 'shared_data:active', 1)) {
ZoneMinder::Logger::Debug(1, 'Resuming motion detection');
ZoneMinder::Memory::zmMonitorResume($self);
#}
return 1;
}
1;
__END__