Public/fhem-mirror
1
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-04 22:19:38 +00:00
Code Issues Packages Projects Releases Wiki Activity

98_HTTPMOD: fix a bug concerning the attr list

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@24708 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
StefanStrobel 2021-07-06 17:15:46 +00:00
parent 3c38fdf824
commit d21d4b48f8
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
FHEM/98_HTTPMOD.pm
View File

@ -21,6 +21,7 @@
# First version: 25.12.2013 # First version: 25.12.2013
# #
# Todo: # Todo:
# set..IExpr etc. von AttrVal auf GetFAttr umstellen, damit auch generische Attribute ohne Num funktionieren
# setXYHintExpression zum dynamischen Ändern / Erweitern der Hints # setXYHintExpression zum dynamischen Ändern / Erweitern der Hints
# extractAllReadings mit Filter / Prefix # extractAllReadings mit Filter / Prefix
# definierbarer prefix oder Suffix für Readingsnamen wenn sie von unterschiedlichen gets über readingXY erzeugt werden # definierbarer prefix oder Suffix für Readingsnamen wenn sie von unterschiedlichen gets über readingXY erzeugt werden
@ -140,7 +141,7 @@ BEGIN {
)); ));
}; };
my $Module_Version = '4.1.09 - 24.6.2021'; my $Module_Version = '4.1.10 - 6.7.2021';
my $AttrList = join (' ', my $AttrList = join (' ',
'(reading|get|set)[0-9]+(-[0-9]+)?Name', '(reading|get|set)[0-9]+(-[0-9]+)?Name',
@ -266,8 +267,8 @@ my $AttrList = join (' ',
'model', # for attr templates 'model', # for attr templates
'regexDecode', 'regexDecode',
'bodyDecode', 'bodyDecode',
'regexCompile') . 'regexCompile',
$main::readingFnAttributes; $main::readingFnAttributes);
######################################################################### #########################################################################
@ -1246,6 +1247,7 @@ sub SetFn {
# Konvertiere input mit IExpr falls definiert # Konvertiere input mit IExpr falls definiert
my $exp = AttrVal($name, "set${setNum}Expr", ""); # old syntax for input in set my $exp = AttrVal($name, "set${setNum}Expr", ""); # old syntax for input in set
$exp = AttrVal($name, "set${setNum}IExpr", $exp); # new syntax overrides old one $exp = AttrVal($name, "set${setNum}IExpr", $exp); # new syntax overrides old one
#Log3 $name, 5, "$name: set calls EvalExpr with exp $exp";
$rawVal = EvalExpr($hash, {expr => $exp, val => $rawVal, '@setValArr' => \@setValArr, action => "set${setNum}IExpr"}); $rawVal = EvalExpr($hash, {expr => $exp, val => $rawVal, '@setValArr' => \@setValArr, action => "set${setNum}IExpr"});
Log3 $name, 4, "$name: set will now set $setName -> $rawVal"; Log3 $name, 4, "$name: set will now set $setName -> $rawVal";
} }