FHEM/10_MQTT2_DEVICE.pm: add $CID for readingsList eval (Forum #101216)

git-svn-id: https://svn.fhem.de/fhem/trunk@20324 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig
2019-10-06 20:14:49 +00:00
parent 031d8c917a
commit d82ecd38ec

View File

@@ -134,7 +134,7 @@ MQTT2_DEVICE_Parse($$)
if($code =~ m/^{.*}$/s) {
$code = EvalSpecials($code, ("%TOPIC"=>$topic, "%EVENT"=>$value,
"%DEVICETOPIC"=>$hash->{DEVICETOPIC}, "%NAME"=>$hash->{NAME},
"%JSONMAP","\$defs{$dev}{JSONMAP}"));
"%CID"=>$cid, "%JSONMAP","\$defs{$dev}{JSONMAP}"));
my $ret = AnalyzePerlCommand(undef, $code);
if($ret && ref $ret eq "HASH") {
readingsBeginUpdate($hash);