Remove old WAP image files.

git-svn-id: http://svn.zoneminder.com/svn/zm/trunk@231 e3e1d417-86f3-4887-817a-d78f3d33393f
This commit is contained in:
stan 2003-01-03 14:41:04 +00:00
parent 466241a037
commit d1e08d888f
1 changed files with 13 additions and 0 deletions

View File

@ -38,6 +38,7 @@
use constant DB_NAME => "zm";
use constant DB_USER => "zmadmin";
use constant DB_PASS => "zmadminzm";
use constant IMAGE_PATH => "@WEB_PREFIX@";
use constant EVENT_PATH => "@WEB_PREFIX@/events";
use constant LOG_FILE => '/tmp/zmaudit.log';
@ -138,6 +139,8 @@ if ( $delay ) # Background mode
select( STDERR ); $| = 1;
select( LOG ); $| = 1;
}
my $max_image_age = 15/(24*60); # 15 Minutes
my $image_path = IMAGE_PATH;
do
{
my $fs_monitors;
@ -269,6 +272,16 @@ do
$res = $sth6->execute( $stat->{EventId} ) or die( "Can't execute: ".$sth8->errstr() );
}
}
# Now delete any old wap image files
if ( my @old_files = grep { -M > $max_image_age } <$image_path/*-wap-*.{jpg,gif,wbmp}> )
{
print( "Deleting ".int(@old_files)." old wap images\n" );
my $untainted_old_files = join( ";", @old_files );
( $untainted_old_files ) = ( $untainted_old_files =~ /^(.*)$/ );
unlink( split( ";", $untainted_old_files ) );
}
sleep( $delay ) if ( $delay );
} while( $delay );
if ( !$yes && !$report )