From 1ea43f2056ba8e4d0222e6e328d354547068d2a3 Mon Sep 17 00:00:00 2001
From: betateilchen <betateilchen@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Sun, 23 Jul 2017 09:34:01 +0000
Subject: [PATCH] maintainDB.cgi: add maintenance script

git-svn-id: https://svn.fhem.de/fhem/trunk@14770 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/contrib/statistics/2017/maintainDB.cgi | 25 +++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100755 fhem/contrib/statistics/2017/maintainDB.cgi

diff --git a/fhem/contrib/statistics/2017/maintainDB.cgi b/fhem/contrib/statistics/2017/maintainDB.cgi
new file mode 100755
index 000000000..196b7964c
--- /dev/null
+++ b/fhem/contrib/statistics/2017/maintainDB.cgi
@@ -0,0 +1,25 @@
+#!/usr/bin/perl -w
+# $Id$
+
+use strict;
+use warnings;
+use DBI;
+
+my $limit = "datetime('now', '-13 months')";
+
+# directory cointains databases
+my $datadir  = "./data";
+my $dbf      = "$datadir/fhem_statistics_2017.sqlite";
+my $dsn      = "dbi:SQLite:dbname=$dbf";
+my $sth;
+my $dbh      = DBI->connect($dsn,"","", { RaiseError => 1, ShowErrorStatement => 1 }) ||
+               die "Cannot connect: $DBI::errstr";
+
+print "Deleting records...\n";
+$dbh->do("DELETE FROM jsonNodes where lastSeen < $limit");
+print "VACUUM...\n";
+$dbh->do("VACUUM");
+$dbh->disconnect();
+print "Done.\n";
+
+1;