Rodolphe Quiedeville a écrit :
> 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,
Sorry it was the wrong patch file.
--
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
[email protected]
http://lists.openstreetmap.org/cgi-bin/mailman/listinfo/tilesathome
