Purge based on atime, not mtime (as the touch option in the recycle vfs only change atime, not mtime)

11 years ago · 559c374f3f
parent 2a9010d193
commit 559c374f3f
1 changed files with 2 additions and 2 deletions
--- a/root/etc/cron.daily/purge-homes-recycle
+++ b/root/etc/cron.daily/purge-homes-recycle
@ -45,8 +45,8 @@ foreach my $user ($a->get_all_by_prop(type=>'user')){
 sub remove{
    # Remove files with last modification older than $retention
    if ( -f ){
-        my $mtime = stat($_)->mtime;
+        my $atime = stat($_)->atime;
-        (time() - $mtime > $retention) && unlink($_);
+        (time() - $atime > $retention) && unlink($_);
    }
    # Remove empty directories
    elsif ( -d ){