FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-09 07:44:19 +00:00
Code Issues Releases Wiki Activity

betateilchen: debug code

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@18301 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
betateilchen 2019-01-17 15:32:40 +00:00
parent 4136991831
commit 4380191603
1 changed files with 7 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
fhem/contrib/betateilchen/debug/configDB.pm
View File

@ -218,18 +218,13 @@ foreach my $line (@c) {
}
use Data::Dumper;
print Dumper @config;
return 0;
while (<CONFIG>){
my $line = $_;
$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;
#while (<CONFIG>){
# my $line = $_;
# $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;
use vars qw(%configDB);