FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-12 16:46:35 +00:00
Code Issues Releases Wiki Activity

maintainDB.cgi: add maintenance script

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@14770 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
betateilchen 2017-07-23 09:34:01 +00:00
parent a96d632d5b
commit f1f6e56362
1 changed files with 25 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
fhem/contrib/statistics/2017/maintainDB.cgi Executable file
View File

@ -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;