FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-03 19:49:02 +00:00
Code Issues Releases Wiki Activity

fhem.pl: Implement [name:reading:d] in ReplaceSetMagic (Forum #52092)

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@11235 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2016-04-13 07:52:11 +00:00
parent 5847fba36e
commit b4046e00d4
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
fhem/fhem.pl
View File

@ -1543,8 +1543,9 @@ ReplaceSetMagic($$@) # Forum #38276
my $a = join(" ", @_);
my $oa = $a;
$a =~ s/\[([a-z0-9._]+):([A-z0-9._]+)\]/{
my $x = ReadingsVal($1,$2,""); $x eq "" ? "[$1:$2]" : $x
$a =~ s/\[([a-z0-9._]+):([A-z0-9._]+)(:d)?\]/{
my $x = $3 ? ReadingsNum($1,$2,"") : ReadingsVal($1,$2,"");
$x eq "" ? "[$1:$2$3]" : $x
}/egi;
$a =~ s/{\((.*)\)}/AnalyzePerlCommand($hash->{CL},$1,1)/eg;