From 1ae705ab0e96ac9c959e10cf2738c34d7fb3d7e6 Mon Sep 17 00:00:00 2001 From: stan Date: Wed, 5 May 2004 09:08:47 +0000 Subject: [PATCH] Now removes any old images file, not just wap ones. git-svn-id: http://svn.zoneminder.com/svn/zm/trunk@1051 e3e1d417-86f3-4887-817a-d78f3d33393f --- scripts/zmaudit.pl.z | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/scripts/zmaudit.pl.z b/scripts/zmaudit.pl.z index 745e33013..bcc6efa8c 100755 --- a/scripts/zmaudit.pl.z +++ b/scripts/zmaudit.pl.z @@ -289,10 +289,10 @@ do } } - # Now delete any old wap image files - if ( my @old_files = grep { -M > $max_image_age } <$image_path/*-wap-*.{jpg,gif,wbmp}> ) + # Now delete any old image files + if ( my @old_files = grep { -M > $max_image_age } <$image_path/*.{jpg,gif,wbmp}> ) { - print( "Deleting ".int(@old_files)." old wap images\n" ); + print( "Deleting ".int(@old_files)." old images\n" ); my $untainted_old_files = join( ";", @old_files ); ( $untainted_old_files ) = ( $untainted_old_files =~ /^(.*)$/ ); unlink( split( ";", $untainted_old_files ) );