Fix home RecycleBin purge by using mtime instead of atime
This commit is contained in:
parent
1fb3be07ab
commit
74846a25bb
|
@ -46,8 +46,8 @@ foreach my $user ($a->get_all_by_prop(type=>'user')){
|
|||
sub remove{
|
||||
# Remove files with last modification older than $retention
|
||||
if ( -f ){
|
||||
my $atime = stat($_)->atime;
|
||||
(time() - $atime > $retention) && unlink($_);
|
||||
my $mtime = stat($_)->mtime;
|
||||
(time() - $mtime > $retention) && unlink($_);
|
||||
}
|
||||
# Remove empty directories
|
||||
elsif ( -d ){
|
||||
|
|
Loading…
Reference in New Issue