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

View File

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