mhop/fhem
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

10_MQTT2_DEVICE.pm: check regexp syntax for readingsList (Forum #90145)

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@18610 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig
2019-02-16 10:22:29 +00:00
parent 9b093274d5
commit b04bd2f8e8
1 changed files with 7 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
fhem/FHEM/10_MQTT2_DEVICE.pm
View File

@@ -398,7 +398,10 @@ MQTT2_DEVICE_Attr($$)
}
}
MQTT2_DEVICE_addReading($dev, $param) if($atype eq "reading");
if($atype eq "reading") {
my $ret = MQTT2_DEVICE_addReading($dev, $param);
return $ret if($ret);
}
}
if($attrName eq "bridgeRegexp" && $type eq "set") {
@@ -461,9 +464,12 @@ MQTT2_DEVICE_addReading($$)
MQTT2_DEVICE_delReading($name);
foreach my $line (split("\n", $param)) {
my ($re,$code) = split(" ", $line,2);
eval { "Hallo" =~ m/^$re$/ };
return "Bad regexp: $@" if($@);
$modules{MQTT2_DEVICE}{defptr}{re}{$re}{"$name,$code"} = $code
if($re && $code);
}
return undef;
}