FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-01-31 12:49:34 +00:00
Code Issues Releases Wiki Activity

fhem.pl: check event-min-interval value for number (Forum #128324)

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@26242 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2022-07-17 09:47:10 +00:00
parent 296fd3f1b8
commit aa75e81043
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
fhem/fhem.pl
View File

@ -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!?