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

fhem.pl: add some debugging aid to localize return message on startup (Forum #91031)

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@17329 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2018-09-12 07:03:11 +00:00
parent 876c36700f
commit 53599cb19d
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
fhem/fhem.pl
View File

@ -1342,15 +1342,21 @@ CommandInclude($$)
$currcfgfile = $arg; $currcfgfile = $arg;
my $bigcmd = ""; my $bigcmd = "";
my $lineno = 0;
$rcvdquit = 0; $rcvdquit = 0;
while(my $l = <$fh>) { while(my $l = <$fh>) {
$lineno++;
$l =~ s/[\r\n]//g; $l =~ s/[\r\n]//g;
if($l =~ m/^(.*)\\ *$/) { # Multiline commands if($l =~ m/^(.*)\\ *$/) { # Multiline commands
$bigcmd .= "$1\n"; $bigcmd .= "$1\n";
} else { } else {
my $tret = AnalyzeCommandChain($cl, $bigcmd . $l); my $tret = AnalyzeCommandChain($cl, $bigcmd . $l);
push @ret, $tret if(defined($tret)); if(defined($tret)) {
Log 5, "$arg line $lineno returned >$tret<";
push @ret, $tret;
}
$bigcmd = ""; $bigcmd = "";
} }
last if($rcvdquit); last if($rcvdquit);