From c0fc1dfdf526cbadbc8c6617ef8ba09db640a35b Mon Sep 17 00:00:00 2001
From: martinp876 <>
Date: Sat, 20 Feb 2021 11:02:40 +0000
Subject: [PATCH] HMInfo:bugfix configCheck

git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@23776 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 FHEM/98_HMinfo.pm | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/FHEM/98_HMinfo.pm b/FHEM/98_HMinfo.pm
index 44fcc31a2..c418efc9a 100644
--- a/FHEM/98_HMinfo.pm
+++ b/FHEM/98_HMinfo.pm
@@ -583,15 +583,15 @@ sub HMinfo_peerCheck(@) { #####################################################
     foreach (grep /^......$/, HMinfo_noDup(map {CUL_HM_name2Id(substr($_,8))} 
                                            grep /^trigDst_/,
                                            keys %{$defs{$eName}{READINGS}})){
-      push @peerIDsTrigUnp,"triggerUnpeered: $eName:\t".$_ 
+      push @peerIDsTrigUnp,"$eName:\t".$_ 
             if(  ($peerIDs &&  $peerIDs !~ m/$_/)
                &&("CCU-FHEM" ne AttrVal(CUL_HM_id2Name($_),"model","")));
-      push @peerIDsTrigUnd,"triggerUndefined: $eName:\t".$_ 
+      push @peerIDsTrigUnd,"$eName:\t".$_ 
             if(!$modules{CUL_HM}{defptr}{$_});
     }
     
     if($peersUsed == 2){#peerList incomplete
-      push @peerIDsFail,"incomplete: $eName:\t".$peerIDs;
+      push @peerIDsFail,"$eName:\t".$peerIDs;
     }
     else{# work on a valid list
       my $id = $defs{$eName}{DEF};
@@ -1312,8 +1312,8 @@ sub HMinfo_GetFn($@) {#########################################################
         }
         elsif($_ =~m /^[ ,0-9]{1,5}/){
            my ($cnt,$date) = split(":",$_,2);
-           $_ = sprintf("%-5s>%s",$cnt,$date) if (defined $date);
-           $plSum[$c] +=$cnt;
+           #$_ = sprintf("%-5s>%s",$cnt,$date) if (defined $date);
+           $plSum[$c] +=$cnt if ($cnt =~ m/^\d+$/);
         }
         else{
         }
@@ -1451,10 +1451,12 @@ sub HMinfo_GetFn($@) {#########################################################
   elsif($cmd eq "regCheck")   {##check register--------------------------------
     my @entities = HMinfo_getEntities($opt."v",$filter);
     $ret = $cmd." done:" .HMinfo_regCheck(@entities);
+    $ret = HMinfo_applTxt2Check($ret);
   }
   elsif($cmd eq "peerCheck")  {##check peers-----------------------------------
     my @entities = HMinfo_getEntities($opt,$filter);
     $ret = $cmd." done:" .HMinfo_peerCheck(@entities);
+    $ret = HMinfo_applTxt2Check($ret);
   }
   elsif($cmd eq "configCheck"){##check peers and register----------------------
     if($modules{HMinfo}{helper}{initDone}){