3 # DO NOT EDIT - This file is being maintained by Chef
8 use File::Temp qw(tmpnam);
10 use LockFile::Simple qw(lock unlock);
12 my $tiledir = shift @ARGV;
14 lock($tiledir) || exit 0;
16 my $tempfile = tmpnam();
18 if (df($tiledir)->{per} > 90)
20 system("find", $tiledir, "-xdev", "-type", "f", "-name", "*.meta", "-atime", "+35", "-fprintf", $tempfile, "%A@ %p\n");
22 open(TILES, "-|", "sort", "-n", $tempfile) || die "Can't open $tempfile: $!";
24 while (df($tiledir)->{per} > 80)
28 if (defined(my $line = readline(TILES)))
32 my($time,$tile) = split(/ /, $line);
34 unlink($tile) || warn "Can't remove $tile: $!";
47 warn "Tile expiry finished before threshold reached" if df($tiledir)->{per} > 80;