diff --git a/FHEM/10_CUL_HM.pm b/FHEM/10_CUL_HM.pm index da9de0936..5cd15599b 100755 --- a/FHEM/10_CUL_HM.pm +++ b/FHEM/10_CUL_HM.pm @@ -3187,7 +3187,9 @@ sub CUL_HM_parseSDteam(@){#handle SD team events if ($mTp eq "40"){ #test my $trgCnt = hex(substr($p,2,2)); + my $err = hex(substr($p,0,2)); push @evtEt,[$sHash,1,"teamCall:from $dName:$trgCnt"]; + push @evtEt,[$dHash,1,"battery:" .(($err&0x80) ? "low":"ok")]; foreach (split ",",$attr{$sName}{peerIDs}){ my $tHash = CUL_HM_id2Hash($_); push @evtEt,[$tHash,1,"teamCall:from $dName:$trgCnt"]; @@ -4592,7 +4594,6 @@ sub CUL_HM_Set($@) {#+++++++++++++++++ set command+++++++++++++++++++++++++++++ $prgChn = 2; $addr = hex($addr); } - my $prep = ""; if ($a[2] =~ m/^(prep|exec)$/){ $prep = $a[2]; @@ -7017,6 +7018,7 @@ sub CUL_HM_CvTflt($) { # config time -> float sub CUL_HM_min2time($) { # minutes -> time my $min = shift; $min = $min * 30; + Log 1,"General time $min : ".sprintf("%02d:%02d",int($min/60),$min%60); return sprintf("%02d:%02d",int($min/60),$min%60); } sub CUL_HM_time2min($) { # minutes -> time @@ -8193,7 +8195,7 @@ sub CUL_HM_tempListTmpl(@) { ################################################## $val = join(" ",split(" ",$val)); my $nv = ReadingsVal($eN,$tln,"empty"); $nv = join(" ",split(" ",$nv)); - push @entryFail,$eN." :".$tln." mismatch" if ($val ne $nv); + push @entryFail,$eN." :".$tln." mismatch $val ne $nv ##" if ($val ne $nv); } elsif($action eq "restore"){ $val = lc($1)." ".$val if ($tln =~ m/(P.)_._tempList/); diff --git a/FHEM/98_HMinfo.pm b/FHEM/98_HMinfo.pm index 8ba6371f9..3b5835b69 100644 --- a/FHEM/98_HMinfo.pm +++ b/FHEM/98_HMinfo.pm @@ -661,10 +661,7 @@ sub HMinfo_tempList(@) { ###################################################### close(aSave); $ret = "incomplete data for ".join("\n ",@incmpl) if (scalar@incmpl); } - elsif ($action eq "verify"){ - $ret = HMinfo_tempListTmpl($hiN,$filter,"",$action,$fName); - } - elsif ($action eq "restore"){ + elsif ($action =~ m/(verify|restore)/){ $ret = HMinfo_tempListTmpl($hiN,$filter,"",$action,$fName); } else{ @@ -1124,13 +1121,28 @@ sub HMinfo_GetFn($@) {######################################################### } elsif($cmd eq "templateChk"){##template: see if it applies ------------------ my $repl; - foreach my $dName (HMinfo_getEntities($opt."v",$filter)){ - unshift @a, $dName; - $repl .= HMinfo_templateChk(@a); - shift @a; + if(@a){ + foreach my $dName (HMinfo_getEntities($opt."v",$filter)){ + unshift @a, $dName; + $repl .= HMinfo_templateChk(@a); + shift @a; + } } + else{ + foreach my $dName (HMinfo_getEntities($opt."v",$filter)){ + next if (!defined $defs{$dName}{helper}{tmpl}); + foreach (keys %{$defs{$dName}{helper}{tmpl}}){ + my ($p,$t)=split(">",$_); + $repl .= HMinfo_templateChk($dName,$t,$p,split(" ",$defs{$dName}{helper}{tmpl}{$_})); + } + } + } + return $repl; } + elsif($cmd eq "templateUsg"){##template: see if it applies ------------------ + return HMinfo_templateUsg($opt,$filter,@a); + } #------------ print tables --------------- elsif($cmd eq "peerXref") {##print cross-references------------------------ my @peerPairs; @@ -1303,7 +1315,7 @@ sub HMinfo_GetFn($@) {######################################################### ,"protoEvents","msgStat","rssi" ,"models" ,"regCheck","register" - ,"templateList","templateChk" + ,"templateList","templateChk","templateUsg" ); $ret = "Unknown argument $cmd, choose one of ".join (" ",sort @cmdLst); } @@ -1364,6 +1376,9 @@ sub HMinfo_SetFn($@) {######################################################### elsif($cmd eq "templateSet"){##template: set of register -------------------- return HMinfo_templateSet(@a); } + elsif($cmd eq "templateDel"){##template: set of register -------------------- + return HMinfo_templateDel(@a); + } elsif($cmd eq "templateDef"){##template: define one ------------------------- return HMinfo_templateDef(@a); } @@ -1374,28 +1389,22 @@ sub HMinfo_SetFn($@) {######################################################### $ret = HMinfo_status($hash); } elsif($cmd eq "tempList") {##handle thermostat templist from file --------- - my $fn = $a[1]?$a[1]:"tempList.cfg"; - $fn = "$attr{global}{modpath}/".AttrVal($name,"configDir",".")."\/".$fn - if ($fn !~ m/\//); - $ret = HMinfo_tempList($name,$filter,$a[0],$fn); - } - elsif($cmd eq "tempListTmpl"){##handle thermostat templist from file -------- - - if ($a[0] && $a[0] eq "status"){#show status - $ret = HMinfo_tempListTmplView(); - } - elsif ($a[0] && $a[0] eq "genPlot"){#generatelog and gplot file + my $action = $a[0]?$a[0]:""; + if ( $action eq "genPlot"){#generatelog and gplot file $ret = HMinfo_tempListTmplGenLog($name,$a[1]); } - else{ - if ($a[0] && $a[0] =~ m/(verify|restore)/){#allow default template - i.e. not specified - unshift @a,""; - } - my $fn = $a[2]?$a[2]:""; - my $ac = $a[1]?$a[1]:"verify"; - $fn = AttrVal($name,"configDir",".")."\/".$fn if ($fn && $fn !~ m/\//); - $ret = HMinfo_tempListTmpl($name,$filter,$a[0],$ac,$fn); + elsif ($action eq "status"){ + $ret = HMinfo_tempListTmplView(); } + else{ + my $fn = $a[1]?$a[1]:"tempList.cfg"; + $fn = "$attr{global}{modpath}/".AttrVal($name,"configDir",".")."\/".$fn + if ($fn !~ m/\//); + $ret = HMinfo_tempList($name,$filter,$action,$fn); + } + } + elsif($cmd eq "templateExe"){##template: see if it applies ------------------ + return HMinfo_templateExe($opt,$filter,@a); } elsif($cmd eq "loadConfig") {##action: loadConfig---------------------------- my $fn = $a[0]?$a[0]:AttrVal($name,"configFilename","regSave.cfg"); @@ -1449,8 +1458,8 @@ sub HMinfo_SetFn($@) {######################################################### ,"archConfig:-0,-a","saveConfig","verifyConfig","loadConfig","purgeConfig" ,"update" ,"cpRegs" - ,"tempList tempListTmpl" - ,"templateDef","templateSet"); + ,"tempList" + ,"templateDef","templateSet","templateDel","templateExe"); $ret = "Unknown argument $cmd, choose one of ".join (" ",sort @cmdLst); } return $ret; @@ -1469,8 +1478,7 @@ sub HMInfo_help(){ ############################################################ ."\n set loadConfig [] # restores register and peer readings if missing" ."\n set verifyConfig [] # compare curent date with configfile,report differences" ."\n set autoReadReg [] # trigger update readings if attr autoReadReg is set" - ."\n set tempList [][save|restore|verify][]# handle tempList of thermostat devices" - ."\n set tempListTmpl[][templateName][verify|restore|status|genPlot] []# program a templist from a template in the file to one or multiple devices" + ."\n set tempList [][save|restore|verify|status|genPlot][]# handle tempList of thermostat devices" ."\n ---infos---" ."\n set update # update HMindfo counts" ."\n get register [] # devicefilter parse devicename. Partial strings supported" @@ -1504,6 +1512,12 @@ sub HMInfo_help(){ ############################################################ ."\n define a template" ."\n set templateSet [ ...] " ."\n write register according to a given template" + ."\n set templateDel " + ."\n remove a template set" + ."\n set templateExe " + ."\n write all assigned templates to the file" + ."\n get templateUsg " + ."\n show template usage" ."\n get templateChk [] [ ...] " ."\n compare whether register match the template values" ."\n get templateList [] # gives a list of templates or a description of the named template" @@ -1633,15 +1647,16 @@ sub HMinfo_loadConfig($@) {#################################################### my @entryNF = (); my %changes; my @rUpdate; + my @tmplList = (); #collect templates while(){ chomp; my $line = $_; $line =~ s/\r//g; next if ( $line !~ m/set .* (peerBulk|regBulk) .*/ - && $line !~ m/setreading .*/); + && $line !~ m/(setreading|template.e.) .*/); my ($cmd1,$eN,$cmd,$param) = split(" ",$line,4); next if ($eN !~ m/$filter/); - if (!$eN || !$defs{$eN}){ + if ($cmd1 !~ m /^template(Def|Set)$/ && (!$eN || !$defs{$eN})){ push @entryNF,$eN; next; } @@ -1650,6 +1665,23 @@ sub HMinfo_loadConfig($@) {#################################################### $defs{$eN}{READINGS}{$cmd}{VAL} = $param; $defs{$eN}{READINGS}{$cmd}{TIME} = "from archive"; } + elsif($cmd1 eq "templateDef"){ + if ($eN eq "templateStart"){#if new block we remove all old templates + @tmplList = (); + } + push @tmplList,$line; + } + elsif($cmd1 eq "templateSet"){ + my (undef,$eNt,$tpl,$param) = split("=>",$line); + if (defined($defs{$eNt})){ + if($tpl eq "start"){ + delete $defs{$eNt}{helper}{tmpl}; + } + else{ + $defs{$eNt}{helper}{tmpl}{$tpl} = $param; + } + } + } elsif($cmd eq "peerBulk"){ next if(!$param); $param =~ s/ //g; @@ -1699,6 +1731,17 @@ sub HMinfo_loadConfig($@) {#################################################### $ret .= "\nadded data:\n " .join("\n ",@el) if (scalar@el); $ret .= "\nfile data incomplete:\n ".join("\n ",@elincmpl) if (scalar@elincmpl); $ret .= "\nentries not defind:\n " .join("\n ",@entryNF) if (scalar@entryNF); + foreach ( @tmplList){ + my @tmplCmd = split("=>",$_); + next if (!defined $tmplCmd[4]); + delete $HMConfig::culHmTpl{$tmplCmd[1]}; + HMinfo_templateDef($tmplCmd[1],$tmplCmd[2],$tmplCmd[3],split(" ",$tmplCmd[4])); + } + $HMConfig::culHmTpl{tmplDefChange} = 0;# all changes are obsolete + $HMConfig::culHmTpl{tmplUsgChange} = 0;# all changes are obsolete + foreach my $tmpN(devspec2array("TYPE=CUL_HM")){ + $defs{$tmpN}{helper}{tmplChg} = 0 if(!$defs{$tmpN}{helper}{role}{vrt}); + } return $ret; } @@ -1714,7 +1757,7 @@ sub HMinfo_purgeConfig($) {#################################################### my $line = $_; $line =~ s/\r//g; next if ( $line !~ m/set (.*) (peerBulk|regBulk) (.*)/ - && $line !~ m/setreading .*/); + && $line !~ m/(setreading) .*/);#&& $line !~ m/(setreading|templateDef) .*/); my ($cmd,$eN,$typ,$p1,$p2) = split(" ",$line,5); if ($cmd eq "set" && $typ eq "regBulk"){ $p1 =~ s/\.RegL_/RegL_/; @@ -1757,9 +1800,16 @@ sub HMinfo_purgeConfig($) {#################################################### } } } + print aSave "\n\n"; print aSave "\n======= finished ===\n"; close(aSave); - + + HMinfo_templateWriteDef($fName); + foreach my $eNt(devspec2array("TYPE=CUL_HM")){ + $defs{$eNt}{helper}{tmplChg} = 1 if(!$defs{$eNt}{helper}{role}{vrt}); + } + HMinfo_templateWriteUsg($fName); + return $id; } sub HMinfo_saveConfig($) {##################################################### @@ -1769,6 +1819,7 @@ sub HMinfo_saveConfig($) {##################################################### foreach my $dName (HMinfo_getEntities($opt."dv",$filter)){ CUL_HM_Get($defs{$dName},$dName,"saveConfig",$fN,$strict); } + HMinfo_templateWrite($fN); HMinfo_purgeConfig($param) if (-e $fN && 200000 < -s $fN);# auto purge if file to big return $id; } @@ -1842,6 +1893,7 @@ sub HMinfo_bpAbort($) {#bp timeout ############################################ sub HMinfo_templateDef(@){##################################################### my ($name,$param,$desc,@regs) = @_; return "insufficient parameter" if(!defined $param); + $HMConfig::culHmTpl{tmplDefChange} = 1;# signal we have a change! if ($param eq "del"){ delete $HMConfig::culHmTpl{$name}; return; @@ -1875,7 +1927,7 @@ sub HMinfo_templateDef(@){##################################################### $HMConfig::culHmTpl{$name}{t} = $desc; foreach (@regs){ - my ($r,$v)=split":",$_; + my ($r,$v)=split(":",$_,2); if (!defined $v){ delete $HMConfig::culHmTpl{$name}; return " empty reg value for $r"; @@ -1883,17 +1935,19 @@ sub HMinfo_templateDef(@){##################################################### elsif($v =~ m/^p(.)/){ return ($1+1)." params are necessary, only $paramNo given" if (($1+1)>$paramNo); - } + } $HMConfig::culHmTpl{$name}{reg}{$r} = $v; } } sub HMinfo_templateSet(@){##################################################### my ($aName,$tmpl,$pSet,@p) = @_; + return "aktor $aName unknown" if(!$defs{$aName}); + return "template undefined $tmpl" if(!$HMConfig::culHmTpl{$tmpl}); + return "exec set $aName getConfig first" if(!(grep /RegL_/,keys%{$defs{$aName}{READINGS}})); + + my $tmplID = "$pSet>$tmpl"; $pSet = ":" if (!$pSet || $pSet eq "none"); my ($pName,$pTyp) = split(":",$pSet); - return "template undefined $tmpl" if(!$HMConfig::culHmTpl{$tmpl}); - return "aktor $aName unknown" if(!$defs{$aName}); - return "exec set $aName getConfig first" if(!(grep /RegL_/,keys%{$defs{$aName}{READINGS}})); return "give :[short|long] with peer, not $pSet" if($pName && $pTyp !~ m/(short|long)/); $pSet = $pTyp ? ($pTyp eq "long"?"lg":"sh"):""; my $aHash = $defs{$aName}; @@ -1921,8 +1975,43 @@ sub HMinfo_templateSet(@){##################################################### return $ret if ($ret); } my ($ret,undef) = CUL_HM_Set($aHash,$aName,"regSet","exec",split(",",$regCh[0]),$pName); + $aHash->{helper}{tmpl}{$tmplID} = join(" ",@p); + $HMConfig::culHmTpl{tmplUsgChange} = 1; # mark change + $aHash->{helper}{tmplChg} = 1; return $ret; } +sub HMinfo_templateDel(@){##################################################### + my ($aName,$tmpl,$pSet) = @_; + delete $defs{$aName}{helper}{tmpl}{"$pSet>$tmpl"}; + $HMConfig::culHmTpl{tmplUsgChange} = 1; # mark change + $defs{$aName}{helper}{tmplChg} = 1; + return; +} +sub HMinfo_templateExe(@){##################################################### + my ($opt,$filter,$tFilter) = @_; + foreach my $dName (HMinfo_getEntities($opt."v",$filter)){ + next if(!defined $defs{$dName}{helper}{tmpl}); + foreach my $tid(keys %{$defs{$dName}{helper}{tmpl}}){ + my ($p,$t) = split(">",$tid); + next if($tFilter && $tFilter ne $t); + HMinfo_templateSet($dName,$t,$p,split(" ",$defs{$dName}{helper}{tmpl}{$tid})); + } + } + return; +} +sub HMinfo_templateUsg(@){##################################################### + my ($opt,$filter,$tFilter) = @_; + my @ul; + foreach my $dName (HMinfo_getEntities($opt."v",$filter)){ + next if(!defined $defs{$dName}{helper}{tmpl}); + foreach my $tid(keys %{$defs{$dName}{helper}{tmpl}}){ + my ($p,$t) = split(">",$tid); + next if($tFilter && $tFilter ne $t); + push @ul,"$dName |$p |$t |$defs{$dName}{helper}{tmpl}{$tid}"; + } + } + return join("\n",sort(@ul)); +} sub HMinfo_templateChk(@){##################################################### my ($aName,$tmpl,$pSet,@p) = @_; $pSet = "" if (!$pSet || $pSet eq "none"); @@ -1951,7 +2040,7 @@ sub HMinfo_templateChk(@){##################################################### foreach my $pS (@pNames){ ($pName,$pTyp) = split(":",$pS); my $replPeer=""; - if($pName && (grep !/$pName/,ReadingsVal($aName,"peerList" ,undef))){ + if($pName && (grep !/$pName/,ReadingsVal($aName,"peerList" ,""))){ $replPeer=" no peer:$pName\n"; } else{ @@ -1983,8 +2072,9 @@ sub HMinfo_templateChk(@){##################################################### sub HMinfo_templateList($){#################################################### my $templ = shift; my $reply = ""; - if(!($templ && (grep /$templ/,keys%HMConfig::culHmTpl))){# list all templates + if(!$templ ){# list all templates foreach (sort keys%HMConfig::culHmTpl){ + next if ($_ =~ m/^tmpl...Change$/); #ignore control $reply .= sprintf("%-16s params:%-24s Info:%s\n" ,$_ ,$HMConfig::culHmTpl{$_}{p} @@ -1992,7 +2082,7 @@ sub HMinfo_templateList($){#################################################### ); } } - else{#details about one template + elsif( grep /$templ/,keys%HMConfig::culHmTpl ){#details about one template $reply = sprintf("%-16s params:%-24s Info:%s\n",$templ,$HMConfig::culHmTpl{$templ}{p},$HMConfig::culHmTpl{$templ}{t}); foreach (sort keys %{$HMConfig::culHmTpl{$templ}{reg}}){ my $val = $HMConfig::culHmTpl{$templ}{reg}{$_}; @@ -2005,6 +2095,69 @@ sub HMinfo_templateList($){#################################################### } return $reply; } +sub HMinfo_templateWrite($){################################################### + my $fName = shift; + HMinfo_templateWriteDef($fName) if ($HMConfig::culHmTpl{tmplDefChange}); + HMinfo_templateWriteUsg($fName) if ($HMConfig::culHmTpl{tmplUsgChange}); + return; +} +sub HMinfo_templateWriteDef($){################################################### + my $fName = shift; + $HMConfig::culHmTpl{tmplDefChange} = 0; # reset changed bits + my @tmpl =(); + #set templateDef ...] : [:] ... + foreach my $tpl(sort keys%HMConfig::culHmTpl){ + next if ($tpl =~ m/^tmpl...Change$/ ||!defined$HMConfig::culHmTpl{$tpl}{reg}); + my @reg =(); + foreach (keys%{$HMConfig::culHmTpl{$tpl}{reg}}){ + push @reg,$_.":".$HMConfig::culHmTpl{$tpl}{reg}{$_}; + } + push @tmpl,sprintf("templateDef =>%s=>%s=>%s=>%s" + ,$tpl + ,($HMConfig::culHmTpl{$tpl}{p}?join(":",split(" ",$HMConfig::culHmTpl{$tpl}{p})):"0") + ,$HMConfig::culHmTpl{$tpl}{t} + ,join(" ",@reg) + ); + } + + open(aSave, ">>$fName") || return("Can't open $fName: $!"); + #important - this is the header - prior entires in the file will be ignored + print aSave "\n\ntemplateDef templateStart Block stored:".TimeNow()."*******************\n\n"; + print aSave "\n".$_ foreach(sort @tmpl); + print aSave "\n======= finished templates ===\n"; + close(aSave); + + return; +} +sub HMinfo_templateWriteUsg($){################################################### + my $fName = shift; + $HMConfig::culHmTpl{tmplUsgChange} = 0; # reset changed bits + my @tmpl =(); + foreach my $eN(sort (devspec2array("TYPE=CUL_HM"))){ + next if($defs{$eN}{helper}{role}{vrt} || !$defs{$eN}{helper}{tmplChg}); + push @tmpl,sprintf("templateSet =>%s=>start",$eN);# indicates: all entries before are obsolete + $defs{$eN}{helper}{tmplChg} = 0; + if (defined $defs{$eN}{helper}{tmpl}){ + foreach my $tid(keys %{$defs{$eN}{helper}{tmpl}}){ + my ($p,$t) = split(">",$tid); + next if (!defined$HMConfig::culHmTpl{$t}); + push @tmpl,sprintf("templateSet =>%s=>%s=>%s" + ,$eN + ,$tid + ,$defs{$eN}{helper}{tmpl}{$tid} + ); + } + } + } + if (@tmpl){ + open(aSave, ">>$fName") || return("Can't open $fName: $!"); + #important - this is the header - prior entires in the file will be ignored + print aSave "\n".$_ foreach(@tmpl); + print aSave "\n======= finished templates ===\n"; + close(aSave); + } + return; +} sub HMinfo_cpRegs(@){########################################################## my ($srcCh,$dstCh) = @_; @@ -2066,6 +2219,7 @@ sub HMinfo_noDup(@) {#return list with no duplicates########################### =pod =begin html +

HMinfo

    @@ -2157,7 +2311,10 @@ sub HMinfo_noDup(@) {#return list with no duplicates###########################
  • templateList [<name>]
    list defined templates. If no name is given all templates will be listed
    • - +
  • templateUsg <template>
    + templare usage
    + template filters the output +
  • msgStat [filter]
    statistic about message transferes over a week
    • @@ -2240,7 +2397,7 @@ sub HMinfo_noDup(@) {#return list with no duplicates###########################
    -
  • tempList [filter] [save|restore|verify] [<file>]
    +
  • tempList [filter] [save|restore|verify|status|genPlot] [<file>]
    this function supports handling of tempList for thermstates. It allows templists to be saved in a separate file, verify settings against the file and write the templist of the file to the devices.
    @@ -2253,6 +2410,17 @@ sub HMinfo_noDup(@) {#return list with no duplicates########################### to the device
  • verify file data is compared to readings as present in FHEM. It does not verify data in the device - user needs to ensure actuallity of present readings
    • +
  • status gives an overview of templates being used by any CUL_HM thermostat. It alls showes + templates being defined in the relevant files. +
    • +
  • genPlot generates a set of records to display templates graphicaly.
    + Out of the given template-file it generates a .log extended file which contains log-formated template data. timestamps are + set to begin Year 2000.
    + A prepared .gplot file will be added to gplot directory.
    + Logfile-entity _Log will be added if not already present. It is necessary for plotting.
    + SVG-entity _SVG will be generated if not already present. It will display the graph.
    +
    • +
  • file name of the file to be used. Default: tempList.cfg

  • filename is the name of the file to be used. Default ist tempList.cfg
    • File example
    @@ -2281,26 +2449,6 @@ sub HMinfo_noDup(@) {#return list with no duplicates###########################

-
  • tempListTmpl [filter] [templateName][verify|restore|status|genPlot] [<file>]
    - program one or more thermostat lists. The list of thermostats is selected by filter.
    -
      -
    • templateName is the name of the template as being named in the file. The file format ist - identical to tempList. If the entity in the file matches templateName the subsequent - temp-settings from the file are bing programmed to all Thermostats that match the filter -
      • -
    • status gives an overview of templates being used by any CUL_HM thermostat. It alls showes - templates being defined in the relevant files. -
      • -
    • genPlot generates a set of records to display templates graphicaly.
      - Out of the given template-file it generates a .log extended file which contains log-formated template data. timestamps are - set to begin Year 2000.
      - A prepared .gplot file will be added to gplot directory.
      - Logfile-entity _Log will be added if not already present. It is necessary for plotting.
      - SVG-entity _SVG will be generated if not already present. It will display the graph.
      -
      • -
    • file name of the file to be used. Default: tempList.cfg
      • -
    -

  • cpRegs <src:peer> <dst:peer>
    allows to copy register, setting and behavior of a channel to @@ -2362,6 +2510,14 @@ sub HMinfo_noDup(@) {#return list with no duplicates###########################
    • +
  • templateDel <entity> <template> <peer:[long|short]> ]
    + remove a template installed by templateSet +
    + +
    • +
  • templateExe <template>
    + executes the register write once again if necessary (e.g. a device had a reset)
    +

    • @@ -2583,6 +2739,10 @@ sub HMinfo_noDup(@) {#return list with no duplicates###########################
  • templateList [<name>]
    zeigt eine Liste von Vorlagen. Ist kein Name angegeben, werden alle Vorlagen angezeigt
    • +
  • templateUsg <template>
    + Liste der genutzten templates.
    + template filtert die Einträge nach diesem template +
  • msgStat [filter]
    zeigt eine Statistik aller Meldungen der letzen Woche
    • @@ -2676,6 +2836,15 @@ sub HMinfo_noDup(@) {#return list with no duplicates###########################
  • restore in der Datei gespeicherte Termperaturliste wird direkt an das Gerät gesendet.
  • verify vergleicht die Temperaturliste in der Datei mit den aktuellen Werten in FHEM. Der Benutzer muss selbst sicher stellen, dass diese mit den Werten im Gerät überein stimmen.
    • +
  • status gibt einen Ueberblick aller genutzten template files. Ferner werden vorhandene templates in den files gelistst. +
    • +
  • genPlot erzeugt einen Satz Daten um temp-templates graphisch darzustellen
    + Aus den gegebenen template-file wird ein .log erweitertes file erzeugt welches log-formatierte daten beinhaltet. + Zeitmarken sind auf Beginn 2000 terminiert.
    + Ein .gplot file wird in der gplt directory erzeugt.
    + Eine Logfile-entity _Log, falls nicht vorhanden, wird erzeugt.
    + Eine SVG-entity _SVG, falls nicht vorhanden, wird erzeugt.
    +

  • filename Name der Datei. Vorgabe ist tempList.cfg
    • Beispiel für einen Dateiinhalt:
    @@ -2704,26 +2873,6 @@ sub HMinfo_noDup(@) {#return list with no duplicates###########################
  • tempList... Zeiten und Temperaturen sind genau wie im Befehl "set tempList" anzugeben

    • -
  • tempListTmpl [filter][templateName][verify|restore|status|genPlot] [<file>]
    - programmiert eine oder mehrere Thermostatlisten (Vorlagen). Die Liste der Thermostate wird mittels Filter selektiert.
    -
      -
    • templateName ist der Name wie in der Datei angegeben. Das Dateiformat ist identisch mit - dem Format von tempList. Wenn die in der Datei angegebene Instanz mit templateName - übereinstimmt, werden die Termperatureinstellungen aus der Datei an diejenigen Thermostate gesendet, die mittels - filter ausgewählt sind. -
      • -
    • status gibt einen Ueberblick aller genutzten template files. Ferner werden vorhandene templates in den files gelistst. -
      • -
    • genPlot erzeugt einen Satz Daten um temp-templates graphisch darzustellen
      - Aus den gegebenen template-file wird ein .log erweitertes file erzeugt welches log-formatierte daten beinhaltet. - Zeitmarken sind auf Beginn 2000 terminiert.
      - Ein .gplot file wird in der gplt directory erzeugt.
      - Eine Logfile-entity _Log, falls nicht vorhanden, wird erzeugt.
      - Eine SVG-entity _SVG, falls nicht vorhanden, wird erzeugt.
      -
      • -
    • file Name der Datei. Vorgabe: tempList.cfg
      • -
    -

  • cpRegs <src:peer> <dst:peer>
    ermöglicht das Kopieren von Registern, Einstellungen und Verhalten zwischen gleichen Kanälen, bei einem Peer auch @@ -2784,6 +2933,12 @@ sub HMinfo_noDup(@) {#return list with no duplicates###########################
    • +
  • templateDel <entity> <template> <peer:[long|short]>
    + entfernt ein Template das mit templateSet eingetragen wurde +
    • +
  • templateExe <template>
    + führt das templateSet erneut aus. Die Register werden nochmals geschrieben, falls sie nicht zum template passen.
    +

    • @@ -2892,7 +3047,8 @@ sub HMinfo_noDup(@) {#return list with no duplicates###########################
  • ERR_names: Fehler: Namen von Instanzen, die in einem ERR_<reading> enthalten sind.
  • W_sum_<reading> Warnung: Anzahl der mit Attribut sumStatus definierten Readings.
    • Beispiele:
    -
      +
        + ERR___rssiCrit LightKittchen,WindowDoor,Remote12
        ERR__protocol NACK:2 ResendFail:5 CmdDel:2 CmdPend:1
        ERR__protoNames LightKittchen,WindowDoor,Remote12,Ligth1,Light5
        @@ -2902,7 +3058,8 @@ sub HMinfo_noDup(@) {#return list with no duplicates########################### W_sum_battery: ok:5;low:2;
        W_sum_overheat: off:7;
        C_sumDefined: entities:23 device:11 channel:16 virtual:5;
        -
      +       +
    =end html diff --git a/FHEM/HMConfig.pm b/FHEM/HMConfig.pm index 7a4c450a3..a09f34a55 100644 --- a/FHEM/HMConfig.pm +++ b/FHEM/HMConfig.pm @@ -1195,7 +1195,7 @@ $culHmRegChan{"ROTO_ZEL-STG-RM-FWT03"}= $culHmRegChan{"HM-CC-TC03"}; %culHmTpl = ( autoOff => {p=>"time" ,t=>"staircase - auto off after