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

Put swap file File::find into an eval because it can die.

pull/4202/head
Isaac Connor 2024-07-16 10:11:52 -04:00
parent c9d5daf649
commit 04b58ab51e
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scripts/zmaudit.pl.in
View File

@ -836,9 +836,11 @@ FROM `Frames` WHERE `EventId`=?';
unlink( split( /;/, $untainted_old_files ) ); unlink( split( /;/, $untainted_old_files ) );
} }
eval {
# Now delete any old swap files # Now delete any old swap files
( my $swap_image_root ) = ( $Config{ZM_PATH_SWAP} =~ /^(.*)$/ ); # De-taint ( my $swap_image_root ) = ( $Config{ZM_PATH_SWAP} =~ /^(.*)$/ ); # De-taint
File::Find::find( { wanted=>\&deleteSwapImage, untaint=>1 }, $swap_image_root ); File::Find::find( { wanted=>\&deleteSwapImage, untaint=>1 }, $swap_image_root );
};
# Prune the Logs table if required # Prune the Logs table if required
if ( $Config{ZM_LOG_DATABASE_LIMIT} ) { if ( $Config{ZM_LOG_DATABASE_LIMIT} ) {