[Tilesathome] diff of tilesGen.pl

[Rodolphe Quiedeville]

Hi,

I modified tilesGen.pl to write some statistical data in a text file, I
will use this file to make statistics on our different server runnning
[EMAIL PROTECTED] software.

Please feel free to include it in SVN Repository.

Regards,


-- 
Rodolphe Quiédeville - Artisan Logiciel Libre
http://rodolphe.quiedeville.org/
Travaillons Libre - http://fr.lolix.org/

Index: tilesGen.pl
===================================================================
--- tilesGen.pl	(révision 8167)
+++ tilesGen.pl	(copie de travail)
@@ -693,6 +693,15 @@
 {
     my ($X, $Y, $Zoom) = @_;
     
+    ## TODO: add this to config file
+    my $logFile = "/tmp/tah.log";
+
+    open(my $fpLog, ">$logFile");
+    if ($fpLog) {
+	print $fpLog time()." Begin tile x=$X y=$Y at zoom=$Zoom\n";
+	close $fpLog;
+    }
+
     my ($N, $S) = Project($Y, $Zoom);
     my ($W, $E) = ProjectL($X, $Zoom);
     
@@ -1108,6 +1117,13 @@
     }
 
     foreach my $file(@tempfiles) { killafile($file) if (!$Config->get("Debug")); }
+
+    open(my $fpLog, ">/tmp/$logFile");
+    if ($fpLog) {
+	print $fpLog time()." End tile x=$X y=$Y at zoom=$Zoom\n";
+	close $fpLog;
+    }
+
     return 1;
 }
 

_______________________________________________
Tilesathome mailing list
Tilesathome@openstreetmap.org
http://lists.openstreetmap.org/cgi-bin/mailman/listinfo/tilesathome