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

detaint calls for concurrent zmfilter.pl

This commit is contained in:
Isaac Connor 2016-02-05 13:14:04 -05:00
parent e106a86f5e
commit 2ca2b07a5e
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
scripts/zmfilter.pl.in
View File

@ -27,7 +27,7 @@ zmfilter.pl - ZoneMinder tool to filter events
=head1 SYNOPSIS
zmfilter.pl [-f <filter name>,--filter=<filter name>] [-fid <filter id>,--filter_id=<filter id>] | -v, --version
zmfilter.pl [-f <filter name>,--filter=<filter name>] [--filter_id=<filter id>] | -v, --version
=head1 DESCRIPTION
@ -39,7 +39,7 @@ matching events.
-f{filter name}, --filter={filter name} - The name of a specific filter to run
-fid {filter id}, --filter_id={filter id}- The id of a specific filter to run
--filter_id={filter id} - The id of a specific filter to run
-v, --version - Print ZoneMinder version
=cut
@ -76,7 +76,7 @@ my $version = 0;
GetOptions(
'filter=s' =>\$filter_name,
'filter_id=s' =>\$filter_id,
'filter_id=s' =>\$filter_id,
'version' =>\$version
) or pod2usage(-exitstatus => -1);
@ -188,8 +188,11 @@ while( 1 ) {
foreach my $filter ( @$filters ) {
if ( $$filter{Concurrent} and ! $filter_id ) {
Debug("Running concurrent filter process for $$filter{Name}");
`$0 -fid $$filter{Id}`;
my ( $proc ) = $0 =~ /(\S+)/;
my ( $id ) = $$filter{Id} =~ /(\d+)/;
Debug("Running concurrent filter process ($proc) for $id $$filter{Name}");
`$proc -filter_id $id`;
} else {
checkFilter( $filter );
}