From f361c2956758b28ada796facddcbddc2cb5be9b8 Mon Sep 17 00:00:00 2001
From: martinp876 <>
Date: Mon, 1 Jan 2018 10:01:32 +0000
Subject: [PATCH] HMtemplate: verify value setting for Register

git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@15743 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 FHEM/98_HMtemplate.pm | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/FHEM/98_HMtemplate.pm b/FHEM/98_HMtemplate.pm
index 2eb2bb1a2..4626cdb12 100644
--- a/FHEM/98_HMtemplate.pm
+++ b/FHEM/98_HMtemplate.pm
@@ -90,14 +90,17 @@ sub HMtemplate_Attr(@) {#######################################################
       #burstRx  =>{min=>0,max=>255  ,c=>'lit',f=>'',t=>'device reacts on Burst'    ,lit=>{off=>0,on=>1}},
       #MaxTimeF =>{min=>0,max=>25.5 ,c=>''   ,f=>10,t=>"max time first direction." ,lit=>{unused=>25.5}},
       my $rN = substr($attrName,4);
-      my $ty = (InternalVal($name,"tpl_type","") eq "peer-Long")?"lg":"";
+      my $ty = (AttrVal($name,"tpl_type","") =~ m/peer-/)?"lg":""; #RegDef for long and short is identical. Just extend to any sh or lg
+      my $calc = $culHmRegDef->{$ty.$rN}{c};
       if ($attr{$name}{tpl_params} && $attr{$name}{tpl_params} =~ m/\b$attrVal\b/){
         # allow any parameter in any string
       }
-
-      elsif ($culHmRegDef->{$ty.$rN}{c} eq "lit"){
+      elsif ($calc eq "lit"){
         return "value $attrVal not allowed for $rN"  if (!defined $culHmRegDef->{$ty.$rN}{lit}{$attrVal});
       }
+      elsif ($calc eq "fltCvT"  ){ my $calcVal = CUL_HM_CvTflt  (CUL_HM_fltCvT  ($attrVal)); return "Value $attrVal not possible. Use $calcVal" if ($attrVal != $calcVal); }
+      elsif ($calc eq "fltCvT60"){ my $calcVal = CUL_HM_CvTflt60(CUL_HM_fltCvT60($attrVal)); return "Value $attrVal not possible. Use $calcVal" if ($attrVal != $calcVal); }
+      elsif ($calc eq "min2time"){ my $calcVal = CUL_HM_min2time(CUL_HM_time2min($attrVal)); return "Value $attrVal not possible. Use $calcVal" if ($attrVal != $calcVal); }
       else{
         return "value $attrVal not numeric for $rN"  if ($attrVal !~/^\d+?\.?\d?$/);
         return "value $attrVal out of range for $rN :"