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

configDB.pm: improve config file read

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@11762 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
betateilchen 2016-07-07 16:32:14 +00:00
parent 139fd9df05
commit e20758ec1c
1 changed files with 15 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
fhem/configDB.pm
View File

@ -1,5 +1,6 @@
# $Id$
=pod
##############################################################################
#
# configDB.pm
@ -115,18 +116,18 @@
# added configdb dump (for postgresql)
#
# 2016-07-03 - added support for multiple hosts (experimental)
#
# 2016-07-04 - fixed improve config file read
# 2016-07-07 - bugfix select configuration
#
##############################################################################
#
=cut
use strict;
use warnings;
use Text::Diff;
use DBI;
use Sys::Hostname;
use Data::Dumper;
#use Data::Dumper;
##################################################
# Forward declarations for functions in fhem.pl
@ -187,7 +188,8 @@ if(!open(CONFIG, 'configDB.conf')) {
my @config;
while (<CONFIG>){
my $line = $_;
$line =~ s/^\s+|\s+$//g;
$line =~ s/^\s+|\s+$//g; # remove whitespaces etc.
$line =~ s/;$/;;/; # duplicate ; at end-of-line
push (@config,$line) if($line !~ m/^#/ && length($line) > 0);
}
close CONFIG;
@ -195,28 +197,23 @@ close CONFIG;
use vars qw(%configDB);
my %dbconfig;
##eval join("", @config);
## begin experimental
## support multiple hosts from one fhem installation
##
my $configs = join("",@config);
my @configs = split(/;\n/,$configs);
my @configs = split(/;;/,$configs);
my $count = @configs;
my $fhemhost = hostname;
if ($count > 1) {
my $fhemhost = hostname;
foreach my $c (@configs) {
next unless $c =~ m/^%dbconfig.*/;
$dbconfig{fhemhost} = "";
eval $c;
last if ($dbconfig{fhemhost} eq $fhemhost);
}
eval $configs[0] unless (defined($dbconfig{fhemhost}) && length($dbconfig{fhemhost}))
eval $configs[0] if ($dbconfig{fhemhost} eq "");
} else {
eval $configs[0];
}
##
## end experimental
my $cfgDB_dbconn = $dbconfig{connection};
my $cfgDB_dbuser = $dbconfig{user};
@ -225,6 +222,8 @@ my $cfgDB_dbtype;
%dbconfig = ();
@config = ();
$configs = undef;
$count = undef;
if($cfgDB_dbconn =~ m/pg:/i) {
$cfgDB_dbtype ="POSTGRESQL";