Remove with {ZM_PATH_SWAP}
This commit is contained in:
parent
3709ac411d
commit
8eb5e53aad
|
@ -119,7 +119,6 @@ chdir( EVENT_PATH );
|
||||||
my $max_image_age = 6/24; # 6 hours
|
my $max_image_age = 6/24; # 6 hours
|
||||||
my $max_swap_age = 24/24; # 24 hours
|
my $max_swap_age = 24/24; # 24 hours
|
||||||
my $image_path = IMAGE_PATH;
|
my $image_path = IMAGE_PATH;
|
||||||
my $swap_image_path = $Config{ZM_PATH_SWAP};
|
|
||||||
|
|
||||||
my $loop = 1;
|
my $loop = 1;
|
||||||
my $cleaned = 0;
|
my $cleaned = 0;
|
||||||
|
@ -498,7 +497,7 @@ MAIN: while( $loop ) {
|
||||||
}
|
}
|
||||||
|
|
||||||
# Now delete any old swap files
|
# Now delete any old swap files
|
||||||
( my $swap_image_root ) = ( $swap_image_path =~ /^(.*)$/ ); # 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
|
||||||
|
|
Loading…
Reference in New Issue