From 6efadd05dc5af50a3345aaf1019f489d2140d68b Mon Sep 17 00:00:00 2001
From: rudolfkoenig <rudolfkoenig@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Wed, 13 Apr 2016 07:52:11 +0000
Subject: [PATCH] fhem.pl: Implement [name:reading:d] in ReplaceSetMagic (Forum
 #52092)

git-svn-id: https://svn.fhem.de/fhem/trunk@11235 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/fhem.pl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/fhem/fhem.pl b/fhem/fhem.pl
index 9572df367..e68522c98 100755
--- a/fhem/fhem.pl
+++ b/fhem/fhem.pl
@@ -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;