From f88384da3536ab627236b68c8800db04a985552f Mon Sep 17 00:00:00 2001
From: betateilchen <>
Date: Fri, 26 May 2017 11:39:53 +0000
Subject: [PATCH] statistics2.cgi: code cleanup

git-svn-id: https://svn.fhem.de/fhem/trunk@14382 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/contrib/statistics/statistics2.cgi | 16 +++++++++++-----
 1 file changed, 11 insertions(+), 5 deletions(-)

diff --git a/fhem/contrib/statistics/statistics2.cgi b/fhem/contrib/statistics/statistics2.cgi
index ff364d75f..635a1d1e2 100644
--- a/fhem/contrib/statistics/statistics2.cgi
+++ b/fhem/contrib/statistics/statistics2.cgi
@@ -1,5 +1,10 @@
 #!/usr/bin/perl -w
 # $Id$
+# ----------------------------------------
+# database insert provided by betateilchen
+# ----------------------------------------
+#
+
 use strict;
 use warnings;
 use Time::HiRes qw(time);
@@ -18,23 +23,24 @@ sub add2total();
 sub doAggregate();
 sub viewStatistics();
 
-my $start = time();
+my $start = time(); # used for generation time calculation
 
 my $ua    = $ENV{HTTP_USER_AGENT};
    $ua  //= "";
 my $geoip = $ENV{REMOTE_ADDR};
 my %data  = Vars();
 
-# directory cointains databases
+# database stuff
 my $datadir  = "./data";
 my $dbf      = "$datadir/fhem_statistics_2017.sqlite";
 my $dsn      = "dbi:SQLite:dbname=$dbf";
 my $dbh;
 my $sth;
-
-my $css    = "style.css";
 my $limit  = "datetime('now', '-12 months')";
-#my $limit = "datetime('now', '-2 hour')";
+
+
+# css stuff (to be changed for production use)
+my $css    = "style.css";
   
 # ---------- decide task ----------