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

HMinfo:minor updates

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@25159 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
martinp876 2021-10-30 17:37:57 +00:00
parent 8773507fe6
commit 66aa66dd95
1 changed files with 30 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
fhem/FHEM/98_HMinfo.pm
View File

@ -4,6 +4,7 @@
package main;
use strict;
use warnings;
use B qw(svref_2object);
sub HMinfo_Initialize($$);
sub HMinfo_Define($$);
@ -387,6 +388,7 @@ sub HMinfo_status($){##########################################################
foreach (grep {$ehash->{"prot".$_}} keys %protW){ $protW{$_}++; push @protNamesW,$eName;}#protocol events reported
$rssiMin{$eName} = 0;
foreach (keys %{$ehash->{helper}{rssi}}){
last if !defined $ehash->{IODev};
next if($_ !~ m /at_.*$ehash->{IODev}->{NAME}/ );#ignore unused IODev
$rssiMin{$eName} = $ehash->{helper}{rssi}{$_}{min}
if ($rssiMin{$eName} > $ehash->{helper}{rssi}{$_}{min});
@ -1776,19 +1778,34 @@ sub HMinfo_GetFn($@) {#########################################################
}
my $fltr = "(".join("|",keys %show).')' ;
my @ak;
foreach my $ats (keys %intAt){
push @ak, substr(localtime($intAt{$_}{TRIGGERTIME}),0,19)
.sprintf("%8d: %-30s\t :",int($intAt{$ats}{TRIGGERTIME}-gettimeofday())
,$intAt{$ats}{FN})
.(ref($intAt{$ats}{ARG}) eq 'HASH'
? join("\t ",map{"$_ : ".$intAt{$ats}{ARG}{$_}}
my ($tfnm, $cv);
my $timerarray = \@intAtA;
my $now = gettimeofday();
foreach my $ats (@{$timerarray}){
$tfnm = $ats->{FN};
if (ref($tfnm) ne "") {
$cv = svref_2object($tfnm);
$tfnm = $cv->GV->NAME if ($cv);
}
if (!defined($ats->{TRIGGERTIME})) { #noansi: just for debugging
Log3 $hash,0,'HMinfo '.$name.' showTimer undefined TRIGGERTIME:'
.(defined($ats->{atNr})?' atNr:'.$ats->{atNr}:'')
.' FN:'.$tfnm
.' ARG:'.$ats->{ARG};
# next;
}
push @ak, substr(localtime($ats->{TRIGGERTIME}),0,19)
.sprintf("%8d: %-30s\t :",int($ats->{TRIGGERTIME}-$now)
,$tfnm)
.(ref($ats->{ARG}) eq 'HASH'
? join("\t ",map{"$_ : ".$ats->{ARG}{$_}}
map{$_=~m/^\d/?substr($_,1,99):$_}
sort
sort
map{(my $foo = $_) =~ s/$fltr/$show{$1}$1/g; $foo;}
grep /^$fltr/,
keys %{$intAt{$ats}{ARG}})
:"$intAt{$ats}{ARG}")};
$ret = join("\n",sort @ak);
keys %{$ats->{ARG}})
:"$ats->{ARG}")};
$ret = join("\n", @ak);
}
elsif($cmd eq "showChilds"){
my ($type) = @a;
@ -1879,13 +1896,13 @@ sub HMinfo_SetFn($@) {#########################################################
delete $modules{CUL_HM}{stat}{s}{$_};
}
}
if ($type eq "msgErrors"){#clear message events for all devices which has problems
if ($type eq "msgErrors"){#clear message errors for all devices which has problems
my @devL = split(",",InternalVal($hash->{NAME},"iW__protoNames" ,""));
push @devL,split(",",InternalVal($hash->{NAME},"iCRI__protoNames",""));
push @devL,split(",",InternalVal($hash->{NAME},"iCRI__protocol" ,""));
push @devL,split(",",InternalVal($hash->{NAME},"iERR__protocol" ,""));
foreach my $dName (HMinfo_noDup(@devL)){
CUL_HM_Set($defs{$dName},$dName,"clear","msgEvents");
CUL_HM_Set($defs{$dName},$dName,"clear","msgErrors");
}
}
elsif ($type ne "msgStat"){