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

Allow space after \

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@304 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2008-12-23 15:53:13 +00:00
parent c861810ddd
commit b94ea1df5a
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
fhem/fhem.pl
View File

@ -148,7 +148,7 @@ my %intAt; # Internal at timer hash.
my $nextat; # Time when next timer will be triggered. my $nextat; # Time when next timer will be triggered.
my $intAtCnt=0; my $intAtCnt=0;
my $AttrList = "room comment"; my $AttrList = "room comment";
my $cvsid = '$Id: fhem.pl,v 1.59 2008-12-09 14:12:40 rudolfkoenig Exp $'; my $cvsid = '$Id: fhem.pl,v 1.60 2008-12-23 15:53:13 rudolfkoenig Exp $';
my $namedef = my $namedef =
"where <name> is either:\n" . "where <name> is either:\n" .
"- a single device name\n" . "- a single device name\n" .
@ -467,7 +467,7 @@ AnalyzeInput($)
my ($cmd, $rest) = split("\n", $client{$c}{buffer}, 2); my ($cmd, $rest) = split("\n", $client{$c}{buffer}, 2);
$client{$c}{buffer} = $rest; $client{$c}{buffer} = $rest;
if($cmd) { if($cmd) {
if($cmd =~ m/\\$/) { # Multi-line if($cmd =~ m/\\ *$/) { # Multi-line
$client{$c}{prevlines} .= $cmd . "\n"; $client{$c}{prevlines} .= $cmd . "\n";
} else { } else {
if($client{$c}{prevlines}) { if($client{$c}{prevlines}) {
@ -516,7 +516,7 @@ AnalyzeCommand($$)
if($cmd =~ m/^{.*}$/s) { # Perl code if($cmd =~ m/^{.*}$/s) { # Perl code
$cmd =~ s/\\\n/ /g; # Multi-line $cmd =~ s/\\ *\n/ /g; # Multi-line
# Make life easier for oneliners: # Make life easier for oneliners:
%value = (); %value = ();
foreach my $d (keys %defs) { foreach my $d (keys %defs) {
@ -661,7 +661,7 @@ CommandInclude($$)
$rcvdquit = 0; $rcvdquit = 0;
while(my $l = <$fh>) { while(my $l = <$fh>) {
$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 {
AnalyzeCommandChain($cl, $bigcmd . $l); AnalyzeCommandChain($cl, $bigcmd . $l);