98_HTTPMOD: fix a bug concerning the attr list

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

View File

@ -21,6 +21,7 @@
# First version: 25.12.2013
#
# Todo:
# set..IExpr etc. von AttrVal auf GetFAttr umstellen, damit auch generische Attribute ohne Num funktionieren
# setXYHintExpression zum dynamischen Ändern / Erweitern der Hints
# extractAllReadings mit Filter / Prefix
# 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 (' ',
'(reading|get|set)[0-9]+(-[0-9]+)?Name',
@ -266,8 +267,8 @@ my $AttrList = join (' ',
'model', # for attr templates
'regexDecode',
'bodyDecode',
'regexCompile') .
$main::readingFnAttributes;
'regexCompile',
$main::readingFnAttributes);
#########################################################################
@ -1246,6 +1247,7 @@ sub SetFn {
# Konvertiere input mit IExpr falls definiert
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
#Log3 $name, 5, "$name: set calls EvalExpr with exp $exp";
$rawVal = EvalExpr($hash, {expr => $exp, val => $rawVal, '@setValArr' => \@setValArr, action => "set${setNum}IExpr"});
Log3 $name, 4, "$name: set will now set $setName -> $rawVal";
}