FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-02-28 15:04:51 +00:00
Code Issues Releases Wiki Activity

98_HMinfo: bug fix thanks to frank

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@26935 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
martinp876 2022-12-31 16:25:33 +00:00
parent 29d2fd4efb
commit cf9023c481
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
fhem/FHEM/98_HMinfo.pm
View File

@ -124,6 +124,7 @@ sub HMinfo_Attr(@) {###########################################################
if ($attrName eq "autoUpdate"){# 00:00 hh:mm if ($attrName eq "autoUpdate"){# 00:00 hh:mm
delete $hash->{helper}{autoUpdate}; delete $hash->{helper}{autoUpdate};
RemoveInternalTimer("sUpdt:".$name);#frank:
return if ($cmd eq "del"); return if ($cmd eq "del");
my ($h,$m) = split":",$attrVal; my ($h,$m) = split":",$attrVal;
return "please enter time [hh:mm]" if (!defined $h||!defined $m); return "please enter time [hh:mm]" if (!defined $h||!defined $m);
@ -174,7 +175,7 @@ sub HMinfo_Attr(@) {###########################################################
foreach (split ",",$attrVal){ #prepare reading filter for error counts foreach (split ",",$attrVal){ #prepare reading filter for error counts
my ($p,@a) = split ":",$_; my ($p,@a) = split ":",$_;
return "parameter illegal - " return "parameter illegal - "
if(!$p || !$a[0]); if(!$p || !defined $a[0]);
} }
} }
} }
@ -366,6 +367,9 @@ sub HMinfo_status($){##########################################################
} }
foreach my $read (grep {$ehash->{READINGS}{$_}} keys %errFlt){#---- count error readings foreach my $read (grep {$ehash->{READINGS}{$_}} keys %errFlt){#---- count error readings
my $val = $ehash->{READINGS}{$read}{VAL}; my $val = $ehash->{READINGS}{$read}{VAL};
if($val =~ m/\?/) {#frank: check to avoid crash => https://forum.fhem.de/index.php/topic,129878.0.html
$val =~ s/\?/x/g;
}
next if (grep (/$val/,(keys%{$errFlt{$read}})));# filter non-Error next if (grep (/$val/,(keys%{$errFlt{$read}})));# filter non-Error
$errFltN{$read."_".$val}{$eName} = 1; $errFltN{$read."_".$val}{$eName} = 1;
$err{$read}{$val} = 0 if (!$err{$read}{$val}); $err{$read}{$val} = 0 if (!$err{$read}{$val});