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###########################