FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2024-11-22 09:49:50 +00:00
Code Issues Releases Wiki Activity

peer homogenisiert, delayfor HM moved to CUL, madeit dynamic

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@2105 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
martinp876 2012-11-10 00:00:44 +00:00
parent 4d3d49970b
commit df342bb9b4
3 changed files with 106 additions and 78 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
fhem/FHEM/00_CUL.pm
View File

@ -158,10 +158,10 @@ CUL_Define($$)
$hash->{DeviceName} = $dev;
my $ret = DevIo_OpenDev($hash, 0, "CUL_DoInit");
$hash->{helper}{HMnextTR}=gettimeofday();
return $ret;
}
#####################################
sub
CUL_Undef($$)
@ -215,7 +215,6 @@ CUL_RemoveMAXPair($)
delete($hash->{maxPair});
}
#####################################
sub
CUL_Set($@)
@ -672,6 +671,16 @@ CUL_XmitLimitCheck($$)
$hash->{XMIT_TIME} = \@b;
$hash->{NR_CMD_LAST_H} = int(@b);
}
sub
CUL_XmitLimitCheckHM($$)
{# add a delay to last received. Thisis dynamic to obey System performance
# was wrking with 700ms - added buffer to 900ms
my ($hash,$fn) = @_;
for (my $cnt=0;$cnt<10;$cnt++){
last if (gettimeofday()>($hash->{helper}{HMnextTR}+0.09));
select(undef, undef, undef, 0.02);
}
}
#####################################
# Translate data prepared for an FHZ to CUL syntax, so we can reuse
@ -736,7 +745,6 @@ CUL_SendFromQueue($$)
{
my ($hash, $bstring) = @_;
my $name = $hash->{NAME};
my $hm = ($bstring =~ m/^A/);
my $mz = ($bstring =~ m/^Z/);
my $to = ($hm ? 0.15 : 0.3);
@ -757,7 +765,9 @@ CUL_SendFromQueue($$)
}
}
}
CUL_XmitLimitCheck($hash,$bstring) if(!$hm);
if($hm) {CUL_XmitLimitCheckHM($hash,$bstring)
}else{CUL_XmitLimitCheck($hash,$bstring)
}
CUL_SimpleWrite($hash, $bstring);
}
@ -772,7 +782,6 @@ sub
CUL_AddFS20Queue($$)
{
my ($hash, $bstring) = @_;
if(!$hash->{QUEUE}) {
$hash->{QUEUE} = [ $bstring ];
CUL_SendFromQueue($hash, $bstring);
@ -782,14 +791,12 @@ CUL_AddFS20Queue($$)
}
}
#####################################
sub
CUL_HandleWriteQueue($)
{
my $hash = shift;
my $arr = $hash->{QUEUE};
if(defined($arr) && @{$arr} > 0) {
shift(@{$arr});
if(@{$arr} == 0) {
@ -817,7 +824,7 @@ CUL_Read($)
my $name = $hash->{NAME};
my $culdata = $hash->{PARTIAL};
Log 5, "CUL/RAW: $culdata/$buf";
Log 5, "CUL/RAW: $culdata/$buf";
$culdata .= $buf;
while($culdata =~ m/\n/) {
@ -932,6 +939,7 @@ CUL_Parse($$$$$)
$hash->{RSSI} = $rssi;
$addvals{RSSI} = $rssi;
}
$hash->{helper}{HMnextTR}=gettimeofday();
Dispatch($hash, $dmsg, \%addvals);
}
@ -957,7 +965,6 @@ CUL_SimpleWrite(@)
{
my ($hash, $msg, $nonl) = @_;
return if(!$hash);
if($hash->{TYPE} eq "CUL_RFR") {
# Prefix $msg with RRBBU and return the corresponding CUL hash.
($hash, $msg) = CUL_RFR_AddPrefix($hash, $msg);

10
fhem/FHEM/00_HMLAN.pm
View File

@ -72,6 +72,7 @@ HMLAN_Define($$)
return undef;
}
$hash->{DeviceName} = $dev;
$hash->{helper}{nextSend}=gettimeofday();
my $ret = DevIo_OpenDev($hash, 0, "HMLAN_DoInit");
return $ret;
}
@ -349,7 +350,7 @@ HMLAN_SimpleWrite(@)
my $name = $hash->{NAME};
return if(!$hash || AttrVal($hash->{NAME}, "dummy", undef));
select(undef, undef, undef, 0.01); # todo check necessity
# select(undef, undef, undef, 0.01); # todo check necessity
#---------- confort trace--------------
# Log GetLogLevel($name,5), 'HMLAN_Send: S:'.
# substr($msg,0,9).
@ -370,6 +371,13 @@ HMLAN_SimpleWrite(@)
Log GetLogLevel($name,5), 'HMLAN_Send: '.$msg; #normal trace
$msg .= "\r\n" unless($nonl);
# Currently it does not seem to be necessary to wait Thus this code is inhibit for now
#my $ct = gettimeofday();
#select(undef, undef, undef, 0.01) if($hash->{helper}{nextSend} >$ct);
#$hash->{helper}{nextSend} = $ct + 0.01; # experimental value.
select(undef, undef, undef, 0.01);
syswrite($hash->{TCPDev}, $msg) if($hash->{TCPDev});
}

149
fhem/FHEM/10_CUL_HM.pm
View File

@ -27,8 +27,8 @@ sub CUL_HM_PushCmdStack($$);
sub CUL_HM_ProcessCmdStack($);
sub CUL_HM_Resend($);
sub CUL_HM_Id($);
sub CUL_HM_name2hash($);
sub CUL_HM_Name2Id(@);
sub CUL_HM_name2Hash($);
sub CUL_HM_name2Id(@);
sub CUL_HM_id2Name($);
sub CUL_HM_getDeviceHash($);
sub CUL_HM_DumpProtocol($$@);
@ -293,7 +293,7 @@ CUL_HM_Rename($$$)
{
#my ($hash, $name,$newName) = @_;
my ($name, $oldName) = @_;
my $HMid = CUL_HM_Name2Id($name);
my $HMid = CUL_HM_name2Id($name);
if (length($HMid) == 8){# we are channel, inform the device
$attr{$name}{chanNo} = substr($HMid,6,2);
my $device = AttrVal($name, "device", "");
@ -438,7 +438,7 @@ CUL_HM_Parse($$)
}
elsif($model eq "HM-CC-TC") { ####################################
my ($sType,$chn) = ($1,$2) if($p =~ m/^(..)(..)/);
if($msgType eq "70" && $p =~ m/^(....)(..)/) {# weather event
if($msgType eq "70" && $p =~ m/^(....)(..)/) { # weather event
$chn = '01'; # fix definition
my ( $t, $h) = (hex($1), hex($2));# temp is 15 bit signed
$t = ($t & 0x3fff)/10*(($t & 0x4000)?-1:1);
@ -451,7 +451,7 @@ CUL_HM_Parse($$)
push @event, "measured-temp:$t";
push @event, "humidity:$h";
}
elsif($msgType eq "58" && $p =~ m/^(..)(..)/) {#climate event
elsif($msgType eq "58" && $p =~ m/^(..)(..)/) {# climate event
$chn = '02'; # fix definition
my ( $d1, $vp) = # adjust_command[0..4] adj_data[0..250]
( $1, hex($2));
@ -467,17 +467,17 @@ CUL_HM_Parse($$)
CUL_HM_setRd($dhash,"state","set_$vp %",$tn);
}
}
elsif(($msgType eq '02' &&$sType eq '01')|| # ackStatus
($msgType eq '10' &&$sType eq '06')){ #infoStatus
elsif(($msgType eq '02' &&$sType eq '01')|| # ackStatus
($msgType eq '10' &&$sType eq '06')){ # infoStatus
$chn = substr($p,2,2);
my $dTemp = sprintf("%0.1f", hex(substr($p,4,2))/2);
my $chnHash = $modules{CUL_HM}{defptr}{$src.$chn};
CUL_HM_setRd($chnHash,"desired-temp",$dTemp,$tn)if (!$chnHash);
push @event, "desired-temp:" .$dTemp;
}
elsif($msgType eq "10"){
elsif($msgType eq "10"){ # Config change report
$chn = substr($p,2,2);
if( $p =~ m/^0403(......)(..)0505(..)0000/) {
if( $p =~ m/^0403(......)(..)0505(..)0000/) {# param change
# change of chn 3(window) list 5 register 5 - a peer window changed!
my ( $tdev, $tchan, $v1) = (($1), hex($2), hex($3));
push @event, sprintf("windowopen-temp-%d: %.1f (sensor:%s)"
@ -533,7 +533,7 @@ CUL_HM_Parse($$)
push @event, $msg; # generate one event per day entry
}
}
elsif($p =~ m/^04020000000005(..)(..)/) {
elsif($p =~ m/^04020000000005(..)(..)/) { # paramchanged L5
my ( $o1, $v1) = (hex($1),hex($2));# only parse list 5 for chn 2
my $msg;
my @days = ("Sat", "Sun", "Mon", "Tue", "Wed", "Thu", "Fri");
@ -553,11 +553,11 @@ CUL_HM_Parse($$)
push @event,'param-change: offset='.$o1.', value='.$v1;
}
}
elsif($p =~ m/^0[23]/){#param response
elsif($p =~ m/^0[23]/){ # param response
push @event,'';#cannot be handled here as request missing
}
}
elsif($msgType eq "01"){
elsif($msgType eq "01"){ # status reports
if($p =~ m/^010809(..)0A(..)/) { # TC set valve for VD => post events to VD
my ( $of, $vep) = (hex($1), hex($2));
push @event, "ValveErrorPosition for $dname: $vep %";
@ -570,8 +570,7 @@ CUL_HM_Parse($$)
push @event,""; #
}
}
# ($cmd eq "A112" && $p =~ m/^0202(..)$/)) { # Set desired temp
elsif($cmd eq "A03F" && $id eq $dst) { # Timestamp request
elsif($cmd eq "A03F" && $id eq $dst) { # Timestamp request
my $s2000 = sprintf("%02X", CUL_HM_secSince2000());
CUL_HM_SendCmd($shash, "++803F$id${src}0204$s2000",1,0);
push @event, "time-request";
@ -1039,7 +1038,7 @@ CUL_HM_Parse($$)
my @peerIDs = split(',',AttrVal($dChName,"peerIDs",""));
foreach my $pId (@peerIDs){
if ($pId eq $recId){ #match: we have to ack
my $dChHash = CUL_HM_name2hash($dChName);
my $dChHash = CUL_HM_name2Hash($dChName);
my $state = ReadingsVal($dChName,"virtActState","C8");
$state = ($state eq "00")?"C8":"00";
setReadingsVal($dChHash,"virtActState",$state,$tn);
@ -1433,7 +1432,7 @@ CUL_HM_Get($@)
my $regs = ReadingsVal($hash->{NAME},$readEntry,"");
if ($readEntry =~m /^RegL_/){ #this is a reg Reading "RegL_<list>:peerN
my $peer = substr($readEntry,8);
my $listP = substr($readEntry,6,1);
my $listP = substr($readEntry,6,1);
push(@peers,$peer) if ($peer);
push(@listWp,$listP) if ($peer);
}
@ -1447,7 +1446,7 @@ CUL_HM_Get($@)
next if($peer eq "");
my $regVal = CUL_HM_getRegFromStore($name,$regName,0,$peer); #determine peerID
push @regValList,"List:".$regL.
" Peer:".$peer.
" Peer:".CUL_HM_id2Name($peer).
"\t".$regName.
":\tvalue:". $regVal."\n" if ($regVal ne 'unknown') ;
}
@ -1458,7 +1457,7 @@ CUL_HM_Get($@)
if ($md eq "HM-CC-TC" && $chn eq "02");
return $name." type:".$st." - \n".join("",sort(@regValList)).$addInfo;
}
else{
else{
my $regVal = CUL_HM_getRegFromStore($name,$regReq,$list,$peerId);
return ($regVal eq "invalid")? "Value not captured"
: "0x".sprintf("%X",$regVal)." dec:".$regVal;
@ -1726,7 +1725,7 @@ CUL_HM_Set($@)
$state = "";
}
elsif($cmd eq "statusRequest") { ############################################
my @chnIdList = CUL_HM_getAssChnId($name);
my @chnIdList = CUL_HM_getAssChnIds($name);
foreach my $channel (@chnIdList){
my $chnNo = substr($channel,6,2);
CUL_HM_PushCmdStack($hash,"++".$flag.'01'.$id.$dst.$chnNo.'0E');
@ -1745,9 +1744,9 @@ CUL_HM_Set($@)
my $chFound = 0;
CUL_HM_PushCmdStack($hash,'++'.$flag.'01'.$id.$dst.'00040000000000')
if (!$isChannel);
my @chnIdList = CUL_HM_getAssChnId($name);
my @chnIdList = CUL_HM_getAssChnIds($name);
foreach my $channel (@chnIdList){
my $chnHash = CUL_HM_id2hash($channel);
my $chnHash = CUL_HM_id2Hash($channel);
CUL_HM_getConfig($hash,$chnHash,$id,$dst,substr($channel,6,2));
}
$state = "";
@ -1760,18 +1759,9 @@ CUL_HM_Set($@)
($list,$peerID) = ($a[2],$a[3])if ($cmd eq "getRegRaw");
$list =~ s/List/0/;# convert Listy to 0y
# as of now only hex value allowed check range and convert
$chn = "00" if ($list eq "00");
my $pSc = substr($peerID,0,4); #helper for shortcut spread
if ($pSc eq 'self'){$peerID=$dst.sprintf("%02X",'0'.substr($peerID,4));
}elsif ($pSc eq 'fhem'){$peerID=$id .sprintf("%02X",'0'.substr($peerID,4));
}elsif($peerID eq 'all'){;# keep all
}else {$peerID = CUL_HM_Name2Id($peerID);
}
$peerID = $peerID.((length($peerID) == 6)?"01":"");# default chn 1, if none
$peerID = "00000000" if (length($peerID) != 8 && $peerID ne 'all');# none?
my $peerChn = substr($peerID,6,2);# have to split chan and id
$peerID = CUL_HM_peerChId(($peerID?$peerID:"00000000"),$dst,$id);
my $peerChn = ((length($peerID) == 8)?substr($peerID,6,2):"01");# have to split chan and id
$peerID = substr($peerID,0,6);
if($cmd eq "getRegRaw"){
@ -1779,12 +1769,12 @@ CUL_HM_Set($@)
CUL_HM_PushCmdStack($hash,'++'.$flag.'01'.$id.$dst.'00040000000000');
}
else{# other lists are per channel
my @chnIdList = CUL_HM_getAssChnId($name);
my @chnIdList = CUL_HM_getAssChnIds($name);
foreach my $channel (@chnIdList){
my $chnNo = substr($channel,6,2);
if ($list =~m /0[34]/){#getPeers to see if list3 is available
CUL_HM_PushCmdStack($hash,'++'.$flag.'01'.$id.$dst.$chnNo.'03');
my $chnHash = CUL_HM_id2hash($channel);
my $chnHash = CUL_HM_id2Hash($channel);
$chnHash->{helper}{getCfgList} = $peerID.$peerChn;#list3 regs
$chnHash->{helper}{getCfgListNo} = int($list);
}
@ -1796,6 +1786,7 @@ CUL_HM_Set($@)
}
}
else{
$chn = "00" if ($list eq "00");
# as of now only hex value allowed check range and convert
return "invalid address or data" if ($addr > 255 || $data > 255);
my $addrData = uc(sprintf("%02x%02x",$addr,$data));
@ -1850,15 +1841,9 @@ CUL_HM_Set($@)
my ($lChn,$peerID,$peerChn) = ($chn,"000000","00");
if (($list == 3) ||($list == 4)){ # peer is necessary for list 3/4
return "Peer not specified" if (!$peerChnIn);
my $pSc = substr($peerID,0,4); #helper for shortcut spread
if ($pSc eq 'self'){$peerID=$dst.sprintf("%02X",'0'.substr($peerID,4));
}elsif ($pSc eq 'fhem'){$peerID=$id .sprintf("%02X",'0'.substr($peerID,4));
}else {$peerID = CUL_HM_Name2Id($peerID);
}
$peerID = CUL_HM_peerChId($peerChnIn,$dst,$id);
$peerChn = ((length($peerID) == 8)?substr($peerID,6,2):"01");
$peerID = substr($peerID,0,6);
$peerID = substr($peerID,0,6);
return "Peer not specified" if (!$peerID);
}
elsif($list == 0){
@ -2098,8 +2083,7 @@ CUL_HM_Set($@)
elsif($cmd eq "desired-temp") { ##################
my $temp = CUL_HM_convTemp($a[2]);
return $temp if(length($temp) > 2);
CUL_HM_PushCmdStack($hash,
sprintf("++%s11%s%s0202%s",$flag,$id,$dst,$temp));
CUL_HM_PushCmdStack($hash,'++'.$flag.'11'.$id.$dst.'0202'.$temp);
}
elsif($cmd =~ m/^(day|night|party)-temp$/) { ##################
my %tt = (day=>"03", night=>"04", party=>"06");
@ -2322,7 +2306,8 @@ CUL_HM_Set($@)
$hash->{STATE} = $state;
DoTrigger($name,'state:'.$state);
}
Log GetLogLevel($name,3), "CUL_HM set $name " . join(" ", @a[1..$#a]);
$rxType = CUL_HM_getRxType($devHash);
Log GetLogLevel($name,3), "CUL_HM set $name " . join(" ", @a[1..$#a])." rxt:".$rxType;
CUL_HM_ProcessCmdStack($devHash) if($rxType & 0x03);#all/burst
return ("",1);# no not generate trigger outof command
}
@ -2348,7 +2333,6 @@ CUL_HM_infoUpdtDevData($$$){
$mId = CUL_HM_getMId($hash);# set helper valiable and use result
# autocreate undefined channels
Log 1,"General start timer";
my @chanTypesList = split(',',$culHmModel{$mId}{chn});
my $startime = gettimeofday()+1;
foreach my $chantype (@chanTypesList){
@ -2361,7 +2345,6 @@ CUL_HM_infoUpdtDevData($$$){
'':'_'.sprintf("%02d",$chnNoTyp));
InternalTimer($startime++,"CUL_HM_infoUpdtChanData",
"$chnName,$chnId,$model",0);
Log 1,"General timer:$chnName,$chnId,$model";
#DoTrigger("global", 'UNDEFINED '.$chnName.' CUL_HM '.$chnId);
}
$attr{CUL_HM_id2Name($chnId)}{model} = $model;
@ -2378,7 +2361,6 @@ CUL_HM_infoUpdtChanData(@)
{# delay this to ensure the device is already available
my($in ) = @_;
my($chnName,$chnId,$model ) = split(',',$in);
Log 1,"General updateChannel:".$chnName;
DoTrigger("global", 'UNDEFINED '.$chnName.' CUL_HM '.$chnId);
$attr{CUL_HM_id2Name($chnId)}{model} = $model;
}
@ -2472,7 +2454,6 @@ CUL_HM_SendCmd($$$$)
my ($hash, $cmd, $sleep, $waitforack) = @_;
my $io = $hash->{IODev};
select(undef, undef, undef, 0.1) if($io->{TYPE} ne 'HMLAN');
$cmd =~ m/^(..)(.*)$/;
my ($mn, $cmd2) = ($1, $2);
@ -2516,12 +2497,13 @@ CUL_HM_responseSetup($$$)
my $chnhash = $modules{CUL_HM}{defptr}{"$dst$chn"};
$chnhash = $hash if (!$chnhash);
$chnhash->{READINGS}{peerList}{VAL}="";#empty old list
$attr{$hash->{NAME}}{peerIDs} = '';
return;
}
elsif($subType eq "04"){ #RegisterRead-------
my ($peerID, $list) = ($1,$2) if ($p =~ m/..04(........)(..)/);
$peerID = ($peerID ne "00000000")?CUL_HM_id2Name($peerID):"";
$peerID =~ s/ /_/g;#subs blanks
$peerID = ($peerID ne "00000000")?CUL_HM_peerChName($peerID,$dst,""):"";
#--- set messaging items
$hash->{helper}{respWait}{Pending} = "RegisterRead";
$hash->{helper}{respWait}{forChn} = $chn;
@ -2710,14 +2692,18 @@ CUL_HM_ID2PeerList ($$$)
else{# update the human readable list
$attr{$name}{peerIds} = $peerIds;
$attr{$name}{peerList} = "";
my $dId = substr(CUL_HM_name2Id($name),0,6);
foreach my $pId (split(",",$peerIds)){
$attr{$name}{peerList} .= CUL_HM_id2Name($pId)."," if ($pId);
next if (!$pId);
$attr{$name}{peerList} .= (($dId eq substr($pId,0,6))?
("self".substr($pId,6,2).","):
(CUL_HM_id2Name($pId).","));
}
}
}
################### Conversions ################
sub
CUL_HM_getAssChnId($)
CUL_HM_getAssChnIds($)
{ # will return the list of assotiated channel of a device
# if it is a channel only return itself
# if device and no channel
@ -2725,10 +2711,10 @@ CUL_HM_getAssChnId($)
my @chnIdList;
foreach my $channel (keys %{$attr{$name}}){
next if ($channel !~ m/^channel_/);
my $chnHash = CUL_HM_name2hash($attr{$name}{$channel});
my $chnHash = CUL_HM_name2Hash($attr{$name}{$channel});
push @chnIdList,$chnHash->{DEF} if ($chnHash);
}
my $dId = CUL_HM_Name2Id($name);
my $dId = CUL_HM_name2Id($name);
push @chnIdList,$dId."01" if (length($dId) == 6 && !$attr{$name}{channel_01});
push @chnIdList,$dId if (length($dId) == 8);
@ -2744,7 +2730,7 @@ CUL_HM_Id($)
}
###################################
sub
CUL_HM_id2hash($)
CUL_HM_id2Hash($)
{# in: id, out:hash
my ($id) = @_;
return $modules{CUL_HM}{defptr}{$id} if ($modules{CUL_HM}{defptr}{$id});
@ -2752,14 +2738,14 @@ CUL_HM_id2hash($)
}
###################################
sub
CUL_HM_name2hash($)
CUL_HM_name2Hash($)
{# in: name, out:hash
my ($name) = @_;
return $defs{$name};
}
###################################
sub
CUL_HM_Name2Id(@)
CUL_HM_name2Id(@)
{ # in: name or HMid out: HMid, undef if no match
my ($idName,$idHash) = @_;
my $hash = $defs{$idName};
@ -2774,6 +2760,29 @@ CUL_HM_Name2Id(@)
}
###################################
sub
CUL_HM_peerChId($$$)
{# peer Channel name from/for user entry. <IDorName> <deviceID> <ioID>
my($pId,$dId,$iId)=@_;
my $pSc = substr($pId,0,4); #helper for shortcut spread
return $dId.sprintf("%02X",'0'.substr($pId,4)) if ($pSc eq 'self');
return $iId.sprintf("%02X",'0'.substr($pId,4)) if ($pSc eq 'fhem');
return "all" if ($pId eq 'all');#used by getRegList
my ($dev,$chn) = ($1,$2) if ($pId =~ m/(.*)_chn:(.*)/); #obey device with undef channels
return CUL_HM_name2Id($dev).$chn if ($chn);
return substr(CUL_HM_name2Id($pId).'01',0,8);
}
###################################
sub
CUL_HM_peerChName($$$)
{# peer Channel ID to user entry. <peerChId> <deviceID> <ioID>
my($pId,$dId,$iId)=@_;
my($pDev,$pChn) = ($1,$2) if ($pId =~ m/(......)(..)/);
return 'self'.$pChn if ($pDev eq $dId);
return 'fhem'.$pChn if ($pDev eq $iId);
return CUL_HM_id2Name($pId);
}
###################################
sub
CUL_HM_id2Name($)
{ # in: name or HMid out: name
my ($p) = @_;
@ -2786,9 +2795,11 @@ CUL_HM_id2Name($)
$chnId = $p;
}
my $defPtr = $modules{CUL_HM}{defptr};
return $defPtr->{$chnId}{NAME} if($chnId && $defPtr->{$chnId});
return $defPtr->{$devId}{NAME} if($defPtr->{$devId});
return $devId. ($chn ? ("_chn:".$chn):"");
return $defPtr->{$chnId}{NAME} if( $chnId && $defPtr->{$chnId});#channel
return $defPtr->{$devId}{NAME} if(!$chnId && $defPtr->{$devId});#device only
return $defPtr->{$devId}{NAME}."_chn:".$chn
if( $chnId && $defPtr->{$devId});#device, add chn
return $devId. ($chn ? ("_chn:".$chn):""); #not defined, return ID only
}
###################################
sub
@ -3151,9 +3162,12 @@ sub
CUL_HM_getRegFromStore($$$$)
{#read a register from backup data
my($name,$regName,$list,$peerId)=@_;
my $hash = CUL_HM_name2hash($name);
my $hash = CUL_HM_name2Hash($name);
my ($size,$pos,$conversion,$factor,$unit) = (8,0,"",1,""); # default
my $addr = $regName;
my $dId = substr(CUL_HM_name2Id($name),0,6);#id of device
my $iId = CUL_HM_Id($hash->{IODev}); #id of IO device
if ($culHmRegDefine{$regName}) { # get the register's information
$addr = $culHmRegDefine{$regName}{a};
$pos = ($addr*10)%10;
@ -3165,12 +3179,11 @@ CUL_HM_getRegFromStore($$$$)
$factor = $culHmRegDefine{$regName}{f};
$unit = $culHmRegDefine{$regName}{u};
}
$peerId = substr(CUL_HM_Name2Id($name),0,6).sprintf("%02X",$1)
if($peerId =~ m/^self(.*)/); # plus channel
my $regLN = "RegL_".sprintf("%02X",$list).":".CUL_HM_id2Name($peerId);
$peerId = CUL_HM_peerChId(($peerId?$peerId:"00000000"),$dId,$iId);
my $regLN = "RegL_".sprintf("%02X",$list).":".CUL_HM_peerChName($peerId,$dId,$iId);
$regLN =~ s/broadcast//;
$regLN =~ s/ /_/g;
my $data=0;
for (my $size2go = $size;$size2go>0;$size2go -=8){