nominatim: temporarily disable cleanup of WAL archive

[chef.git] / cookbooks / tile / templates / default / cleanup-tiles.erb

diff --git a/cookbooks/tile/templates/default/cleanup-tiles.erb b/cookbooks/tile/templates/default/cleanup-tiles.erb
index 5c914f3bbd8a7281e661bf220f372218554f957d..5766b84cb3c43ecf823fbd5bbc55623eba3ca110 100644 (file)
--- a/cookbooks/tile/templates/default/cleanup-tiles.erb
+++ b/cookbooks/tile/templates/default/cleanup-tiles.erb
@@ -5,15 +5,22 @@
 use strict;
 use warnings;
 
 use strict;
 use warnings;
 

+use File::Basename;

 use File::Temp qw(tmpnam);
 use Filesys::Df;
 use File::Temp qw(tmpnam);
 use Filesys::Df;

+use LockFile::Simple;

 
 my $tiledir = shift @ARGV;
 
 my $tiledir = shift @ARGV;

+
+my $lockmgr = LockFile::Simple->make(-autoclean => 1, -max => 1, -hold => 0, -warn => 0, -stale => 1);
+
+$lockmgr->lock("${tiledir}/cleanup") || exit 0;
+

 my $tempfile = tmpnam();
 
 my $tempfile = tmpnam();
 

-if (df($tiledir)->{per} > 90)
+if (df($tiledir)->{per} > 88)

 {
 {

-    system("find", $tiledir, "-xdev", "-type", "f", "-name", "*.meta", "-atime", "+45", "-fprintf", $tempfile, "%A@ %p\n");
+    system("find", $tiledir, "-xdev", "-name", "lost+found", "-prune", "-o", "-type", "f", "-name", "*.meta", "-atime", "+5", "-fprintf", $tempfile, "%A@ %p\n");

 
     open(TILES, "-|", "sort", "-n", $tempfile) || die "Can't open $tempfile: $!";
 
 
     open(TILES, "-|", "sort", "-n", $tempfile) || die "Can't open $tempfile: $!";
 


@@ -28,6 +35,11 @@ if (df($tiledir)->{per} > 90)
                 my($time,$tile) = split(/ /, $line);
 
                 unlink($tile) || warn "Can't remove $tile: $!";
                 my($time,$tile) = split(/ /, $line);
 
                 unlink($tile) || warn "Can't remove $tile: $!";

+
+                for (my $dir = dirname($tile); $dir ne $tiledir; $dir = dirname($dir))
+                {
+                    rmdir($dir);
+                }

             }
             else
             {
             }
             else
             {


@@ -45,4 +57,6 @@ if (df($tiledir)->{per} > 90)
 
 unlink($tempfile);
 
 
 unlink($tempfile);
 

+$lockmgr->unlock("${tiledir}/cleanup");
+

 exit 0;
 exit 0;