FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-03 23:06:37 +00:00
Code Issues Releases Wiki Activity

storage and reloed, purge of reading files

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@4800 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
martinp876 2014-02-03 13:28:21 +00:00
parent 95a14bfdee
commit 0e3a3d7056
2 changed files with 185 additions and 66 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

132
fhem/FHEM/10_CUL_HM.pm
View File

@ -166,6 +166,7 @@ sub CUL_HM_Initialize($) {
$hash->{helper}{qReqConf} = \@confQArr;
$hash->{helper}{qReqConfWu} = \@confQWuArr;
$hash->{helper}{confCheckArr} = \@confCheckArr;
$hash->{helper}{cfgCmpl}{init}= 1;# mark entities with complete config
#statistics
$hash->{stat}{s}{dummy}=0;
$hash->{stat}{r}{dummy}=0;
@ -190,6 +191,7 @@ sub CUL_HM_updateConfig($){
# this gives FHEM sufficient time to fill in attributes
# it will also be called after each manual definition
# Purpose is to parse attributes and read config
foreach my $name (@{$modules{CUL_HM}{helper}{updtCfgLst}}){
my $hash = $defs{$name};
next if (!$hash->{DEF}); # likely renamed
@ -206,11 +208,19 @@ sub CUL_HM_updateConfig($){
next;
}
CUL_HM_ID2PeerList($name,"",1); # update peerList out of peerIDs
my $chn = substr($id."00",6,2);
my $st = CUL_HM_Get($hash,$name,"param","subType");
my $md = CUL_HM_Get($hash,$name,"param","model");
foreach my $rName ("D-firmware","D-serialNr",".D-devInfo",".D-stc"){
# move certain attributes to readings for future handling
my $aName = $rName;
$aName =~ s/D-//;
my $aVal = AttrVal($name,$aName,undef);
CUL_HM_UpdtReadSingle($hash,$rName,$aVal,0)
if (!defined ReadingsVal($name,$rName,undef));
}
if ($md =~ /(HM-CC-TC|ROTO_ZEL-STG-RM-FWT)/){
$hash->{helper}{role}{chn} = 1 if (length($id) == 6); #tc special
}
@ -259,6 +269,19 @@ sub CUL_HM_updateConfig($){
}
elsif ("virtual" eq $st) {#setup virtuals
$hash->{helper}{role}{vrt} = 1;
if ( $hash->{helper}{fkt}
&& $hash->{helper}{fkt} =~ m/^(vdCtrl|virtThSens)$/){
my $n = ReadingsVal($name,".next",0);
my $now = gettimeofday();
$n = $now if ($n<$now);
my $vId = substr($id."01",0,8);
$hash->{helper}{virtTC} = "00";
CUL_HM_Set($hash,$name,"valvePos",ReadingsVal($name,"valvePosTC",""));
CUL_HM_Set($hash,$name,"virtTemp",ReadingsVal($name,"temperature",""));
CUL_HM_Set($hash,$name,"virtHum" ,ReadingsVal($name,"humidity",""));
RemoveInternalTimer("valvePos:$vId");
InternalTimer($n,"CUL_HM_valvePosUpdt","valvePos:$vId",0);
}
}
next if ($nAttr);# stop if default setting if attributes is not desired
@ -295,9 +318,10 @@ sub CUL_HM_updateConfig($){
else {$webCmd="virtual";}
}elsif((!$hash->{helper}{role}{chn} &&
$md =~ m/(HM-CC-TC|ROTO_ZEL-STG-RM-FWT)/)
$md !~ m/(HM-CC-TC|ROTO_ZEL-STG-RM-FWT)/)
||$st eq "repeater"
||$md =~ m/(HM-CC-VD|ROTO_ZEL-STG-RM-FSA)/ ){$webCmd="getConfig:clear msgEvents";
if ($md =~ m/HM-CC-RT-DN/) {$webCmd.=":burstXmit";}
}elsif($st eq "blindActuator"){
if ($hash->{helper}{role}{chn}){$webCmd="statusRequest:toggle:on:off:up:down:stop";}
else{ $webCmd="statusRequest:getConfig:clear msgEvents";}
@ -314,8 +338,6 @@ sub CUL_HM_updateConfig($){
}elsif($md eq "HM-OU-CFM-PL" ){ $webCmd="press short:press long"
.($chn eq "02"?":playTone replay":"");
}
if (!$hash->{helper}{role}{chn}
&& $md =~ m/HM-CC-RT-DN/) {$webCmd.=":burstXmit";}
if ($webCmd){
my $eventMap = AttrVal($name,"eventMap",undef);
@ -349,6 +371,7 @@ sub CUL_HM_Define($$) {##############################
my ($hash, $def) = @_;
my @a = split("[ \t][ \t]*", $def);
my $HMid = uc($a[2]);
return "wrong syntax: define <name> CUL_HM 6-digit-hex-code [Raw-Message]"
if(!(int(@a)==3 || int(@a)==4) || $HMid !~ m/^[A-F0-9]{6,8}$/i);
return "HMid DEF already used by " . CUL_HM_id2Name($HMid)
@ -1793,7 +1816,7 @@ sub CUL_HM_parseCommon(@){#####################################################
Log3 $shash,3, "CUL_HM pair: $shash->{NAME} "
."$attr{$shash->{NAME}}{subType}, "
."model $attr{$shash->{NAME}}{model} "
."serialNr $attr{$shash->{NAME}}{serialNr}";
."serialNr ".ReadingsVal($shash->{NAME},"D-serialNr","");
delete $ioHash->{hmPairSerial};
CUL_HM_respPendRm($shash); # remove all pending messages
delete $shash->{cmdStack};
@ -1827,10 +1850,10 @@ sub CUL_HM_parseCommon(@){#####################################################
elsif($mTp eq "10"){######################################
my $subType = substr($p,0,2);
if ($subType eq "00"){ #SerialRead====================================
$attr{$shash->{NAME}}{serialNr} = pack("H*",substr($p,2,20));
if ($pendType eq "SerialRead"){
CUL_HM_respPendRm($shash);
}
my $sn = pack("H*",substr($p,2,20));
CUL_HM_UpdtReadSingle($shash,"D-serialNr",$sn,0);
$attr{$shash->{NAME}}{serialNr} = $sn;
CUL_HM_respPendRm($shash) if ($pendType eq "SerialRead");
$ret = "done";
}
elsif($subType eq "01"){ #storePeerList=================================
@ -2296,6 +2319,10 @@ sub CUL_HM_Get($@) {
foreach my $eName (@eNames){
print aSave "\n#--- entity:".$eName;
foreach my $rName ("D-firmware","D-serialNr",".D-devInfo",".D-stc"){
my $rVal = ReadingsVal($eName,$rName,undef);
print aSave "\nsetreading $eName $rName $rVal" if (defined $rVal);
}
my $pIds = AttrVal($eName, "peerIDs", "");
my $timestamps = "\n# timestamp of the readings for reference";
if ($pIds){
@ -2348,7 +2375,8 @@ sub CUL_HM_Set($@) {
my $roleV = $hash->{helper}{role}{vrt}?1:0;
my $mdCh = $md.($isChannel?$chn:"00"); # chan specific commands?
my $fkt = $hash->{helper}{fkt}?$hash->{helper}{fkt}:"";
my $h = $culHmGlobalSets->{$cmd} if( $st ne "virtual");
my $h = undef;
$h = $culHmGlobalSets->{$cmd} if( $st ne "virtual");
$h = $culHmGlobalSetsVrtDev->{$cmd} if(!defined($h) &&($st eq "virtual"||!$st) && $roleD);
$h = $culHmGlobalSetsDevice->{$cmd} if(!defined($h) && $st ne "virtual" && $roleD);
$h = $culHmSubTypeDevSets->{$st}{$cmd}if(!defined($h) && $st ne "virtual" && $roleD);
@ -2368,7 +2396,6 @@ sub CUL_HM_Set($@) {
}
elsif(!defined($h)) {
my @arr1 = ();
if( $st ne "virtual") {foreach(keys %{$culHmGlobalSets} ){push @arr1,"$_:".$culHmGlobalSets->{$_} }};
if(($st eq "virtual"||!$st) && $roleD){foreach(keys %{$culHmGlobalSetsVrtDev} ){push @arr1,"$_:".$culHmGlobalSetsVrtDev->{$_} }};
if( $st ne "virtual" && $roleD){foreach(keys %{$culHmGlobalSetsDevice} ){push @arr1,"$_:".$culHmGlobalSetsDevice->{$_} }};
@ -2516,6 +2543,7 @@ sub CUL_HM_Set($@) {
my @cH = ($hash);
push @cH,$defs{$hash->{$_}} foreach(grep /^channel/,keys %{$hash});
delete $_->{READINGS} foreach (@cH);
delete $modules{CUL_HM}{helper}{cfgCmpl}{$_->{NAME}};
CUL_HM_complConfig($_->{NAME}) foreach (@cH);
}
elsif($sect eq "register"){
@ -2525,6 +2553,7 @@ sub CUL_HM_Set($@) {
foreach my $h(@cH){
delete $h->{READINGS}{$_}
foreach (grep /^(\.?)(R-|RegL)/,keys %{$h->{READINGS}});
delete $modules{CUL_HM}{helper}{cfgCmpl}{$_->{NAME}};
CUL_HM_complConfig($h->{NAME});
}
}
@ -2568,7 +2597,7 @@ sub CUL_HM_Set($@) {
}
elsif($cmd eq "pair") { #####################################################
$state = "";
my $serialNr = AttrVal($name, "serialNr", undef);
my $serialNr = ReadingsVal($name, "D-serialNr", undef);
return "serialNr is not set" if(!$serialNr);
CUL_HM_PushCmdStack($hash,"++A401".$id."000000010A".uc( unpack("H*",$serialNr)));
$hash->{hmPairSerial} = $serialNr;
@ -3193,7 +3222,9 @@ sub CUL_HM_Set($@) {
my $ph = CUL_HM_id2Hash($pId[0]);
return "peerID $pId[0] is not assigned to a device " if (!$ph);
$hash->{helper}{vd}{typ} = 1; #valvePos
$hash->{helper}{vd}{id} = $pId[0];
$hash->{helper}{vd}{id} = $modules{CUL_HM}{defptr}{$pId[0]}
?$pId[0]
:substr($pId[0],0,6);
$hash->{helper}{vd}{cmd} = "A258$dst".substr($pId[0],0,6);
CUL_HM_UpdtReadBulk($ph,1,
"state:set_$valu %",
@ -3220,8 +3251,8 @@ sub CUL_HM_Set($@) {
$hash->{helper}{vd}{miss} = 0 if (!defined$hash->{helper}{vd}{miss});
$hash->{helper}{virtTC} = ($cmd eq "valvePos")?"03":"00";
CUL_HM_UpdtReadSingle($hash,"valveCtrl","init",1)if ($cmd eq "valvePos");
$hash->{helper}{vd}{next} = gettimeofday()
if (!defined $hash->{helper}{vd}{next});
CUL_HM_UpdtReadSingle($hash,".next",
ReadingsVal($name,".next",gettimeofday()),0);
CUL_HM_valvePosUpdt("valvePos:$dst$chn");
};
$hash->{helper}{virtTC} = ($cmd eq "valvePos")?"03":"00";
@ -3534,24 +3565,30 @@ sub CUL_HM_valvePosUpdt(@) {#update valve position periodically to please valve
my $hi = ($hash->{helper}{vd}{idh}+$idl*198)&0xff;
my $nextTimer = (($lo+$hi)&0xff)/4 + 120;#original - instable
my $name = $hash->{NAME};
if ($hash->{helper}{vd}{typ} == 1){
CUL_HM_PushCmdStack($hash,sprintf("%02X%s%s%s"
,$msgCnt
,$hash->{helper}{vd}{cmd}
,$hash->{helper}{virtTC}
,$hash->{helper}{vd}{val}));
if ($hash->{helper}{vd}{cmd}){
if ($hash->{helper}{vd}{typ} == 1){
CUL_HM_PushCmdStack($hash,sprintf("%02X%s%s%s"
,$msgCnt
,$hash->{helper}{vd}{cmd}
,$hash->{helper}{virtTC}
,$hash->{helper}{vd}{val}));
}
else{
CUL_HM_PushCmdStack($hash,sprintf("%02X%s%s"
,$msgCnt
,$hash->{helper}{vd}{cmd}
,$hash->{helper}{vd}{val}));
}
}
else{
CUL_HM_PushCmdStack($hash,sprintf("%02X%s%s"
,$msgCnt
,$hash->{helper}{vd}{cmd}
,$hash->{helper}{vd}{val}));
delete $hash->{helper}{virtTC};
CUL_HM_UpdtReadSingle($hash,"state","stopped",1);
return;# terminate processing
}
my $tn = gettimeofday();
$hash->{helper}{vd}{nextF} = $hash->{helper}{vd}{next} + $nextTimer;
$hash->{helper}{vd}{nextM} = $tn+$nextTimer;
$hash->{helper}{vd}{nextF} = ReadingsVal($name,".next",0) + $nextTimer;
CUL_HM_UpdtReadSingle($hash,".next",$tn+$nextTimer,1);
$hash->{helper}{vd}{msgCnt} = $msgCnt;
$hash->{helper}{virtTC} = "00";
CUL_HM_ProcessCmdStack($hash);
@ -3561,31 +3598,27 @@ sub CUL_HM_valvePosTmr(@) {#calc next vd wakeup
my($in ) = @_;
my(undef,$vId) = split(':',$in);
my $hash = CUL_HM_id2Hash($vId);
my $name = $hash->{NAME};
if ($hash->{helper}{vd}{typ} == 1){
my $pn = CUL_HM_id2Name($hash->{helper}{vd}{id});
my $ackTime = ReadingsTimestamp($pn, "ValvePosition", "");
my $vc;
if (!$ackTime || $ackTime eq $hash->{helper}{vd}{ackT} ){
$hash->{helper}{vd}{next} = $hash->{helper}{vd}{nextF};
CUL_HM_UpdtReadSingle($hash,".next",$hash->{helper}{vd}{nextF},1);
$vc = (++$hash->{helper}{vd}{miss} > 5)
?"lost"
:"miss_".$hash->{helper}{vd}{miss};
Log3 $hash->{NAME},5,"CUL_HM $hash->{NAME} virtualTC use fail-timer";
Log3 $name,5,"CUL_HM $name virtualTC use fail-timer";
}
else{
$hash->{helper}{vd}{next} = $hash->{helper}{vd}{nextM};
$vc = "ok";
$hash->{helper}{vd}{miss} = 0;
}
CUL_HM_UpdtReadSingle($hash,"valveCtrl",$vc,1)
if(ReadingsVal($hash->{NAME},"valveCtrl","") ne $vc);
if(ReadingsVal($name,"valveCtrl","") ne $vc);
$hash->{helper}{vd}{ackT} = $ackTime;
}
else{
$hash->{helper}{vd}{next} = $hash->{helper}{vd}{nextM};
}
InternalTimer($hash->{helper}{vd}{next},"CUL_HM_valvePosUpdt","valvePos:$vId",0);
InternalTimer(ReadingsVal($name,".next",0),"CUL_HM_valvePosUpdt","valvePos:$vId",0);
}
sub CUL_HM_weather(@) {#periodically send weather data
my($in ) = @_;
@ -3601,14 +3634,19 @@ sub CUL_HM_infoUpdtDevData($$$) {#autoread config
my($fw1,$fw2,$mId,$serNo,$stc,$devInfo) = unpack('A1A1A4A20A2A*', $p);
my $md = $culHmModel->{$mId}{name} ? $culHmModel->{$mId}{name}:"unknown";
$attr{$name}{model} = $md;
$attr{$name}{subType} = $culHmModel->{$mId}{st};
$attr{$name}{serialNr} = pack('H*',$serNo);
#expert level attributes
$attr{$name}{firmware} = sprintf("%d.%d", hex($fw1),hex($fw2));
$attr{$name}{".devInfo"} = $devInfo;
$attr{$name}{".stc"} = $stc;
my $serial = pack('H*',$serNo);
my $fw = sprintf("%d.%d", hex($fw1),hex($fw2));
$attr{$name}{model} = $md;
$attr{$name}{subType} = $culHmModel->{$mId}{st};
$attr{$name}{serialNr} = $serial; # to be removed from attributes
$attr{$name}{firmware} = $fw; # to be removed from attributes
# $attr{$name}{".devInfo"} = $devInfo; # to be removed from attributes
# $attr{$name}{".stc"} = $stc; # to be removed from attributes
CUL_HM_UpdtReadBulk($hash,1,"D-firmware:$fw",
"D-serialNr:$serial",
".D-devInfo:$devInfo",
".D-stc:$stc");
delete $hash->{helper}{rxType};
CUL_HM_getRxType($hash); #will update rxType
$mId = CUL_HM_getMId($hash);# set helper valiable and use result
@ -3644,6 +3682,7 @@ sub CUL_HM_getConfig($){
my $dst = substr($hash->{DEF},0,6);
my $name = $hash->{NAME};
delete $modules{CUL_HM}{helper}{cfgCmpl}{$name};
CUL_HM_complConfigTest($name);
CUL_HM_PushCmdStack($hash,'++'.$flag.'01'.$id.$dst.'00040000000000')
if ($hash->{helper}{role}{dev});
@ -5715,6 +5754,7 @@ sub CUL_HM_complConfig($) {# read config if enabled and not complete
if (CUL_HM_peerUsed($name) && !CUL_HM_peersValid($name) ){
CUL_HM_qAutoRead($name,0);
CUL_HM_complConfigTest($name);
delete $modules{CUL_HM}{helper}{cfgCmpl}{$name};
Log3 $name,5,"CUL_HM $name queue configRead";
return;
}
@ -5723,10 +5763,12 @@ sub CUL_HM_complConfig($) {# read config if enabled and not complete
if (ReadingsVal($name,$_,"") !~ m /00:00/){
CUL_HM_qAutoRead($name,0);
CUL_HM_complConfigTest($name);
delete $modules{CUL_HM}{helper}{cfgCmpl}{$name};
Log3 $name,5,"CUL_HM $name queue configRead";
last;
}
}
$modules{CUL_HM}{helper}{cfgCmpl}{$name} = 1;#mark config as complete
}
1;

119
fhem/FHEM/98_HMinfo.pm
View File

@ -28,6 +28,7 @@ sub HMinfo_Initialize($$) {####################################################
."autoUpdate "
."hmAutoReadScan hmIoMaxDly "
."hmManualOper:0_auto,1_manual "
."configDir configFilename "
.$readingFnAttributes;
}
@ -277,7 +278,6 @@ sub HMinfo_paramCheck(@) { ####################################################
sub HMinfo_tempList(@) { ######################################################
my ($filter,$action,$fName)=@_;
$filter = "." if (!$filter);
$fName = "tempList.cfg" if (!$fName);
$action = "" if (!$action);
my $ret;
if ($action eq "save"){
@ -805,7 +805,9 @@ sub HMinfo_SetFn($@) {#########################################################
$ret = HMinfo_status($hash);
}
elsif($cmd eq "tempList") {##handle thermostat templist from file ---------
$ret = HMinfo_tempList($filter,@a);
my $fn = $a[0]?$a[0]:"tempList.cfg";
$fn = AttrVal($name,"configDir",".")."\/".$fn if ($fn !~ m/\//);
$ret = HMinfo_tempList($filter,$a[0],$fn);
}
elsif($cmd eq "help") {
$ret = " Unknown argument $cmd, choose one of "
@ -871,11 +873,25 @@ sub HMinfo_SetFn($@) {#########################################################
;
}
elsif($cmd eq "loadConfig") {##action: saveConfig----------------------------
$ret = HMinfo_loadConfig($filter,@a);
my $fn = $a[0]?$a[0]:AttrVal($name,"configFilename","regSave.cfg");
$fn = AttrVal($name,"configDir",".")."\/".$fn if ($fn !~ m/\//);
$ret = HMinfo_loadConfig($filter,$fn);
}
elsif($cmd eq "purgeConfig"){##action: saveConfig----------------------------
my $id = ++$hash->{nb}{cnt};
my $fn = $a[0]?$a[0]:AttrVal($name,"configFilename","regSave.cfg");
$fn = AttrVal($name,"configDir",".")."\/".$fn if ($fn !~ m/\//);
my $bl = BlockingCall("HMinfo_purgeConfig", join(",",("$name:$id",$fn)),
"HMinfo_bpPost", 30,
"HMinfo_bpAbort", "$name:$id");
$hash->{nb}{$id}{$_} = $bl->{$_} foreach (keys %{$bl});
$ret = "";
}
elsif($cmd eq "saveConfig") {##action: saveConfig----------------------------
my $id = ++$hash->{nb}{cnt};
my $bl = BlockingCall("HMinfo_saveConfig", join(",",("$name:$id",$a[0],$opt,$filter)),
my $fn = $a[0]?$a[0]:AttrVal($name,"configFilename","regSave.cfg");
$fn = AttrVal($name,"configDir",".")."\/".$fn if ($fn !~ m/\//);
my $bl = BlockingCall("HMinfo_saveConfig", join(",",("$name:$id",$fn,$opt,$filter)),
"HMinfo_bpPost", 30,
"HMinfo_bpAbort", "$name:$id");
$hash->{nb}{$id}{$_} = $bl->{$_} foreach (keys %{$bl});
@ -887,7 +903,7 @@ sub HMinfo_SetFn($@) {#########################################################
,"configCheck","param","peerCheck","peerXref"
,"protoEvents","msgStat:view,clear","rssi"
,"models"
,"regCheck","register","saveConfig","loadConfig","update"
,"regCheck","register","saveConfig","loadConfig","purgeConfig","update"
,"cpRegs"
,"tempList"
,"templateChk","templateDef","templateList","templateSet");
@ -899,26 +915,28 @@ sub HMinfo_SetFn($@) {#########################################################
sub HMinfo_loadConfig($@) {#####################################################
my ($filter,$fName)=@_;
$filter = "." if (!$filter);
$fName = "regSave.cfg" if (!$fName);
my $ret;
open(aSave, "$fName") || return("Can't open $fName: $!");
my @el = ();
my @elAll = ();
my @elincmpl = ();
my @entryNF = ();
while(<aSave>){
chomp;
my $line = $_;
next if ($line !~ m/set (.*) (peerBulk|regBulk) (.*)/);
my ($eN,$cmd,$param) = ($1,$2,$3);
$eN =~ s/ //g;
next if ( $line !~ m/set .* (peerBulk|regBulk) .*/
&& $line !~ m/attr .*/);
my ($cmd1,$eN,$cmd,$param) = split(" ",$line,4);
next if ($eN !~ m/$filter/);
if (!$eN || !$defs{$eN}){
push @entryNF,$eN;
next;
}
if ($cmd eq "peerBulk"){
if ($cmd1 eq "setreading"){
$defs{$eN}{READINGS}{$cmd}{VAL} = $param;
$defs{$eN}{READINGS}{$cmd}{TIME} = "from archive";
}
elsif ($cmd eq "peerBulk"){
next if(!$param);
$param =~ s/ //g;
if ($param !~ m/00000000/){
@ -935,6 +953,7 @@ sub HMinfo_loadConfig($@) {#####################################################
$param =~ s/\.RegL/RegL/;
$param =~ s/RegL/\.RegL/ if ($exp != 2);
my ($reg,$data) = split(" ",$param,2);
if ($data !~ m/00:00/){
push @elincmpl,"$eN reg list:$reg";
next;
@ -943,8 +962,7 @@ sub HMinfo_loadConfig($@) {#####################################################
my ($list,$pN) = ($1,$2) if ($reg =~ m/RegL_(..):(.*)/);
my $pId = CUL_HM_peerChId($pN,substr($defs{$eN}{DEF},0,6),"00000000");
$defs{$eN}{READINGS}{$reg}{VAL} = $data;
$defs{$eN}{READINGS}{$reg}{TIME} = "from file";
# $defs{$eN}{READINGS}{$reg}{TIME} = "0000-00-00 00:00:00";
$defs{$eN}{READINGS}{$reg}{TIME} = "from archive";
CUL_HM_updtRegDisp($defs{$eN},$list,$pId);
push @el,"$eN reg list:$reg";
}
@ -954,21 +972,60 @@ sub HMinfo_loadConfig($@) {#####################################################
$ret .= "\nfile data incomplete:\n ".join("\n ",@elincmpl) if (scalar@elincmpl);
$ret .= "\nentries not defind:\n " .join("\n ",@entryNF) if (scalar@entryNF);
return $ret
return $ret;
}
sub HMinfo_purgeConfig($) {#####################################################
my ($param) = @_;
my ($id,$fName) = split ",",$param;
$fName = "regSave.cfg" if (!$fName);
open(aSave, "$fName") || return("Can't open $fName: $!");
my %purgeH;
while(<aSave>){
chomp;
my $line = $_;
next if ( $line !~ m/set (.*) (peerBulk|regBulk) (.*)/
&& $line !~ m/setreading .*/);
my ($cmd,$eN,$typ,$p1,$p2) = split(" ",$line,5);
if ($cmd eq "set" && $typ eq "regBulk"){
$typ .= " $p1";
$p1 = $p2;
}
elsif ($cmd eq "set" && $typ eq "peerBulk"){
delete $purgeH{$eN}{$cmd}{regBulk};# regBulk needs to be rewritten
}
$purgeH{$eN}{$cmd}{$typ} = $p1;
}
close(aSave);
open(aSave, ">$fName") || return("Can't open $fName: $!");
print aSave "\n\n#============data purged: ".TimeNow();
foreach my $eN(sort keys %purgeH){
next if (!defined $defs{$eN});
print aSave "\n\n#-------------- entity:".$eN." ------------";
foreach my $cmd (sort keys %{$purgeH{$eN}}){
foreach my $typ (sort keys %{$purgeH{$eN}{$cmd}}){
print aSave "\n$cmd $eN $typ ".$purgeH{$eN}{$cmd}{$typ};
}
}
}
print aSave "\n======= finished ===\n";
close(aSave);
return $id;
}
sub HMinfo_saveConfig($) {#####################################################
my ($param) = @_;
my ($id,$file,$opt,$filter) = split ",",$param;
my ($id,$fN,$opt,$filter) = split ",",$param;
my @entities;
$file = "regSave.cfg" if (!$file);
foreach my $dName (HMinfo_getEntities($opt."dv",$filter)){
CUL_HM_Get($defs{$dName},$dName,"saveConfig",$file);
CUL_HM_Get($defs{$dName},$dName,"saveConfig",$fN);
push @entities,$dName;
foreach my $chnId (CUL_HM_getAssChnIds($dName)){
my $dName = CUL_HM_id2Name($chnId);
push @entities, $dName if($dName !~ m/_chn:/);
}
}
HMinfo_purgeConfig($param) if ( 200000 < -s "$fN");# auto purge if file to big
return $id;
}
sub HMinfo_bpPost($) {#bp finished#############################################
@ -1600,7 +1657,8 @@ sub HMinfo_noDup(@) {#return list with no duplicates
</ul>
</li>
<li><a name="#HMinfosaveConfig">saveConfig</a> <a href="#HMinfoFilter">[filter] [&lt;file&gt;]</a><br>
performs a save for all HM register setting and peers. See <a href="#CUL_HMsaveConfig">CUL_HM saveConfig</a>.
performs a save for all HM register setting and peers. See <a href="#CUL_HMsaveConfig">CUL_HM saveConfig</a>.<br>
<a ref="#HMinfopurgeConfig">purgeConfig</a> will be executed automatically if the stored filesize exceeds 1MByte.<br>
</li>
<li><a name="#HMinfoloadConfig">loadConfig</a> <a href="#HMinfoFilter">[filter] [&lt;file&gt;]</a><br>
loads register and peers from a file saved by <a href="#HMinfosaveConfig">saveConfig</a>.<br>
@ -1611,6 +1669,13 @@ sub HMinfo_noDup(@) {#return list with no duplicates
that can be read.<br>
The command will update FHEM readings and attributes. It will <B>not</B> reprogramm any device.
</li>
<li><a name="#HMinfopurgeConfig">purgeConfig</a> <a href="#HMinfoFilter">[filter] [&lt;file&gt;]</a><br>
purge (reduce) the saved config file. Due to the cumulative storage of the register setting
purge will use the latest stored readings and remove older one.
See <a href="#CUL_HMsaveConfig">CUL_HM saveConfig</a>.
</li>
<br>
<li><a name="#HMinfotempList">tempList</a> <a href="#HMinfoFilter">[filter]</a>[save|restore|verify] [&lt;file&gt;]</a><br>
this function supports handling of tempList for thermstates.
@ -1784,7 +1849,7 @@ sub HMinfo_noDup(@) {#return list with no duplicates
</code></ul>
will trigger the update every 10 min<br>
</li>
<li><a name="#HMhmAutoReadScan">hmAutoReadScan</a>
<li><a name="#HMinfohmAutoReadScan">hmAutoReadScan</a>
defines the time in seconds CUL_HM tries to schedule the next autoRead
from the queue. Despide this timer FHEM will take care that only one device from the queue will be
handled at one point in time. With this timer user can stretch timing even further - to up to 300sec
@ -1793,14 +1858,26 @@ sub HMinfo_noDup(@) {#return list with no duplicates
Note that compressing will increase message load while stretch will extent waiting time.
data. <br>
</li>
<li><a name="#HMhmIoMaxDly">hmIoMaxDly</a>
<li><a name="#HMinfohmIoMaxDly">hmIoMaxDly</a>
max time in seconds CUL_HM stacks messages if the IO device is not ready to send.
If the IO device will not reappear in time all command will be deleted and IOErr will be reported.<br>
Note: commands will be executed after the IO device reappears - which could lead to unexpected
activity long after command issue.<br>
default is 60sec. max value is 3600sec<br>
</li>
<li><a name="#HMhmManualOper">hmManualOper</a>
<li><a name="#HMinfoconfigDir">configDir</a>
default directory where to store and load configuration files from.
This path is used as long as teh path is not given in a filename of
a given command.<br>
It is used by commands like <a ref="#HMinfotempList">tempList</a> or <a ref="#HMinfosaveConfig">saveConfig</a><br>
</li>
<li><a name="#HMinfoconfigFilename">configFilename</a>
default filename used by
<a ref="#HMinfosaveConfig">saveConfig</a>,
<a ref="#HMinfopurgeConfig">purgeConfig</a>,
<a ref="#HMinfoloadConfig">loadConfig</a><br>
</li>
<li><a name="#HMinfohmManualOper">hmManualOper</a>
set to 1 will prevent any automatic operation, update or default settings
in CUL_HM.<br>
</li>