From 158f895289f98e5ded2f3135b5aba2ce1af01a20 Mon Sep 17 00:00:00 2001
From: martinp876 <>
Date: Mon, 18 Apr 2022 14:50:17 +0000
Subject: [PATCH] HMInfo: change log-level, correct get showChilds parameter
 association

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

diff --git a/fhem/FHEM/98_HMinfo.pm b/fhem/FHEM/98_HMinfo.pm
index e00b9d774..1ed510740 100644
--- a/fhem/FHEM/98_HMinfo.pm
+++ b/fhem/FHEM/98_HMinfo.pm
@@ -273,7 +273,6 @@ sub HMinfo_init($){############################################################
       my ($hm) = devspec2array("TYPE=HMinfo");
       Log3($hm,5,"debug: HMinfo_init");
       foreach my $attrName (keys %{$attr{$hm}}){
-        #Log 1," update HM attributes  - will update CUL_HM settings ocationally";
         HMinfo_Attr("set",$hm, $attrName,$attr{$hm}{$attrName});
       }
 
@@ -1266,7 +1265,7 @@ sub HMinfo_getCfgDefere($){####################################################
 sub HMinfo_startBlocking(@){###################################################
   my ($name,$fkt,$param) = @_;
   my $hash = $defs{$name};
-  Log3 $hash,5,"HMinfo $name start blocking:$fkt";
+  Log3 $hash,4,"HMinfo $name start blocking:$fkt";
   my $id = ++$hash->{nb}{cnt};
   my $bl = BlockingCall($fkt, "$name;$id;$hash->{CL}{NAME},$param", 
                         "HMinfo_bpPost", 30, 
@@ -1792,7 +1791,7 @@ sub HMinfo_GetFn($@) {#########################################################
         $tfnm = $cv->GV->NAME if ($cv);
       }
        if (!defined($ats->{TRIGGERTIME})) { #noansi: just for debugging
-        Log3 $hash,0,'HMinfo '.$name.' showTimer undefined TRIGGERTIME:'
+        Log3 $hash,2,'HMinfo '.$name.' showTimer undefined TRIGGERTIME:'
                      .(defined($ats->{atNr})?' atNr:'.$ats->{atNr}:'')
                      .' FN:'.$tfnm
                      .' ARG:'.$ats->{ARG};
@@ -1814,7 +1813,7 @@ sub HMinfo_GetFn($@) {#########################################################
   elsif($cmd eq "showChilds"){
     my ($type) = @a;
     $type = "all" if(!$type);
-    if ($type eq "all"){
+    if ($type ne "all"){
       $ret = "BlockingCalls:\n".join("\nnext:----------\n",
               map {(my $foo = $_) =~ s/(Pid:|Fn:|Arg:|Timeout:|ConnectedVia:)/\n   $1/g; $foo;}
               grep /(CUL_HM|HMinfo)/,BlockingInfo(undef,undef));
@@ -2045,7 +2044,7 @@ sub HMinfo_SetFn($@) {#########################################################
     CUL_HM_assignIO($defs{$simName});
     my $id = $HMConfig::culHmModel2Id{$model};
 
-    Log 1,"testdevice my $id, $model";
+    Log 4,"testdevice my $id, $model";
 
     CUL_HM_Parse($defs{ioPCB},"A00018400${hmId}00000010${id}4D592D434F464645453612060100"."::::");
     CUL_HM_Set($defs{$simName},$simName,"clear","msgEvents");
@@ -2431,7 +2430,7 @@ sub HMinfo_loadConfig($$@) {###################################################
       }
     }
   }
-  Log3 $hash,4,"HMinfo load config file:$fName"
+  Log3 $hash,5,"HMinfo load config file:$fName"
                ."\n     templateReDefinition:$cntTStart"
                ."\n     templateDef:$cntDef"
                ."\n     templateSet:$cntSet"
@@ -3691,7 +3690,7 @@ sub HMinfo_noDup(@) {#return list with no duplicates###########################
          <li><B>entities</B> comma separated list of entities which refers to the temp lists following.
            The actual entity holding the templist must be given - which is channel 04 for RTs or channel 02 for TCs</li>
          <li><B>tempList...</B> time and temp couples as used in the set tempList commands</li>
-         <li><B>simDev -model-</B> simulate a device</li>
+         <li><a id="HMinfo-simDev"><B>simDev -model-</B></a> simulate a device</li>
          </ul>
          <i>tempListG</i> (for all devices)
          <br>