From 31a4c95a00ffaf0a31dea1fafd24072e2268c2a5 Mon Sep 17 00:00:00 2001
From: Tom Hughes <tom@compton.nu>
Date: Wed, 11 Sep 2013 18:54:45 +0100
Subject: [PATCH] Warn if tile expiry doesn't manage to delete enough tiles

---
 cookbooks/tile/templates/default/cleanup-tiles.erb | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/cookbooks/tile/templates/default/cleanup-tiles.erb b/cookbooks/tile/templates/default/cleanup-tiles.erb
index e58e0bdbf..73baaffd9 100644
--- a/cookbooks/tile/templates/default/cleanup-tiles.erb
+++ b/cookbooks/tile/templates/default/cleanup-tiles.erb
@@ -17,7 +17,7 @@ if (df($tiledir)->{per} > 90)
 
     open(TILES, "-|", "sort", "-n", $tempfile) || die "Can't open $tempfile: $!";
 
-    while (df($tiledir)->{per} > 80  && ! eof(TILES))
+    while (df($tiledir)->{per} > 80)
     {
         for my $n (1..1000)
         {
@@ -29,12 +29,20 @@ if (df($tiledir)->{per} > 90)
 
                 unlink($tile) || warn "Can't remove $tile: $!";
             }
+            else
+            {
+                goto done;
+            }
         }
     }
 
+  done:
+
     close(TILES);
 }
 
 unlink($tempfile);
 
+warn "Tile expiry finished before threshold reached" if df($tiledir)->{per} > 80;
+
 exit 0;
-- 
2.43.2