better stats for touching files

diff --git a/scripts/osmtilecleanup.pl b/scripts/osmtilecleanup.pl
index a63d89a68678efe5d4ab26b7e6c83ee8c5c28511..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}}))) {
@@ -221,6 +221,7 @@ sub dohandleexpiredlist() {
             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");
+              $filesalreadytouched++;
             } else {
               $filesdone++;
               my $newmtime = $mtime - $setbackinterval;
@@ -240,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");
   }
 }