FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-15 22:26:04 +00:00
Code Issues Releases Wiki Activity

01_FHEMWEB.pm: allowe mulitLine devStateIcon perl code (Forum #94434)

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@18111 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2019-01-01 14:41:21 +00:00
parent b5af42f784
commit 5854f07a82
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
fhem/FHEM/01_FHEMWEB.pm
View File

@ -2787,7 +2787,7 @@ FW_dev2image($;$)
my (undef, $rstate) = ReplaceEventMap($name, [undef, $state], 0);
my ($icon, $rlink);
if(defined($devStateIcon) && $devStateIcon =~ m/^{.*}$/) {
if(defined($devStateIcon) && $devStateIcon =~ m/^{.*}$/s) {
my ($html, $link) = eval $devStateIcon;
Log3 $FW_wname, 1, "devStateIcon $name: $@" if($@);
return ($html, $link, 1) if(defined($html) && $html =~ m/^<.*>$/s);

2
fhem/fhem.pl
View File

@ -2853,7 +2853,7 @@ CommandAttr($$)
if($ra{$attrName}) {
my ($lval,$rp,$cache) = ($attrVal, $ra{$attrName}{p}, $ra{$attrName}{c});
if($rp && $lval =~ m/$rp/) {
if($rp && $lval =~ m/$rp/s) {
my $err = perlSyntaxCheck($attrVal, %{$ra{$attrName}{pv}});
return "attr $sdev $attrName: $err" if($err);