FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-12 22:56:34 +00:00
Code Issues Releases Wiki Activity

fhem.pl: allow $EVENT in multiple perl-commands in a chain. (Forum #44297)

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@9934 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2015-11-19 10:12:56 +00:00
parent 714a983be4
commit 09ae4641a2
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
fhem/fhem.pl
View File

@ -44,7 +44,7 @@ sub AddDuplicate($$);
sub AnalyzeCommand($$;$);
sub AnalyzeCommandChain($$;$);
sub AnalyzeInput($);
sub AnalyzePerlCommand($$);
sub AnalyzePerlCommand($$;$);
sub AssignIoPort($;$);
sub AttrVal($$$);
sub CallFn(@);
@ -932,9 +932,9 @@ AnalyzeCommandChain($$;$)
#####################################
sub
AnalyzePerlCommand($$)
AnalyzePerlCommand($$;$)
{
my ($cl, $cmd) = @_;
my ($cl, $cmd, $calledFromChain) = @_;
$cmd =~ s/\\ *\n/ /g; # Multi-line. Probably not needed anymore
@ -967,7 +967,7 @@ AnalyzePerlCommand($$)
. $cmd;
# Normally this is deleted in AnalyzeCommandChain, but ECMDDevice calls us
# directly, and combining perl with something else isnt allowed anyway.
$evalSpecials = undef;
$evalSpecials = undef if(!$calledFromChain);
}
$cmdFromAnalyze = $cmd;
@ -991,7 +991,7 @@ AnalyzeCommand($$;$)
if($cmd =~ m/^{.*}$/s) { # Perl code
return "Forbidden command $cmd." if($allowed && $allowed !~ m/\bperl\b/);
return AnalyzePerlCommand($cl, $cmd);
return AnalyzePerlCommand($cl, $cmd, 1);
}
if($cmd =~ m/^"(.*)"$/s) { # Shell code in bg, to be able to call us from it