From e2a129f434ff05ececcbf2cf6dfc1138dcdcf83f Mon Sep 17 00:00:00 2001
From: rudolfkoenig <rudolfkoenig@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Sun, 17 Jul 2022 09:47:10 +0000
Subject: [PATCH] fhem.pl: check event-min-interval value for number (Forum
 #128324)

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

diff --git a/fhem/fhem.pl b/fhem/fhem.pl
index f94b55c52..06a02d5a4 100755
--- a/fhem/fhem.pl
+++ b/fhem/fhem.pl
@@ -407,7 +407,8 @@ my %ra = (
   "event-on-update-reading"    => { s=>",", c=>".attreour" },
   "event-on-change-reading"    => { s=>",", c=>".attreocr",   r=>":.*" },
   "timestamp-on-change-reading"=> { s=>",", c=>".attrtocr" },
-  "event-min-interval"         => { s=>",", c=>".attrminint", r=>":.*" },
+  "event-min-interval"         => { s=>",", c=>".attrminint", r=>":.*",
+                                    isNum=>1 },
   "oldreadings"                => { s=>",", c=>".or" },
   "devStateIcon"               => { s=>" ", r=>":.*", p=>"^{.*}\$",
                                     pv=>{"%name"=>1, "%state"=>1, "%type"=>1} },
@@ -3155,6 +3156,11 @@ CommandAttr($$)
         my @a = split($ra{$attrName}{s}, $lval) ;
         for my $v (@a) {
           my $v = $v; # resolve the reference to avoid changing @a itself
+          if($ra{$attrName}{isNum}) {
+            my @va = split(":", $v);
+            return "attr $sdev $attrName $v: argument is not a number" 
+                if(!defined($va[1]) || !looks_like_number($va[1]));
+          }
           $v =~ s/$ra{$attrName}{r}// if($ra{$attrName}{r});
           my $err ="Argument $v for attr $sdev $attrName is not a valid regexp";
           return "$err: use .* instead of *" if($v =~ /^\*/); # no err in eval!?