mirror of
https://github.com/fhem/fhem-mirror.git
synced 2025-01-31 18:59:33 +00:00
HMinfo introduction
git-svn-id: https://svn.fhem.de/fhem/trunk@3072 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
martinp876
parent
003a49a0af
commit
5c6fa5e830
@ -15,7 +15,7 @@ sub HMLAN_secSince2000();
|
|||||||
|
|
||||||
sub HMLAN_SimpleWrite(@);
|
sub HMLAN_SimpleWrite(@);
|
||||||
|
|
||||||
my $debug = 1; # set 1 for better log readability
|
my $debug = 0; # set 1 for better log readability
|
||||||
my %sets = (
|
my %sets = (
|
||||||
"hmPairForSec" => "HomeMatic",
|
"hmPairForSec" => "HomeMatic",
|
||||||
"hmPairSerial" => "HomeMatic",
|
"hmPairSerial" => "HomeMatic",
|
||||||
@ -392,9 +392,6 @@ sub HMLAN_SimpleWrite(@) {#####################################################
|
|||||||
Log $ll5,"HMLAN_Delay: $name msg delayed $dst $msg";
|
Log $ll5,"HMLAN_Delay: $name msg delayed $dst $msg";
|
||||||
return;
|
return;
|
||||||
}
|
}
|
||||||
else{
|
|
||||||
Log $ll5,"HMLAN_Delay: $name timed out";
|
|
||||||
}
|
|
||||||
}
|
}
|
||||||
my $flg = substr($msg,36,2);
|
my $flg = substr($msg,36,2);
|
||||||
$hash->{helper}{$dst}{flg} = (hex($flg)&0x20)?1:0;
|
$hash->{helper}{$dst}{flg} = (hex($flg)&0x20)?1:0;
|
||||||
|
|||||||
@ -1277,7 +1277,6 @@ sub CUL_HM_Parse($$) {##############################
|
|||||||
my $i=0;
|
my $i=0;
|
||||||
CUL_HM_SndCmd($ack[$i++],$ack[$i++])while ($i<@ack);
|
CUL_HM_SndCmd($ack[$i++],$ack[$i++])while ($i<@ack);
|
||||||
}
|
}
|
||||||
|
|
||||||
CUL_HM_ProcessCmdStack($shash) if ($respRemoved); # cont if complete
|
CUL_HM_ProcessCmdStack($shash) if ($respRemoved); # cont if complete
|
||||||
#------------ process events ------------------
|
#------------ process events ------------------
|
||||||
push @event, "noReceiver:src:$src ($cmd) $p" if(!@event);
|
push @event, "noReceiver:src:$src ($cmd) $p" if(!@event);
|
||||||
@ -2835,6 +2834,7 @@ sub CUL_HM_PushCmdStack($$) {
|
|||||||
my @arr = ();
|
my @arr = ();
|
||||||
my $hash = CUL_HM_getDeviceHash($chnhash);
|
my $hash = CUL_HM_getDeviceHash($chnhash);
|
||||||
my $name = $hash->{NAME};
|
my $name = $hash->{NAME};
|
||||||
|
|
||||||
if(!$hash->{cmdStack}){
|
if(!$hash->{cmdStack}){
|
||||||
$hash->{cmdStack} = \@arr;
|
$hash->{cmdStack} = \@arr;
|
||||||
delete ($hash->{helper}{burstEvtCnt}) if (!$hash->{helper}{respWait});
|
delete ($hash->{helper}{burstEvtCnt}) if (!$hash->{helper}{respWait});
|
||||||
@ -2860,7 +2860,7 @@ sub CUL_HM_ProcessCmdStack($) {
|
|||||||
CUL_HM_protState($hash,"CMDs_processing...");
|
CUL_HM_protState($hash,"CMDs_processing...");
|
||||||
CUL_HM_eventP($hash,"Snd");
|
CUL_HM_eventP($hash,"Snd");
|
||||||
}
|
}
|
||||||
if(!@{$hash->{cmdStack}}) {
|
elsif(!@{$hash->{cmdStack}}) {
|
||||||
delete($hash->{cmdStack});
|
delete($hash->{cmdStack});
|
||||||
delete($hash->{protCmdPend});
|
delete($hash->{protCmdPend});
|
||||||
#-- update info ---
|
#-- update info ---
|
||||||
|
|||||||
589
fhem/FHEM/98_HMinfo.pm
Normal file
589
fhem/FHEM/98_HMinfo.pm
Normal file
@ -0,0 +1,589 @@
|
|||||||
|
##############################################
|
||||||
|
# $Id$
|
||||||
|
package main;
|
||||||
|
use strict;
|
||||||
|
use warnings;
|
||||||
|
use POSIX;
|
||||||
|
|
||||||
|
sub CommandXmlList($$);
|
||||||
|
sub XmlEscape($);
|
||||||
|
use Blocking;
|
||||||
|
|
||||||
|
|
||||||
|
sub HMinfo_Initialize($$) {####################################################
|
||||||
|
my ($hash) = @_;
|
||||||
|
|
||||||
|
$hash->{DefFn} = "HMinfo_Define";
|
||||||
|
$hash->{SetFn} = "HMinfo_SetFn";
|
||||||
|
}
|
||||||
|
sub HMinfo_Define($$){#########################################################
|
||||||
|
my ($hash, $def) = @_;
|
||||||
|
my @a = split("[ \t][ \t]*", $def);
|
||||||
|
my $name = $hash->{NAME};
|
||||||
|
$hash->{Version} = "Beta-04";
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
sub HMinfo_getParam(@) { ######################################################
|
||||||
|
my ($id,@param) = @_;
|
||||||
|
my @paramList;
|
||||||
|
my $ehash = $modules{CUL_HM}{defptr}{$id};
|
||||||
|
my $eName = $ehash->{NAME};
|
||||||
|
my $found = 0;
|
||||||
|
foreach (@param){
|
||||||
|
my $para = CUL_HM_Get($ehash,$eName,"param",$_);
|
||||||
|
push @paramList,sprintf("%-20s",($para eq "undefined"?"-":$para));
|
||||||
|
$found = 1 if ($para ne "undefined") ;
|
||||||
|
}
|
||||||
|
return $found,sprintf("%-20s: %s",$eName,join "\t|",@paramList);
|
||||||
|
return sprintf("%-20s: %s",$eName,join "\t|",@paramList);
|
||||||
|
}
|
||||||
|
sub HMinfo_regCheck(@) { ######################################################
|
||||||
|
my @entities = @_;
|
||||||
|
my @regIncompl;
|
||||||
|
my @peerRegsFail;
|
||||||
|
foreach my $eName (@entities){
|
||||||
|
my $ehash = $defs{$eName};
|
||||||
|
my $devId = substr($defs{$eName}{DEF},0,6);
|
||||||
|
my @peerIdInReg;
|
||||||
|
foreach my $rdEntry (keys %{$ehash->{READINGS}}){
|
||||||
|
next if ($rdEntry !~m /^[\.]?RegL_(.*)/);
|
||||||
|
push @regIncompl,$eName.":".$rdEntry if ($ehash->{READINGS}{$rdEntry}{VAL} !~ m/00:00/);
|
||||||
|
my $peer = $rdEntry;
|
||||||
|
$peer =~ s/.*RegL_..://;
|
||||||
|
$peer =~ s/^self/$devId/;
|
||||||
|
next if (!$peer);
|
||||||
|
push @peerIdInReg,CUL_HM_name2Id($peer);
|
||||||
|
}
|
||||||
|
#- - - - check whether peer is required - - - -
|
||||||
|
my $peerLinReg = (join ",",sort @peerIdInReg);
|
||||||
|
$peerLinReg .= "," if ($peerLinReg);
|
||||||
|
my $peerIDs = AttrVal($eName,"peerIDs","");
|
||||||
|
$peerIDs =~ s/00000000,//;
|
||||||
|
push @peerRegsFail,$eName." - found:".$peerLinReg." expected:".$peerIDs
|
||||||
|
if ($peerLinReg ne $peerIDs);
|
||||||
|
}
|
||||||
|
return "\n incomplete register set\n " .(join "\n ",sort @regIncompl)
|
||||||
|
."\n missing Peer Registerset\n ".(join "\n ",sort @peerRegsFail)
|
||||||
|
;
|
||||||
|
}
|
||||||
|
sub HMinfo_peerCheck(@) { #####################################################
|
||||||
|
my @entities = @_;
|
||||||
|
my @peerIDsFail;
|
||||||
|
my @peerIDsEmpty;
|
||||||
|
my @peerIDsNoPeer;
|
||||||
|
my %th = CUL_HM_putHash("culHmModel");
|
||||||
|
foreach my $eName (@entities){
|
||||||
|
my $ehash = $defs{$eName};
|
||||||
|
my $id = $defs{$eName}{DEF};
|
||||||
|
my $devId = substr($id,0,6);
|
||||||
|
my $st = AttrVal(CUL_HM_id2Name($devId),"subType","");# from Master
|
||||||
|
my $md = AttrVal(CUL_HM_id2Name($devId),"model","");
|
||||||
|
my $peerIDs = AttrVal($eName,"peerIDs",undef);
|
||||||
|
if (!$peerIDs){ # no peers - is this correct?
|
||||||
|
next if (length($id) == 6 && $ehash->{channel_01});#device with channels - no peers on device level
|
||||||
|
next if ($st eq "virtual"); # virtuals may not have peers
|
||||||
|
|
||||||
|
my $list;
|
||||||
|
foreach (keys %th){
|
||||||
|
$list = $th{$_}{lst} if ($th{$_}{name} eq $md);
|
||||||
|
}
|
||||||
|
|
||||||
|
# should not be empty for SD
|
||||||
|
# should not be empty for entities with List 3 or 4
|
||||||
|
push @peerIDsEmpty,"empty critical: " .$eName if ($st eq "smokeDetector");
|
||||||
|
push @peerIDsEmpty,"empty: " .$eName if($list =~ m/[34]/); #those should have peers
|
||||||
|
}
|
||||||
|
elsif($peerIDs !~ m/00000000/ && $st ne "virtual"){#peerList incomplete
|
||||||
|
push @peerIDsFail,"incomplete: ".$eName.":".$peerIDs;
|
||||||
|
}
|
||||||
|
else{# work on a valid list:
|
||||||
|
foreach (split",",$peerIDs){
|
||||||
|
next if ($_ eq "00000000" ||$_ =~m /$devId/);
|
||||||
|
my $pName = CUL_HM_id2Name($_);
|
||||||
|
$pName =~s/_chn:01//; #channel 01 could be covered by device
|
||||||
|
my $pPlist = AttrVal($pName,"peerIDs","");
|
||||||
|
push @peerIDsNoPeer,$eName." p:".$pName if ($pPlist !~ m/$id/);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return "\n incomplete list" ."\n ".(join "\n ",sort @peerIDsFail)
|
||||||
|
."\n empty list" ."\n ".(join "\n ",sort @peerIDsEmpty)
|
||||||
|
."\n peer not verified"."\n ".(join "\n ",sort @peerIDsNoPeer)
|
||||||
|
;
|
||||||
|
}
|
||||||
|
sub HMinfo_getEntities(@) { ###################################################
|
||||||
|
my ($filter,$re) = @_;
|
||||||
|
my @names;
|
||||||
|
my ($doDev,$doChn,$noVrt,$noPhy,$noAct,$noSen,$doEmp);
|
||||||
|
$doDev=$doChn=$doEmp= 1;
|
||||||
|
$noVrt=$noPhy=$noAct=$noSen = 0;
|
||||||
|
$filter .= "dc" if ($filter !~ m/d/ && $filter !~ m/c/); # add default
|
||||||
|
$re = '.' if (!$re);
|
||||||
|
if ($filter){# options provided
|
||||||
|
$doDev=$doChn=$doEmp= 0;#change default
|
||||||
|
no warnings;
|
||||||
|
my @pl = split undef,$filter;
|
||||||
|
use warnings;
|
||||||
|
foreach (@pl){
|
||||||
|
$doDev = 1 if($_ eq 'd');
|
||||||
|
$doChn = 1 if($_ eq 'c');
|
||||||
|
$noVrt = 1 if($_ eq 'v');
|
||||||
|
$noPhy = 1 if($_ eq 'p');
|
||||||
|
$noAct = 1 if($_ eq 'a');
|
||||||
|
$noSen = 1 if($_ eq 's');
|
||||||
|
$doEmp = 1 if($_ eq 'e');
|
||||||
|
}
|
||||||
|
}
|
||||||
|
# generate entity list
|
||||||
|
foreach my $id (sort(keys%{$modules{CUL_HM}{defptr}})){
|
||||||
|
next if ($id eq "000000");
|
||||||
|
my $eHash = $modules{CUL_HM}{defptr}{$id};
|
||||||
|
my $eName = $eHash->{NAME};
|
||||||
|
my $isChn = (length($id) != 6 || CUL_HM_Get($eHash,$eName,"param","channel_01") eq "undefined")?1:0;
|
||||||
|
my $eMd = CUL_HM_Get($eHash,$eName,"param","model");
|
||||||
|
next if (!(($doDev && length($id) == 6) ||
|
||||||
|
($doChn && $isChn)));
|
||||||
|
next if ($noVrt && $eMd =~ m/^virtual/);
|
||||||
|
next if ($noPhy && $eMd !~ m/^virtual/);
|
||||||
|
my $eSt = CUL_HM_Get($eHash,$eName,"param","subType");
|
||||||
|
|
||||||
|
next if ($noSen && $eSt =~ m/^(THSensor|remote|pushButton|threeStateSensor|sensor|motionDetector|swi)$/);
|
||||||
|
next if ($noAct && $eSt =~ m/^(switch|blindActuator|dimmer|thermostat|smokeDetector|KFM100|outputUnit)$/);
|
||||||
|
next if ($eName !~ m/$re/);
|
||||||
|
push @names,$eName;
|
||||||
|
}
|
||||||
|
return sort(@names);
|
||||||
|
}
|
||||||
|
|
||||||
|
sub HMinfo_SetFn($$) {#########################################################
|
||||||
|
my ($hash,$name,$cmd,@a) = @_;
|
||||||
|
my ($opt,$optEmpty,$filter) = ("",1,"");
|
||||||
|
my $ret;
|
||||||
|
|
||||||
|
if (@a && ($a[0] =~ m/^-/) && ($a[0] !~ m/^-f$/)){# options provided
|
||||||
|
$opt = $a[0];
|
||||||
|
$optEmpty = ($opt =~ m/e/)?1:0;
|
||||||
|
shift @a; #remove
|
||||||
|
}
|
||||||
|
if (@a && $a[0] =~ m/^-f$/){# options provided
|
||||||
|
shift @a; #remove
|
||||||
|
$filter = shift @a;
|
||||||
|
}
|
||||||
|
|
||||||
|
if ($cmd eq "?" ) {##actionImmediate: clear parameter--------------
|
||||||
|
return "autoReadReg clear configCheck param peerCheck peerXref protoEvents models regCheck register rssi saveConfig";
|
||||||
|
}
|
||||||
|
elsif($cmd eq "clear" ) {##actionImmediate: clear parameter--------------
|
||||||
|
my ($type) = @a;
|
||||||
|
$opt .= "d" if ($type ne "Readings");# readings apply to all, others device only
|
||||||
|
my @entities;
|
||||||
|
foreach my $dName (HMinfo_getEntities($opt."v",$filter)){
|
||||||
|
push @entities,$dName;
|
||||||
|
if ($type eq "Rssi"){
|
||||||
|
delete $defs{$dName}{helper}{rssi};
|
||||||
|
next;
|
||||||
|
}
|
||||||
|
CUL_HM_Set($defs{$dName},$dName,"clear",(($type eq "Protocol")?"msgEvents":"readings"));
|
||||||
|
}
|
||||||
|
return $cmd.$type." done:" ."\n cleared" ."\n ".(join "\n ",sort @entities)
|
||||||
|
;
|
||||||
|
}
|
||||||
|
elsif($cmd eq "autoReadReg"){##actionImmediate: re-issue register Read-------
|
||||||
|
my @entities;
|
||||||
|
foreach my $dName (HMinfo_getEntities($opt."dv",$filter)){
|
||||||
|
next if (!substr(AttrVal($dName,"autoReadReg","0"),0,1));
|
||||||
|
|
||||||
|
my @arr;
|
||||||
|
if(!$modules{CUL_HM}{helper}{updtCfgLst}){
|
||||||
|
$modules{CUL_HM}{helper}{updtCfgLst} = \@arr;
|
||||||
|
}
|
||||||
|
push @{$modules{CUL_HM}{helper}{updtCfgLst}}, $dName;
|
||||||
|
RemoveInternalTimer("updateConfig");
|
||||||
|
InternalTimer(gettimeofday()+5,"CUL_HM_autoReadConfig", "updateConfig", 0);
|
||||||
|
push @entities,$dName;
|
||||||
|
}
|
||||||
|
return $cmd." done:" ."\n cleared" ."\n ".(join "\n ",sort @entities)
|
||||||
|
;
|
||||||
|
}
|
||||||
|
elsif($cmd eq "protoEvents"){##print protocol-events-------------------------
|
||||||
|
my @paramList;
|
||||||
|
foreach my $dName (HMinfo_getEntities($opt."dv",$filter)){
|
||||||
|
my $id = $defs{$dName}{DEF};
|
||||||
|
my ($found,$para) = HMinfo_getParam($id,"protState","protCmdPend","protSnd",
|
||||||
|
"protLastRcv","protResndFail","protResnd","protNack");
|
||||||
|
$para =~ s/ last_at//g;
|
||||||
|
push @paramList,$para;
|
||||||
|
}
|
||||||
|
my $hdr = sprintf("%-20s:%-23s|%-23s|%-23s|%-23s|%-23s|%-23s|%-23s",
|
||||||
|
"name","protState","protCmdPend","protSnd",
|
||||||
|
"protLastRcv","protResndFail","protResnd","protNack");
|
||||||
|
$ret = $cmd." done:" ."\n ".$hdr ."\n ".(join "\n ",sort @paramList)
|
||||||
|
;
|
||||||
|
}
|
||||||
|
elsif($cmd eq "rssi") {##print RSSI protocol-events--------------------
|
||||||
|
my @rssiList;
|
||||||
|
foreach my $dName (HMinfo_getEntities($opt."dv",$filter)){
|
||||||
|
foreach my $dest (keys %{$defs{$dName}{helper}{rssi}}){
|
||||||
|
my $dispName = $dName;
|
||||||
|
my $dispDest = $dest;
|
||||||
|
if ($dest =~ m/^at_(.*)/){
|
||||||
|
$dispName = $1;
|
||||||
|
$dispName =~ s/^rpt_//;
|
||||||
|
$dispDest = (($dest =~ m/^to_rpt_/)?"rep_":"").$dName;
|
||||||
|
}
|
||||||
|
push @rssiList,sprintf("%-15s %-15s %6.1f %6.1f %6.1f<%6.1f %3s"
|
||||||
|
,$dispName,$dispDest
|
||||||
|
,$defs{$dName}{helper}{rssi}{$dest}{lst}
|
||||||
|
,$defs{$dName}{helper}{rssi}{$dest}{avg}
|
||||||
|
,$defs{$dName}{helper}{rssi}{$dest}{min}
|
||||||
|
,$defs{$dName}{helper}{rssi}{$dest}{max}
|
||||||
|
,$defs{$dName}{helper}{rssi}{$dest}{cnt}
|
||||||
|
);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
$ret = $cmd." done:"."\n "."receive from last avg min<max count"
|
||||||
|
."\n ".(join "\n ",sort @rssiList)
|
||||||
|
;
|
||||||
|
}
|
||||||
|
elsif($cmd eq "register") {##print register--------------------------------
|
||||||
|
# devicenameFilter
|
||||||
|
my $RegReply = "";
|
||||||
|
my @noReg;
|
||||||
|
foreach my $dName (HMinfo_getEntities($opt."v",$filter)){
|
||||||
|
my $regs = CUL_HM_Get(CUL_HM_name2Hash($dName),$dName,"reg","all");
|
||||||
|
if ($regs !~ m/[0-6]:/){
|
||||||
|
push @noReg,$dName;
|
||||||
|
next;
|
||||||
|
}
|
||||||
|
my ($peerOld,$ptOld,$ptLine,$peerLine) = ("",""," "," ");
|
||||||
|
foreach my $reg (split("\n",$regs)){
|
||||||
|
my ($peer,$h1) = split ("\t",$reg);
|
||||||
|
$peer =~s/ //g;
|
||||||
|
if ($peer !~ m/3:/){
|
||||||
|
$RegReply .= $reg."\n";
|
||||||
|
next;
|
||||||
|
}
|
||||||
|
$peer =~s/3://;
|
||||||
|
next if (!$h1);
|
||||||
|
my ($regN,$h2) = split (":",$h1);
|
||||||
|
my ($val,$unit) = split (" ",$h2);
|
||||||
|
$unit = $unit?("[".$unit."]"):" ";
|
||||||
|
my ($pt,$rN) = ($1,$2) if ($regN =~m/(..)(.*)/);
|
||||||
|
$rN .= $unit;
|
||||||
|
$hash->{helper}{r}{$rN} = "" if (!defined($hash->{helper}{r}{$rN}));
|
||||||
|
$hash->{helper}{r}{$rN} .= sprintf("%16s",$val);
|
||||||
|
if ($pt ne $ptOld){
|
||||||
|
$ptLine .= sprintf("%16s",$pt);
|
||||||
|
$ptOld = $pt;
|
||||||
|
}
|
||||||
|
if ($peer ne $peerOld){
|
||||||
|
$peerLine .= sprintf("%32s",$peer);
|
||||||
|
$peerOld = $peer;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
$RegReply .= $peerLine."\n".$ptLine."\n";
|
||||||
|
foreach my $rN (sort keys %{$hash->{helper}{r}}){
|
||||||
|
$RegReply .= $rN.$hash->{helper}{r}{$rN}."\n";
|
||||||
|
}
|
||||||
|
delete $hash->{helper}{r};
|
||||||
|
}
|
||||||
|
$ret = "No regs found for:".join(",",sort @noReg)."\n\n"
|
||||||
|
.$RegReply;
|
||||||
|
}
|
||||||
|
elsif($cmd eq "param") {##print param ----------------------------------
|
||||||
|
my @paramList;
|
||||||
|
foreach my $dName (HMinfo_getEntities($opt,$filter)){
|
||||||
|
my $id = $defs{$dName}{DEF};
|
||||||
|
my ($found,$para) = HMinfo_getParam($id,@a);
|
||||||
|
push @paramList,$para if($found || $optEmpty);
|
||||||
|
}
|
||||||
|
$ret = $cmd." done:" ."\n param list" ."\n ".(join "\n ",sort @paramList)
|
||||||
|
;
|
||||||
|
}
|
||||||
|
elsif($cmd eq "regCheck") {##check register--------------------------------
|
||||||
|
my @entities = HMinfo_getEntities($opt."v",$filter);
|
||||||
|
$ret = $cmd." done:" .HMinfo_regCheck(@entities);
|
||||||
|
}
|
||||||
|
elsif($cmd eq "peerCheck") {##check peers-----------------------------------
|
||||||
|
my @entities = HMinfo_getEntities($opt."v",$filter);
|
||||||
|
$ret = $cmd." done:" .HMinfo_peerCheck(@entities);
|
||||||
|
}
|
||||||
|
elsif($cmd eq "configCheck"){##check peers and register----------------------
|
||||||
|
my @entities = HMinfo_getEntities($opt."v",$filter);
|
||||||
|
$ret = $cmd." done:" .HMinfo_regCheck(@entities)
|
||||||
|
.HMinfo_peerCheck(@entities);
|
||||||
|
}
|
||||||
|
elsif($cmd eq "peerXref") {##print cross-references------------------------
|
||||||
|
my @peerPairs;
|
||||||
|
foreach my $dName (HMinfo_getEntities($opt,$filter)){
|
||||||
|
my $peerIDs = AttrVal($dName,"peerIDs",undef);
|
||||||
|
foreach (split",",$peerIDs){
|
||||||
|
next if ($_ eq "00000000");
|
||||||
|
my $pName = CUL_HM_id2Name($_);
|
||||||
|
my $pPlist = AttrVal($pName,"peerIDs","");
|
||||||
|
$pName =~ s/$dName\_chn:/self/;
|
||||||
|
push @peerPairs,$dName." =>".$pName;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
$ret = $cmd." done:" ."\n x-ref list" ."\n ".(join "\n ",sort @peerPairs)
|
||||||
|
;
|
||||||
|
}
|
||||||
|
elsif($cmd eq "models") {##print capability, models----------------------
|
||||||
|
my %th = CUL_HM_putHash("culHmModel");
|
||||||
|
my @model;
|
||||||
|
push @model,sprintf("%4s %-24s %-16s %-13s %-5s %-5s %s"
|
||||||
|
," ID"
|
||||||
|
,"name"
|
||||||
|
,"subType"
|
||||||
|
,"supportedMode"
|
||||||
|
,"Info"
|
||||||
|
,"List"
|
||||||
|
,"channels"
|
||||||
|
);
|
||||||
|
foreach (keys %th){
|
||||||
|
my $mode = $th{$_}{rxt};
|
||||||
|
$mode =~ s/c/config/;
|
||||||
|
$mode =~ s/w/wakeup/;
|
||||||
|
$mode =~ s/b/burst/;
|
||||||
|
$mode =~ s/:/,/;
|
||||||
|
$mode = "normal" if (!$mode);
|
||||||
|
my $list = $th{$_}{lst};
|
||||||
|
$list =~ s/.://g;
|
||||||
|
$list =~ s/p//;
|
||||||
|
my $chan = "";
|
||||||
|
foreach (split",",$th{$_}{chn}){
|
||||||
|
my ($n,$s,$e) = split(":",$_);
|
||||||
|
$chan .= $s.(($s eq $e)?"":("-".$e))." ".$n.", ";
|
||||||
|
}
|
||||||
|
push @model,sprintf("%4s %-24s %-16s %-13s %-5s %-5s %s"
|
||||||
|
,$_
|
||||||
|
,$th{$_}{name}
|
||||||
|
,$th{$_}{st}
|
||||||
|
,$mode
|
||||||
|
,$th{$_}{cyc}
|
||||||
|
,$list
|
||||||
|
,$chan
|
||||||
|
);
|
||||||
|
}
|
||||||
|
$ret = $cmd.($filter?" filtered":"").":$filter\n ".join"\n ",grep(/$filter/,sort @model);
|
||||||
|
}
|
||||||
|
elsif($cmd eq "help") {
|
||||||
|
$ret = " Unknown argument $cmd, choose one of "
|
||||||
|
."\n ---checks---"
|
||||||
|
."\n configCheck [<typeFilter>] # perform regCheck and regCheck"
|
||||||
|
."\n regCheck [<typeFilter>] # find incomplete or inconsistant register readings"
|
||||||
|
."\n peerCheck [<typeFilter>] # find incomplete or inconsistant peer lists"
|
||||||
|
."\n ---actions---"
|
||||||
|
."\n saveConfig [<typeFilter>] <file> # stores peers and register with saveConfig"
|
||||||
|
."\n autoReadReg [<typeFilter>] # trigger update readings if attr autoReadReg is set"
|
||||||
|
."\n ---infos---"
|
||||||
|
."\n register [<typeFilter>] # devicefilter parse devicename. Partial strings supported"
|
||||||
|
."\n peerXref [<typeFilter>] peer cross-reference"
|
||||||
|
."\n models [<typeFilter>] # list of models incl native parameter"
|
||||||
|
."\n protoEvents [<typeFilter>] # protocol status - names can be filtered"
|
||||||
|
."\n param [<typeFilter>] [<param1>] [<param2>] ... # displays params for all entities as table"
|
||||||
|
."\n rssi [<typeFilter>] # displays receive level of the HM devices"
|
||||||
|
."\n last: most recent"
|
||||||
|
."\n avg: average overall"
|
||||||
|
."\n range: min to max value"
|
||||||
|
."\n count: number of events in calculation"
|
||||||
|
."\n ---clear status---"
|
||||||
|
."\n clear [<typeFilter>] [Protocol|Readings|Rssi]"
|
||||||
|
."\n Protocol # delete all protocol-events"
|
||||||
|
."\n Readings # delete all readings"
|
||||||
|
."\n Rssi # delete all rssi data"
|
||||||
|
."\n ---help---"
|
||||||
|
."\n help #"
|
||||||
|
."\n ***footnote***"
|
||||||
|
."\n [<nameFilter>] : only matiching names are processed - partial names are possible"
|
||||||
|
."\n [<modelsFilter>] : any match in the output are searched. "
|
||||||
|
."\n"
|
||||||
|
."\n ======= typeFilter options: supress class of devices ===="
|
||||||
|
."\n set <name> <cmd> [-dcasev] [-f <filter>] [params]"
|
||||||
|
."\n entities according to list will be processed"
|
||||||
|
."\n d - device :include devices"
|
||||||
|
."\n c - channels :include channels"
|
||||||
|
."\n v - virtual :supress fhem virtual"
|
||||||
|
."\n p - physical :supress physical"
|
||||||
|
."\n a - aktor :supress actor"
|
||||||
|
."\n s - sensor :supress sensor"
|
||||||
|
."\n e - empty :include results even if requested fields are empty"
|
||||||
|
."\n "
|
||||||
|
."\n -f - filter :regexp to filter entity names "
|
||||||
|
."\n "
|
||||||
|
;
|
||||||
|
}
|
||||||
|
else {## go for delayed action
|
||||||
|
$hash->{helper}{childCnt} = 0 if (!$hash->{helper}{childCnt});
|
||||||
|
my $chCnt = ($hash->{helper}{childCnt}+1)%1000;
|
||||||
|
my $childName = "child_".$chCnt;
|
||||||
|
|
||||||
|
|
||||||
|
# my $blkH = BlockingCall("HMinfo_SetFnDly",
|
||||||
|
# join( ",",($childName,$name,$cmd,$opt,$optEmpty,$filter,@a)),
|
||||||
|
# "HMinfo_post",
|
||||||
|
# 10);
|
||||||
|
# $hash->{helper}{child}{$childName} = " started:".gettimeofday();
|
||||||
|
# $hash->{helper}{childCnt} = $chCnt;
|
||||||
|
# my $chPid = $blkH->{pid};
|
||||||
|
# Log 1,"General parent started $childName PID:$chPid ".$hash->{helper}{child}{$childName};
|
||||||
|
# return "unblock started $childName PID:$chPid ".$hash->{helper}{child}{$childName};
|
||||||
|
|
||||||
|
|
||||||
|
return HMinfo_SetFnDly(join(",",($childName,$name,$cmd,$opt,$optEmpty,$filter,@a)));
|
||||||
|
}
|
||||||
|
return $ret;
|
||||||
|
}
|
||||||
|
|
||||||
|
sub HMinfo_SetFnDly($) {#######################################################
|
||||||
|
my $in = shift;
|
||||||
|
my ($childName,$name,$cmd,$opt,$optEmpty,$filter,@a) = split",",$in;
|
||||||
|
my $ret;
|
||||||
|
my $hash = $defs{$name};
|
||||||
|
if ($cmd eq "saveConfig") {##action: saveConfig----------------------------
|
||||||
|
my ($file) = @a;
|
||||||
|
my @entities;
|
||||||
|
foreach my $dName (HMinfo_getEntities($opt."dv",$filter)){
|
||||||
|
CUL_HM_Get($defs{$dName},$dName,"saveConfig",$file);
|
||||||
|
push @entities,$dName;
|
||||||
|
foreach my $chnId (CUL_HM_getAssChnIds($dName)){
|
||||||
|
my $dName = CUL_HM_id2Name($chnId);
|
||||||
|
push @entities, $dName if($dName !~ m/_chn:/);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
$ret = $cmd." done:" ."\n saved" ."\n ".(join "\n ",sort @entities)
|
||||||
|
;
|
||||||
|
}
|
||||||
|
else{
|
||||||
|
$ret = " Unknown argument ";
|
||||||
|
}
|
||||||
|
return $ret;
|
||||||
|
}
|
||||||
|
sub HMinfo_post($) {###########################################################
|
||||||
|
my ($name,$childName) = (split":",$_);
|
||||||
|
foreach (keys %{$defs{$name}{helper}{child}}){
|
||||||
|
Log 1,"General still running: $_ ".$defs{$name}{helper}{child}{$_};
|
||||||
|
}
|
||||||
|
delete $defs{$name}{helper}{child}{$childName};
|
||||||
|
Log 1,"General deleted $childName now++++++++++++++";
|
||||||
|
return "finished";
|
||||||
|
}
|
||||||
|
1;
|
||||||
|
=pod
|
||||||
|
=begin html
|
||||||
|
|
||||||
|
<a name="HMinfo"></a>
|
||||||
|
<h3>HMinfo</h3>
|
||||||
|
<ul>
|
||||||
|
<tr><td>
|
||||||
|
HMinfo is a module that shall support in getting an overview of HM
|
||||||
|
installation and settings. It also allows some HM wide commands such
|
||||||
|
as store all collected register settings.
|
||||||
|
<br>
|
||||||
|
Commands will be executed on all HM entities of the installation.
|
||||||
|
If applicable and evident execution is restricted to related entities.
|
||||||
|
This means that rssi is only executed on devices, not in channels.
|
||||||
|
Channels never have rssi values.<br>
|
||||||
|
Filter can be applied as following:<br>
|
||||||
|
set <name> <cmd> <filter> [<param>]<br>
|
||||||
|
whereby the filter is has the two segments<br>
|
||||||
|
[-dcasev] [-f <filter>]<br>
|
||||||
|
with filter for types <br>
|
||||||
|
<li>
|
||||||
|
d - device :include devices<br>
|
||||||
|
c - channels :include channels<br>
|
||||||
|
v - virtual :supress fhem virtual<br>
|
||||||
|
p - physical :supress physical<br>
|
||||||
|
a - aktor :supress actor<br>
|
||||||
|
s - sensor :supress sensor<br>
|
||||||
|
e - empty :include results even if requested fields are empty<br>
|
||||||
|
</li>
|
||||||
|
and/or a filter for names:<br>
|
||||||
|
<li>
|
||||||
|
-f - filter :regexp to filter entity names <br>
|
||||||
|
</li>
|
||||||
|
example:<br>
|
||||||
|
<li>
|
||||||
|
set hm param -d -f dim state # display param 'state' for all devices whos name contains dim
|
||||||
|
set hm param -c -f ^dimUG$ peerList # display param 'peerList' for all channels whos name is dimUG
|
||||||
|
set hm param -dcv expert # get attribut expert for all channels,devices or virtuals
|
||||||
|
</li>
|
||||||
|
<br>
|
||||||
|
<a name="HMinfodefine"></a>
|
||||||
|
<b>Define</b>
|
||||||
|
<ul>
|
||||||
|
<code>define <name> HMinfo</code><br>
|
||||||
|
</ul>
|
||||||
|
<br>
|
||||||
|
|
||||||
|
<a name="HMinfoset"></a>
|
||||||
|
<b>Set</b>
|
||||||
|
even though the commands are more a get funktion they are implemented
|
||||||
|
as set to allow simple web interface usage <br>
|
||||||
|
<ul>
|
||||||
|
<li><a href="#models">models</a><br>
|
||||||
|
<li>list all HM models that are supported in FHEM
|
||||||
|
</li>
|
||||||
|
</li>
|
||||||
|
<li><a href="#param">param <name> <name>...</a><br>
|
||||||
|
<li>returns a table parameter values (attribute, readings,...)
|
||||||
|
for all entities as a table
|
||||||
|
</li>
|
||||||
|
</li>
|
||||||
|
<li><a href="#regCheck">regCheck</a><br>
|
||||||
|
<li>performs a consistancy check on register readings for completeness
|
||||||
|
</li>
|
||||||
|
</li>
|
||||||
|
<li><a href="#peerCheck">peerCheck</a><br>
|
||||||
|
<li>performs a consistancy check on peers. If a peer is set in one channel
|
||||||
|
this funktion will search wether the peer also exist on the opposit side.
|
||||||
|
</li>
|
||||||
|
</li>
|
||||||
|
<li><a href="#configCheck">configCheck</a><br>
|
||||||
|
<li>performs a consistancy check of HM settings. It includes regCheck and peerCheck
|
||||||
|
</li>
|
||||||
|
</li>
|
||||||
|
<li><a href="#peerXref">peerXref</a><br>
|
||||||
|
<li>provides a cross-reference on peerings, a kind of who-with-who summary over HM
|
||||||
|
</li>
|
||||||
|
</li>
|
||||||
|
<li><a href="#saveConfig">saveConfig</a><br>
|
||||||
|
<li>performs a save for all HM register setting.
|
||||||
|
</li>
|
||||||
|
</li>
|
||||||
|
<li><a href="#clearProtocol">clearProtocol</a><br>
|
||||||
|
<li>executes a set clear msgEvents on all HM devices
|
||||||
|
</li>
|
||||||
|
</li>
|
||||||
|
<li><a href="#clearReadings">clearReadings</a><br>
|
||||||
|
<li>executes a set clear readings on all HM devices
|
||||||
|
</li>
|
||||||
|
</li>
|
||||||
|
<li><a href="#clearRssi">clearRssi</a><br>
|
||||||
|
<li>executes a set clear rssi on all HM devices
|
||||||
|
</li>
|
||||||
|
</li>
|
||||||
|
<li><a href="#autoReadReg">autoReadReg</a><br>
|
||||||
|
<li>stimulates a read of the configuration for the devices.
|
||||||
|
</li>
|
||||||
|
</li>
|
||||||
|
<li><a href="#sys">sys</a><br>
|
||||||
|
</li>
|
||||||
|
</ul>
|
||||||
|
<br>
|
||||||
|
|
||||||
|
<a name="HMinfoget"></a>
|
||||||
|
<b>Get</b>
|
||||||
|
<ul>
|
||||||
|
N/A
|
||||||
|
</ul>
|
||||||
|
<br><br>
|
||||||
|
|
||||||
|
<a name="HMinfoattr"></a>
|
||||||
|
<b>Attributes</b>
|
||||||
|
<ul>
|
||||||
|
N/A
|
||||||
|
</ul>
|
||||||
|
</ul>
|
||||||
|
=end html
|
||||||
|
=cut
|
||||||
Loading…
Reference in New Issue
Block a user