From bbd7d09cb0bd3e3675a8521d70c69581b007579a Mon Sep 17 00:00:00 2001
From: "Paul Buetow (pluto.buetow.org)" <paul@buetow.org>
Date: Sat, 7 Sep 2013 17:55:51 +0200
Subject: remove stat logging

---
 Makefile               |  6 +-----
 TODO                   |  1 -
 Xerl/Page/Parameter.pm |  1 -
 Xerl/Page/Templates.pm | 26 --------------------------
 4 files changed, 1 insertion(+), 33 deletions(-)

diff --git a/Makefile b/Makefile
index 2151b3e..cbc8d84 100644
--- a/Makefile
+++ b/Makefile
@@ -1,8 +1,4 @@
-all:	stats
-clean:
-	rm -Rf cache/*
-stats:	clean
-	perl scripts/stats.pl
+all:	
 replace:
 	for i in index.pl Xerl.pm xerl.conf; \
 	do \
diff --git a/TODO b/TODO
index e159ca7..377e018 100644
--- a/TODO
+++ b/TODO
@@ -2,4 +2,3 @@ Hint: Run 'make todo' to see everything in every file what is to do!
 
 TODO: - Documentation of all features/options
 TODO: - Fix <foo><bar></bar></foo> bug
-TODO: - Remove logging
diff --git a/Xerl/Page/Parameter.pm b/Xerl/Page/Parameter.pm
index 72c44c9..3f580a7 100644
--- a/Xerl/Page/Parameter.pm
+++ b/Xerl/Page/Parameter.pm
@@ -55,7 +55,6 @@ sub parse($) {
     }
 
     if ( $config->devel_exists() ) {
-        $config->set_nolog(1);
         $config->set_nocache(1);
     }
 
diff --git a/Xerl/Page/Templates.pm b/Xerl/Page/Templates.pm
index e706840..efe7321 100644
--- a/Xerl/Page/Templates.pm
+++ b/Xerl/Page/Templates.pm
@@ -161,32 +161,6 @@ sub parse($) {
         $io->fwrite();
     }
 
-    unless ( $config->nolog_exists() ) {
-        my @time = localtime;
-        my $ctx  = Digest::MD5->new();
-        $ctx->add( $ENV{REMOTE_ADDR} );
-
-        my Xerl::Tools::FileIO $stats = Xerl::Tools::FileIO->new(
-            path     => $config->get_statsroot(),
-            filename => sprintf(
-                "\%02d%02d%02d", $time[5] - 100, $time[4] + 1, $time[3]
-              )
-              . '.log',
-            array => [
-                time() . ' '
-                  . $ctx->hexdigest() . ' '
-
-                  #. $ENV{REMOTE_ADDR} . ' '
-                  . $config->get_host()
-                  . $config->get_request_subdir() . ' '
-                  . $config->get_site() . ' '
-                  . $ENV{HTTP_USER_AGENT} . "\n"
-            ],
-        );
-
-        $stats->fwriteappend();
-    }
-
     $self->parsetemplate('$$');    # Parsing dynamic vars.
     return undef;
 }
-- 
cgit v1.2.3