better stats for touching files

[osmrrze.git] / scripts / osmtilecleanup.pl

diff --git a/scripts/osmtilecleanup.pl b/scripts/osmtilecleanup.pl
index fcbeac58145aa0b4a3009df5049af04f03afd275..bc931a15ee953a4e2e0a55cb9c3bf69849fefbdc 100755 (executable)
--- a/scripts/osmtilecleanup.pl
+++ b/scripts/osmtilecleanup.pl
@@ -201,7 +201,7 @@ sub dohandleexpiredlist() {
       }
     }
   }
-  $filesdone = 0; $filesseen = 0;
+  my $filesdone = 0; my $filesseen = 0; my $filesalreadytouched = 0;
   foreach $z (sort(keys(%rerenderlist))) {
     foreach $x (sort(keys(%{$rerenderlist{$z}}))) {
       foreach $y (sort(keys(%{$rerenderlist{$z}{$x}}))) {
@@ -220,8 +220,10 @@ sub dohandleexpiredlist() {
             my $curtime = time();
             if (($curtime - $setbackinterval) > $mtime) {
               # Do not touch again - it's already 20 years back.
-              print("Not touching '$p', it's over 20 years old so probably has already been set back.\n");
+              #print("Not touching '$p', it's over 20 years old so probably has already been set back.\n");
+              $filesalreadytouched++;
             } else {
+              $filesdone++;
               my $newmtime = $mtime - $setbackinterval;
               print("Touching '$p' (z=$z x=$x y=$y)\n");
               if (utime($curtime, $newmtime, $p) < 1) {
@@ -239,7 +241,7 @@ sub dohandleexpiredlist() {
   if ($action == 3) {
     print("Sent re-rendering-requests for $filesdone files that actually existed (of $filesseen candidates)\n");
   } elsif ($action == 4) {
-    print("Touched $filesdone files (of $filesseen candidates)\n");
+    print("Touched $filesdone files ($filesseen candidates, $filesalreadytouched already touched)\n");
   }
 }