FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-15 03:59:11 +00:00
Code Issues Releases Wiki Activity

configDB - code improvement

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@5696 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
betateilchen 2014-04-29 17:23:30 +00:00
parent 5ead16c41f
commit 01a1c4598f
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
fhem/configDB.pm
View File

@ -101,6 +101,7 @@ sub _cfgDB_Rotate($);
sub _cfgDB_Uuid;
sub _cfgDB_Info;
sub _cfgDB_Filelist(;$);
sub _cfgDB_Reorg(;$$);
##################################################
# Read configuration file for DB connection
@ -330,6 +331,8 @@ if($cfgDB_dbconn =~ m/pg:/i) {
foreach (@rowList) { _cfgDB_InsertLine($fhem_dbh, $uuid, $_); }
$fhem_dbh->commit();
$fhem_dbh->disconnect();
my $maxVersions = AttrVal('configdb','maxversions',0);
_cfgDB_Reorg($maxVersions,1) if($maxVersions);
return 'configDB saved.';
}
@ -667,8 +670,8 @@ sub _cfgDB_Recover($) {
}
# delete old configurations
sub _cfgDB_Reorg(;$) {
my ($lastversion) = @_;
sub _cfgDB_Reorg(;$$) {
my ($lastversion,$quiet) = @_;
$lastversion = ($lastversion > 0) ? $lastversion : 3;
Log3('configDB', 4, "DB Reorg started, keeping last $lastversion versions.");
my $fhem_dbh = _cfgDB_Connect;
@ -676,6 +679,7 @@ sub _cfgDB_Reorg(;$) {
$fhem_dbh->do("delete from fhemversions where version > $lastversion");
$fhem_dbh->commit();
$fhem_dbh->disconnect();
return if(defined($quiet));
return " Result after database reorg:\n"._cfgDB_Info;
}