mhop/fhem
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

stable normal transmit, add get reg all and bitwise aram setting

Browse Source 
git-svn-id: https://fhem.svn.sourceforge.net/svnroot/fhem/trunk/fhem@1998 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
martinp876
2012-10-21 15:46:34 +00:00
parent 35986f18c4
commit 28e2109492
3 changed files with 3196 additions and 3124 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
FHEM/00_HMLAN.pm
View File

@@ -45,6 +45,7 @@ HMLAN_Initialize($)
"loglevel:0,1,2,3,4,5,6 addvaltrigger " . "loglevel:0,1,2,3,4,5,6 addvaltrigger " .
"hmId hmKey " . "hmId hmKey " .
"hmProtocolEvents:0_off,1_dump,2_dumpFull,3_dumpTrigger"; "hmProtocolEvents:0_off,1_dump,2_dumpFull,3_dumpTrigger";
} }
##################################### #####################################
@@ -191,6 +192,8 @@ HMLAN_ReadAnswer($$$)
} }
} }
my %lhash;
##################################### #####################################
sub sub
HMLAN_Write($$$) HMLAN_Write($$$)
@@ -198,7 +201,7 @@ HMLAN_Write($$$)
my ($hash,$fn,$msg) = @_; my ($hash,$fn,$msg) = @_;
my $dst = substr($msg, 16, 6); my $dst = substr($msg, 16, 6);
if(hex(substr($msg, 6, 2))&0x01) { # wakeup flag set, shake actor awake { # occationally necessary. Works fine if we do it always
HMLAN_SimpleWrite($hash, "+$dst,00,00,"); HMLAN_SimpleWrite($hash, "+$dst,00,00,");
HMLAN_SimpleWrite($hash, "+$dst,00,00,"); HMLAN_SimpleWrite($hash, "+$dst,00,00,");
HMLAN_SimpleWrite($hash, "+$dst,00,00,"); HMLAN_SimpleWrite($hash, "+$dst,00,00,");
@@ -207,16 +210,15 @@ HMLAN_Write($$$)
HMLAN_SimpleWrite($hash, "+$dst,00,00,"); HMLAN_SimpleWrite($hash, "+$dst,00,00,");
HMLAN_SimpleWrite($hash, "+$dst,00,00,"); HMLAN_SimpleWrite($hash, "+$dst,00,00,");
HMLAN_SimpleWrite($hash, "+$dst,00,00,"); HMLAN_SimpleWrite($hash, "+$dst,00,00,");
$lhash{$dst} = 1;
} }
my $tm = int(gettimeofday()*1000) % 0xffffffff; my $tm = int(gettimeofday()*1000) % 0xffffffff;
$msg = sprintf("S%08X,00,00000000,01,%08X,%s", $msg = sprintf("S%08X,00,00000000,01,%08X,%s",$tm, $tm, substr($msg, 4));
$tm, $tm, substr($msg, 4));
HMLAN_SimpleWrite($hash, $msg); HMLAN_SimpleWrite($hash, $msg);
# Avoid problems with structure set # Avoid problems with structure set
# TODO: rewrite it to use a queue+internaltimer like the CUL # TODO: rewrite it to use a queue+internaltimer like the CUL
select(undef, undef, undef, 0.01); # needed for structure set by meesus. select(undef, undef, undef, 0.01); # needed for structure set by meesus.
# may not be needed at all if acks are handled properly
} }
##################################### #####################################

455
FHEM/10_CUL_HM.pm
View File

@@ -27,7 +27,7 @@ sub CUL_HM_ProcessCmdStack($);
sub CUL_HM_Resend($); sub CUL_HM_Resend($);
sub CUL_HM_Id($); sub CUL_HM_Id($);
sub CUL_HM_name2hash($); sub CUL_HM_name2hash($);
sub CUL_HM_Name2Id($); sub CUL_HM_Name2Id(@);
sub CUL_HM_id2Name($); sub CUL_HM_id2Name($);
sub CUL_HM_getDeviceHash($); sub CUL_HM_getDeviceHash($);
sub CUL_HM_DumpProtocol($$@); sub CUL_HM_DumpProtocol($$@);
@@ -85,14 +85,14 @@ my %culHmModel=(
"0004" => {name=>"HM-LC-SW1-FM" ,cyc=>'' ,rxt=>'' ,lst=>'1,3' ,chn=>"",}, "0004" => {name=>"HM-LC-SW1-FM" ,cyc=>'' ,rxt=>'' ,lst=>'1,3' ,chn=>"",},
"0005" => {name=>"HM-LC-BL1-FM" ,cyc=>'' ,rxt=>'' ,lst=>'1,3' ,chn=>"",}, "0005" => {name=>"HM-LC-BL1-FM" ,cyc=>'' ,rxt=>'' ,lst=>'1,3' ,chn=>"",},
"0006" => {name=>"HM-LC-BL1-SM" ,cyc=>'' ,rxt=>'' ,lst=>'1,3' ,chn=>"",}, "0006" => {name=>"HM-LC-BL1-SM" ,cyc=>'' ,rxt=>'' ,lst=>'1,3' ,chn=>"",},
"0007" => {name=>"KS550" ,cyc=>'' ,rxt=>'' ,lst=>'1' ,chn=>"",}, "0007" => {name=>"KS550" ,cyc=>'00:10' ,rxt=>'' ,lst=>'1' ,chn=>"",},
"0008" => {name=>"HM-RC-4" ,cyc=>'' ,rxt=>'c' ,lst=>'1,4' ,chn=>"Btn:1:4",}, "0008" => {name=>"HM-RC-4" ,cyc=>'' ,rxt=>'c' ,lst=>'1,4' ,chn=>"Btn:1:4",},
"0009" => {name=>"HM-LC-SW2-FM" ,cyc=>'' ,rxt=>'' ,lst=>'1,3' ,chn=>"Sw:1:2",}, "0009" => {name=>"HM-LC-SW2-FM" ,cyc=>'' ,rxt=>'' ,lst=>'1,3' ,chn=>"Sw:1:2",},
"000A" => {name=>"HM-LC-SW2-SM" ,cyc=>'' ,rxt=>'' ,lst=>'1,3' ,chn=>"Sw:1:2",}, "000A" => {name=>"HM-LC-SW2-SM" ,cyc=>'' ,rxt=>'' ,lst=>'1,3' ,chn=>"Sw:1:2",},
"000B" => {name=>"HM-WDC7000" ,cyc=>'' ,rxt=>'' ,lst=>'' ,chn=>"",}, "000B" => {name=>"HM-WDC7000" ,cyc=>'' ,rxt=>'' ,lst=>'' ,chn=>"",},
"000D" => {name=>"ASH550" ,cyc=>'' ,rxt=>'c:w' ,lst=>'' ,chn=>"",}, "000D" => {name=>"ASH550" ,cyc=>'' ,rxt=>'c:w' ,lst=>'' ,chn=>"",},
"000E" => {name=>"ASH550I" ,cyc=>'' ,rxt=>'c:w' ,lst=>'' ,chn=>"",}, "000E" => {name=>"ASH550I" ,cyc=>'' ,rxt=>'c:w' ,lst=>'' ,chn=>"",},
"000F" => {name=>"S550IA" ,cyc=>'' ,rxt=>'c:w' ,lst=>'' ,chn=>"",}, "000F" => {name=>"S550IA" ,cyc=>'00:10' ,rxt=>'c:w' ,lst=>'' ,chn=>"",},
"0011" => {name=>"HM-LC-SW1-PL" ,cyc=>'' ,rxt=>'' ,lst=>'3' ,chn=>"",}, "0011" => {name=>"HM-LC-SW1-PL" ,cyc=>'' ,rxt=>'' ,lst=>'3' ,chn=>"",},
"0012" => {name=>"HM-LC-DIM1L-CV" ,cyc=>'' ,rxt=>'' ,lst=>'1,3' ,chn=>"Vtr:2:3",}, "0012" => {name=>"HM-LC-DIM1L-CV" ,cyc=>'' ,rxt=>'' ,lst=>'1,3' ,chn=>"Vtr:2:3",},
"0013" => {name=>"HM-LC-DIM1L-PL" ,cyc=>'' ,rxt=>'' ,lst=>'1,3' ,chn=>"",}, "0013" => {name=>"HM-LC-DIM1L-PL" ,cyc=>'' ,rxt=>'' ,lst=>'1,3' ,chn=>"",},
@@ -114,8 +114,8 @@ my %culHmModel=(
"002A" => {name=>"HM-RC-12-B" ,cyc=>'' ,rxt=>'c' ,lst=>'1,4' ,chn=>"Btn:1:12",}, "002A" => {name=>"HM-RC-12-B" ,cyc=>'' ,rxt=>'c' ,lst=>'1,4' ,chn=>"Btn:1:12",},
"002D" => {name=>"HM-LC-SW4-PCB" ,cyc=>'' ,rxt=>'' ,lst=>'3' ,chn=>"Sw:1:4",}, "002D" => {name=>"HM-LC-SW4-PCB" ,cyc=>'' ,rxt=>'' ,lst=>'3' ,chn=>"Sw:1:4",},
"002E" => {name=>"HM-LC-DIM2L-SM" ,cyc=>'' ,rxt=>'' ,lst=>'1,3' ,chn=>"Sw:1:2,Vtr:3:6",}, "002E" => {name=>"HM-LC-DIM2L-SM" ,cyc=>'' ,rxt=>'' ,lst=>'1,3' ,chn=>"Sw:1:2,Vtr:3:6",},
"002F" => {name=>"HM-SEC-SC" ,cyc=>'' ,rxt=>'c:w' ,lst=>'1,4' ,chn=>"",}, "002F" => {name=>"HM-SEC-SC" ,cyc=>'28:00' ,rxt=>'c:w' ,lst=>'1,4' ,chn=>"",},
"0030" => {name=>"HM-SEC-RHS" ,cyc=>'' ,rxt=>'c:w' ,lst=>'1,4' ,chn=>"",}, "0030" => {name=>"HM-SEC-RHS" ,cyc=>'28:00' ,rxt=>'c:w' ,lst=>'1,4' ,chn=>"",},
"0034" => {name=>"HM-PBI-4-FM" ,cyc=>'' ,rxt=>'c' ,lst=>'1,4' ,chn=>"Btn:1:4",}, "0034" => {name=>"HM-PBI-4-FM" ,cyc=>'' ,rxt=>'c' ,lst=>'1,4' ,chn=>"Btn:1:4",},
"0035" => {name=>"HM-PB-4-WM" ,cyc=>'' ,rxt=>'c' ,lst=>'1,4' ,chn=>"Btn:1:4",}, "0035" => {name=>"HM-PB-4-WM" ,cyc=>'' ,rxt=>'c' ,lst=>'1,4' ,chn=>"Btn:1:4",},
"0036" => {name=>"HM-PB-2-WM" ,cyc=>'' ,rxt=>'c' ,lst=>'1,4' ,chn=>"Btn:1:2",}, "0036" => {name=>"HM-PB-2-WM" ,cyc=>'' ,rxt=>'c' ,lst=>'1,4' ,chn=>"Btn:1:2",},
@@ -126,19 +126,19 @@ my %culHmModel=(
"003B" => {name=>"HM-RC-4-B" ,cyc=>'' ,rxt=>'c' ,lst=>'1,4' ,chn=>"Btn:1:4",}, "003B" => {name=>"HM-RC-4-B" ,cyc=>'' ,rxt=>'c' ,lst=>'1,4' ,chn=>"Btn:1:4",},
"003C" => {name=>"HM-WDS20-TH-O" ,cyc=>'' ,rxt=>'c:w' ,lst=>'' ,chn=>"",}, "003C" => {name=>"HM-WDS20-TH-O" ,cyc=>'' ,rxt=>'c:w' ,lst=>'' ,chn=>"",},
"003D" => {name=>"HM-WDS10-TH-O" ,cyc=>'' ,rxt=>'c:w' ,lst=>'' ,chn=>"",}, "003D" => {name=>"HM-WDS10-TH-O" ,cyc=>'' ,rxt=>'c:w' ,lst=>'' ,chn=>"",},
"003E" => {name=>"HM-WDS30-T-O" ,cyc=>'' ,rxt=>'c:w' ,lst=>'' ,chn=>"",}, "003E" => {name=>"HM-WDS30-T-O" ,cyc=>'00:10' ,rxt=>'c:w' ,lst=>'' ,chn=>"",},
"003F" => {name=>"HM-WDS40-TH-I" ,cyc=>'' ,rxt=>'c:w' ,lst=>'' ,chn=>"",}, "003F" => {name=>"HM-WDS40-TH-I" ,cyc=>'' ,rxt=>'c:w' ,lst=>'' ,chn=>"",},
"0040" => {name=>"HM-WDS100-C6-O" ,cyc=>'' ,rxt=>'c:w' ,lst=>'1' ,chn=>"",}, "0040" => {name=>"HM-WDS100-C6-O" ,cyc=>'00:10' ,rxt=>'c:w' ,lst=>'1' ,chn=>"",},
"0041" => {name=>"HM-WDC7000" ,cyc=>'' ,rxt=>'' ,lst=>'1,4' ,chn=>"",}, "0041" => {name=>"HM-WDC7000" ,cyc=>'' ,rxt=>'' ,lst=>'1,4' ,chn=>"",},
"0042" => {name=>"HM-SEC-SD" ,cyc=>'' ,rxt=>'b' ,lst=>'' ,chn=>"",}, "0042" => {name=>"HM-SEC-SD" ,cyc=>'28:00' ,rxt=>'b' ,lst=>'' ,chn=>"",},
"0043" => {name=>"HM-SEC-TIS" ,cyc=>'' ,rxt=>'c:w' ,lst=>'1,4' ,chn=>"",}, "0043" => {name=>"HM-SEC-TIS" ,cyc=>'28:00' ,rxt=>'c:w' ,lst=>'1,4' ,chn=>"",},
"0044" => {name=>"HM-SEN-EP" ,cyc=>'' ,rxt=>'c:w' ,lst=>'1,4' ,chn=>"",}, "0044" => {name=>"HM-SEN-EP" ,cyc=>'' ,rxt=>'c:w' ,lst=>'1,4' ,chn=>"",},
"0045" => {name=>"HM-SEC-WDS" ,cyc=>'' ,rxt=>'c:w' ,lst=>'1,4' ,chn=>"",}, "0045" => {name=>"HM-SEC-WDS" ,cyc=>'28:00' ,rxt=>'c:w' ,lst=>'1,4' ,chn=>"",},
"0047" => {name=>"KFM-Sensor" ,cyc=>'' ,rxt=>'' ,lst=>'1,3' ,chn=>"",}, "0047" => {name=>"KFM-Sensor" ,cyc=>'' ,rxt=>'' ,lst=>'1,3' ,chn=>"",},
"0046" => {name=>"HM-SWI-3-FM" ,cyc=>'' ,rxt=>'c' ,lst=>'4' ,chn=>"Sw:1:3",}, "0046" => {name=>"HM-SWI-3-FM" ,cyc=>'' ,rxt=>'c' ,lst=>'4' ,chn=>"Sw:1:3",},
"0048" => {name=>"IS-WDS-TH-OD-S-R3" ,cyc=>'' ,rxt=>'c:w' ,lst=>'1,3' ,chn=>"",}, "0048" => {name=>"IS-WDS-TH-OD-S-R3" ,cyc=>'' ,rxt=>'c:w' ,lst=>'1,3' ,chn=>"",},
"0049" => {name=>"KFM-Display" ,cyc=>'' ,rxt=>'' ,lst=>'1,3' ,chn=>"",}, "0049" => {name=>"KFM-Display" ,cyc=>'' ,rxt=>'' ,lst=>'1,3' ,chn=>"",},
"004A" => {name=>"HM-SEC-MDIR" ,cyc=>'' ,rxt=>'c:w' ,lst=>'1,4' ,chn=>"",}, "004A" => {name=>"HM-SEC-MDIR" ,cyc=>'00:20' ,rxt=>'c:w' ,lst=>'1,4' ,chn=>"",},
"004B" => {name=>"HM-Sec-Cen" ,cyc=>'' ,rxt=>'' ,lst=>'1,3' ,chn=>"",}, "004B" => {name=>"HM-Sec-Cen" ,cyc=>'' ,rxt=>'' ,lst=>'1,3' ,chn=>"",},
"004C" => {name=>"HM-RC-12-SW" ,cyc=>'' ,rxt=>'c' ,lst=>'1,4' ,chn=>"Btn:1:12",}, "004C" => {name=>"HM-RC-12-SW" ,cyc=>'' ,rxt=>'c' ,lst=>'1,4' ,chn=>"Btn:1:12",},
"004D" => {name=>"HM-RC-19-SW" ,cyc=>'' ,rxt=>'c:b' ,lst=>'1,4' ,chn=>"Btn:1:17,Disp:18",}, "004D" => {name=>"HM-RC-19-SW" ,cyc=>'' ,rxt=>'c:b' ,lst=>'1,4' ,chn=>"Btn:1:17,Disp:18",},
@@ -149,15 +149,15 @@ my %culHmModel=(
"0052" => {name=>"HM-LC-SW2-PB-FM" ,cyc=>'' ,rxt=>'' ,lst=>'3' ,chn=>"Sw:1:2",}, "0052" => {name=>"HM-LC-SW2-PB-FM" ,cyc=>'' ,rxt=>'' ,lst=>'3' ,chn=>"Sw:1:2",},
"0053" => {name=>"HM-LC-BL1-PB-FM" ,cyc=>'' ,rxt=>'' ,lst=>'1,3' ,chn=>"",}, "0053" => {name=>"HM-LC-BL1-PB-FM" ,cyc=>'' ,rxt=>'' ,lst=>'1,3' ,chn=>"",},
"0054" => {name=>"DORMA_RC-H" ,cyc=>'' ,rxt=>'c' ,lst=>'1,3' ,chn=>"",}, "0054" => {name=>"DORMA_RC-H" ,cyc=>'' ,rxt=>'c' ,lst=>'1,3' ,chn=>"",},
"0056" => {name=>"HM-CC-SCD" ,cyc=>'' ,rxt=>'c:w' ,lst=>'1,4' ,chn=>"",}, "0056" => {name=>"HM-CC-SCD" ,cyc=>'28:00' ,rxt=>'c:w' ,lst=>'1,4' ,chn=>"",},
"0057" => {name=>"HM-LC-DIM1T-PL" ,cyc=>'' ,rxt=>'' ,lst=>'1,3' ,chn=>"Vtr:2:3",}, "0057" => {name=>"HM-LC-DIM1T-PL" ,cyc=>'' ,rxt=>'' ,lst=>'1,3' ,chn=>"Vtr:2:3",},
"0058" => {name=>"HM-LC-DIM1T-CV" ,cyc=>'' ,rxt=>'' ,lst=>'1,3' ,chn=>"Vtr:2:3",}, "0058" => {name=>"HM-LC-DIM1T-CV" ,cyc=>'' ,rxt=>'' ,lst=>'1,3' ,chn=>"Vtr:2:3",},
"0059" => {name=>"HM-LC-DIM1T-FM" ,cyc=>'' ,rxt=>'' ,lst=>'1,3' ,chn=>"Vtr:2:3",}, "0059" => {name=>"HM-LC-DIM1T-FM" ,cyc=>'' ,rxt=>'' ,lst=>'1,3' ,chn=>"Vtr:2:3",},
"005A" => {name=>"HM-LC-DIM2T-SM" ,cyc=>'' ,rxt=>'' ,lst=>'1,3' ,chn=>"Sw:1:2,Vtr:3:6",}, "005A" => {name=>"HM-LC-DIM2T-SM" ,cyc=>'' ,rxt=>'' ,lst=>'1,3' ,chn=>"Sw:1:2,Vtr:3:6",},
"005C" => {name=>"HM-OU-CF-PL" ,cyc=>'' ,rxt=>'' ,lst=>'3' ,chn=>"Led:1:1,Sound:2:2",}, "005C" => {name=>"HM-OU-CF-PL" ,cyc=>'' ,rxt=>'' ,lst=>'3' ,chn=>"Led:1:1,Sound:2:2",},
"005D" => {name=>"HM-Sen-MDIR-O" ,cyc=>'' ,rxt=>'c:w' ,lst=>'1,4' ,chn=>"",}, "005D" => {name=>"HM-Sen-MDIR-O" ,cyc=>'' ,rxt=>'c:w' ,lst=>'1,4' ,chn=>"",},
"005F" => {name=>"HM-SCI-3-FM" ,cyc=>'' ,rxt=>'c:w' ,lst=>'1,4' ,chn=>"",}, "005F" => {name=>"HM-SCI-3-FM" ,cyc=>'28:00' ,rxt=>'c:w' ,lst=>'1,4' ,chn=>"",},
"0060" => {name=>"HM-PB-4DIS-WM" ,cyc=>'' ,rxt=>'c' ,lst=>'1,4' ,chn=>"Btn:1:20",}, "0060" => {name=>"HM-PB-4DIS-WM" ,cyc=>'00:10' ,rxt=>'c' ,lst=>'1,4' ,chn=>"Btn:1:20",},
"0061" => {name=>"HM-LC-SW4-DR" ,cyc=>'' ,rxt=>'' ,lst=>'3' ,chn=>"Sw:1:4",}, "0061" => {name=>"HM-LC-SW4-DR" ,cyc=>'' ,rxt=>'' ,lst=>'3' ,chn=>"Sw:1:4",},
"0062" => {name=>"HM-LC-SW2-DR" ,cyc=>'' ,rxt=>'' ,lst=>'1,3' ,chn=>"Sw:1:2",}, "0062" => {name=>"HM-LC-SW2-DR" ,cyc=>'' ,rxt=>'' ,lst=>'1,3' ,chn=>"Sw:1:2",},
"0064" => {name=>"DORMA_atent" ,cyc=>'' ,rxt=>'c' ,lst=>'1,3' ,chn=>"",}, "0064" => {name=>"DORMA_atent" ,cyc=>'' ,rxt=>'c' ,lst=>'1,3' ,chn=>"",},
@@ -176,18 +176,18 @@ my %culHmModel=(
"0x7A" => {name=>"ROTO_ZEL-STG-RM-FSA" ,cyc=>'' ,rxt=>'' ,lst=>'1,3' ,chn=>"",}, "0x7A" => {name=>"ROTO_ZEL-STG-RM-FSA" ,cyc=>'' ,rxt=>'' ,lst=>'1,3' ,chn=>"",},
"007B" => {name=>"ROTO_ZEL-STG-RM-FEP-230V",cyc=>'' ,rxt=>'' ,lst=>'1,3' ,chn=>"",}, "007B" => {name=>"ROTO_ZEL-STG-RM-FEP-230V",cyc=>'' ,rxt=>'' ,lst=>'1,3' ,chn=>"",},
"007D" => {name=>"ROTO_ZEL-STG-RM-WT-2" ,cyc=>'' ,rxt=>'c:w' ,lst=>'1,4' ,chn=>"",}, "007D" => {name=>"ROTO_ZEL-STG-RM-WT-2" ,cyc=>'' ,rxt=>'c:w' ,lst=>'1,4' ,chn=>"",},
"007E" => {name=>"ROTO_ZEL-STG-RM-DWT-10" ,cyc=>'' ,rxt=>'c' ,lst=>'1,4' ,chn=>"",}, "007E" => {name=>"ROTO_ZEL-STG-RM-DWT-10" ,cyc=>'00:10' ,rxt=>'c' ,lst=>'1,4' ,chn=>"",},
"007F" => {name=>"ROTO_ZEL-STG-RM-FST-UP4" ,cyc=>'' ,rxt=>'c' ,lst=>'1,4' ,chn=>"",}, "007F" => {name=>"ROTO_ZEL-STG-RM-FST-UP4" ,cyc=>'' ,rxt=>'c' ,lst=>'1,4' ,chn=>"",},
"0080" => {name=>"ROTO_ZEL-STG-RM-HS-4" ,cyc=>'' ,rxt=>'c' ,lst=>'1,4' ,chn=>"",}, "0080" => {name=>"ROTO_ZEL-STG-RM-HS-4" ,cyc=>'' ,rxt=>'c' ,lst=>'1,4' ,chn=>"",},
"0081" => {name=>"ROTO_ZEL-STG-RM-FDK" ,cyc=>'' ,rxt=>'c:w' ,lst=>'1,3' ,chn=>"",}, "0081" => {name=>"ROTO_ZEL-STG-RM-FDK" ,cyc=>'28:00' ,rxt=>'c:w' ,lst=>'1,3' ,chn=>"",},
"0082" => {name=>"Roto_ZEL-STG-RM-FFK" ,cyc=>'' ,rxt=>'c:w' ,lst=>'1,4' ,chn=>"",}, "0082" => {name=>"Roto_ZEL-STG-RM-FFK" ,cyc=>'28:00' ,rxt=>'c:w' ,lst=>'1,4' ,chn=>"",},
"0083" => {name=>"Roto_ZEL-STG-RM-FSS-UP3" ,cyc=>'' ,rxt=>'c' ,lst=>'4' ,chn=>"",}, "0083" => {name=>"Roto_ZEL-STG-RM-FSS-UP3" ,cyc=>'' ,rxt=>'c' ,lst=>'4' ,chn=>"",},
"0084" => {name=>"Schueco_263-160" ,cyc=>'' ,rxt=>'c:w' ,lst=>'1,4' ,chn=>"",}, "0084" => {name=>"Schueco_263-160" ,cyc=>'' ,rxt=>'c:w' ,lst=>'1,4' ,chn=>"",},
"0086" => {name=>"Schueco_263-146" ,cyc=>'' ,rxt=>'' ,lst=>'1,3' ,chn=>"",}, "0086" => {name=>"Schueco_263-146" ,cyc=>'' ,rxt=>'' ,lst=>'1,3' ,chn=>"",},
"008D" => {name=>"Schueco_263-1350" ,cyc=>'' ,rxt=>'c:w' ,lst=>'1,3' ,chn=>"",}, "008D" => {name=>"Schueco_263-1350" ,cyc=>'' ,rxt=>'c:w' ,lst=>'1,3' ,chn=>"",},
"008E" => {name=>"Schueco_263-155" ,cyc=>'' ,rxt=>'c' ,lst=>'1,4' ,chn=>"",}, "008E" => {name=>"Schueco_263-155" ,cyc=>'' ,rxt=>'c' ,lst=>'1,4' ,chn=>"",},
"008F" => {name=>"Schueco_263-145" ,cyc=>'' ,rxt=>'c' ,lst=>'1,4' ,chn=>"",}, "008F" => {name=>"Schueco_263-145" ,cyc=>'' ,rxt=>'c' ,lst=>'1,4' ,chn=>"",},
"0090" => {name=>"Schueco_263-162" ,cyc=>'' ,rxt=>'c:w' ,lst=>'1,3' ,chn=>"",}, "0090" => {name=>"Schueco_263-162" ,cyc=>'00:30' ,rxt=>'c:w' ,lst=>'1,3' ,chn=>"",},
"0092" => {name=>"Schueco_263-144" ,cyc=>'' ,rxt=>'c' ,lst=>'4' ,chn=>"",}, "0092" => {name=>"Schueco_263-144" ,cyc=>'' ,rxt=>'c' ,lst=>'4' ,chn=>"",},
"0093" => {name=>"Schueco_263-158" ,cyc=>'' ,rxt=>'c:w' ,lst=>'' ,chn=>"",}, "0093" => {name=>"Schueco_263-158" ,cyc=>'' ,rxt=>'c:w' ,lst=>'' ,chn=>"",},
"0094" => {name=>"Schueco_263-157" ,cyc=>'' ,rxt=>'c:w' ,lst=>'' ,chn=>"",}, "0094" => {name=>"Schueco_263-157" ,cyc=>'' ,rxt=>'c:w' ,lst=>'' ,chn=>"",},
@@ -1011,10 +1011,11 @@ CUL_HM_Parse($$)
my %culHmRegDefine = ( my %culHmRegDefine = (
intKeyVisib =>{a=> 2.7,s=>0.1,l=>0,min=>0 ,max=>1 ,c=>"" ,f=>"" ,u=>"bool",t=>"visibility of internal keys"}, intKeyVisib =>{a=> 2.7,s=>0.1,l=>0,min=>0 ,max=>1 ,c=>"" ,f=>"" ,u=>"bool",t=>"visibility of internal keys"},
pairCentral =>{a=> 10.0,s=>3.0,l=>0,min=>0 ,max=>16777215,c=>'' ,f=>"" ,u=>'dec' ,t=>'pairing to central'},
#blindActuator mainly #blindActuator mainly
driveUp =>{a=> 13.0,s=>2.0,l=>1,min=>0 ,max=>6000.0,c=>'factor' ,f=>10 ,u=>'s' ,t=>"drive time up"}, driveUp =>{a=> 13.0,s=>2.0,l=>1,min=>0 ,max=>6000.0,c=>'factor' ,f=>10 ,u=>'s' ,t=>"drive time up"},
driveDown =>{a=> 11.0,s=>2.0,l=>1,min=>0 ,max=>6000.0,c=>'factor' ,f=>10 ,u=>'s' ,t=>"drive time up"}, driveDown =>{a=> 11.0,s=>2.0,l=>1,min=>0 ,max=>6000.0,c=>'factor' ,f=>10 ,u=>'s' ,t=>"drive time up"},
driveTurn =>{a=> 15.0,s=>2.0,l=>1,min=>0 ,max=>6000.0,c=>'factor' ,f=>10 ,u=>'s' ,t=>"fliptime up <=>down"}, driveTurn =>{a=> 15.0,s=>1.0,l=>1,min=>0 ,max=>6000.0,c=>'factor' ,f=>10 ,u=>'s' ,t=>"fliptime up <=>down"},
maxTimeFSh =>{a=> 29.0,s=>1.0,l=>3,min=>0 ,max=>25.4 ,c=>'factor' ,f=>10 ,u=>'s' ,t=>"Short:max time first direction"}, maxTimeFSh =>{a=> 29.0,s=>1.0,l=>3,min=>0 ,max=>25.4 ,c=>'factor' ,f=>10 ,u=>'s' ,t=>"Short:max time first direction"},
maxTimeFLg =>{a=>157.0,s=>1.0,l=>3,min=>0 ,max=>25.4 ,c=>'factor' ,f=>10 ,u=>'s' ,t=>"Long:max time first direction"}, maxTimeFLg =>{a=>157.0,s=>1.0,l=>3,min=>0 ,max=>25.4 ,c=>'factor' ,f=>10 ,u=>'s' ,t=>"Long:max time first direction"},
#remote mainly #remote mainly
@@ -1101,7 +1102,7 @@ my %culHmRegDefine = (
ledFlashLocked=>{a=>31.6,s=>0.1,l=>1,min=>0 ,max=>1 ,c=>'' ,f=>'' ,u=>'bool',t=>"1=LED blinks when locked"}, ledFlashLocked=>{a=>31.6,s=>0.1,l=>1,min=>0 ,max=>1 ,c=>'' ,f=>'' ,u=>'bool',t=>"1=LED blinks when locked"},
); );
my %culHmRegGeneral = ( my %culHmRegGeneral = (
intKeyVisib=>1, intKeyVisib=>1,pairCentral=>1,
); );
my %culHmRegSupported = ( my %culHmRegSupported = (
remote=> {backOnTime=>1,backAtEvnt=>1,longPress=>1,msgShowTime=>1,}, remote=> {backOnTime=>1,backAtEvnt=>1,longPress=>1,msgShowTime=>1,},
@@ -1126,7 +1127,7 @@ my %culHmRegSupported = (
switch=> {OnTimeSh =>1,OnTimeLg =>1,OffTimeSh =>1,OffTimeLg =>1, switch=> {OnTimeSh =>1,OnTimeLg =>1,OffTimeSh =>1,OffTimeLg =>1,
OnDlySh =>1,OnDlyLg =>1,OffDlySh =>1,OffDlyLg =>1, OnDlySh =>1,OnDlyLg =>1,OffDlySh =>1,OffDlyLg =>1,
}, },
ClimateControl=>{ thermostat=>{
DispTempHum =>1,DispTempInfo =>1,DispTempUnit =>1,MdTempReg =>1, DispTempHum =>1,DispTempInfo =>1,DispTempUnit =>1,MdTempReg =>1,
MdTempValve =>1,TempComfort =>1,TempLower =>1,PartyEndDay =>1, MdTempValve =>1,TempComfort =>1,TempLower =>1,PartyEndDay =>1,
PartyEndMin =>1,PartyEndHr =>1,TempParty =>1,DecalDay =>1, PartyEndMin =>1,PartyEndHr =>1,TempParty =>1,DecalDay =>1,
@@ -1241,16 +1242,51 @@ CUL_HM_Get($@)
$val = $hash->{READINGS}{$a[2]}{VAL} if (!$val && $hash->{READINGS}{$a[2]}); $val = $hash->{READINGS}{$a[2]}{VAL} if (!$val && $hash->{READINGS}{$a[2]});
$val = AttrVal($devName, $a[2], "") if (!$val); $val = AttrVal($devName, $a[2], "") if (!$val);
$val = $devHash->{READINGS}{$a[2]}{VAL} if (!$val && $devHash->{READINGS}{$a[2]}); $val = $devHash->{READINGS}{$a[2]}{VAL} if (!$val && $devHash->{READINGS}{$a[2]});
$val = $hash->{helper}{$a[2]} if (!$val); $val = $hash->{$a[2]} if (!$val && $hash->{$a[2]});
$val = $devHash->{$a[2]} if (!$val && $devHash->{$a[2]});
$val = $hash->{helper}{$a[2]} if((!$val)&& (ref($hash->{helper}{$a[2]}) ne "HASH"));
$val = $devHash->{helper}{$a[2]} if (!$val); $val = $devHash->{helper}{$a[2]} if (!$val);
return (defined ($val))?$val:"undefined"; return (defined ($val))?$val:"undefined";
} }
elsif($cmd eq "reg") { ##################################################### elsif($cmd eq "reg") { #####################################################
my (undef,undef,$addr,$list,$peerId) = @a; my (undef,undef,$regReq,$list,$peerId) = @a;
my $regVal = CUL_HM_getRegFromStore($name,$addr,$list,$peerId); if ($regReq eq 'all'){
return ($regVal eq "invalid")? "Value not captured" my @regArr = keys %culHmRegGeneral;
push @regArr, keys %{$culHmRegSupported{$st}} if($culHmRegSupported{$st});
my @peers; # get all peers we have a reglist
my @listWp; # list that require peers
foreach my $readEntry (keys %{$hash->{READINGS}}){
my $regs = $hash->{READINGS}{$readEntry}{VAL};
if ($readEntry =~m /^RegL_/){ #this is a reg Reading "RegL_<list>:peerN
my $peer = substr($readEntry,8);
my $listP = substr($readEntry,6,1);
push(@peers,$peer) if ($peer);
push(@listWp,$listP) if ($peer);
}
}
my @regValList; #storage of results
foreach my $regName (@regArr){
my $regL = $culHmRegDefine{$regName}->{l};
my @peerExe = (grep (/$regL/,@listWp))?@peers:("00000000");
foreach my $peer(@peerExe){
next if($peer eq "");
my $regVal = CUL_HM_getRegFromStore($name,$regName,0,$peer); #determine peerID
push @regValList,"List:".$regL.
" Peer:".$peer.
"\t".$regName.
":\tvalue:". $regVal."\n" if ($regVal ne 'unknown') ;
}
}
return $name." type:".$st." - \n".join("",sort(@regValList));
}
else{
my $regVal = CUL_HM_getRegFromStore($name,$regReq,$list,$peerId);
return ($regVal eq "invalid")? "Value not captured"
: "0x".sprintf("%X",$regVal)." dec:".$regVal; : "0x".sprintf("%X",$regVal)." dec:".$regVal;
}
} }
elsif($cmd eq "regList") { ################################################# elsif($cmd eq "regList") { #################################################
my @arr = keys %culHmRegGeneral ; my @arr = keys %culHmRegGeneral ;
@@ -1258,9 +1294,9 @@ CUL_HM_Get($@)
my $info = $st." - \n"; my $info = $st." - \n";
foreach my $regName (@arr){ foreach my $regName (@arr){
my $reg = $culHmRegDefine{$regName}; my $reg = $culHmRegDefine{$regName};
$info .= $regName." range:". $reg->{min}." to ".$reg->{max}.$reg->{u}. $info .= $regName."\trange:". $reg->{min}." to ".$reg->{max}.$reg->{u}.
((($reg->{l} == 3)||($reg->{l} == 4))?" peer required":"") ((($reg->{l} == 3)||($reg->{l} == 4))?"\tpeer required":"")
." : ".$reg->{t}."\n"; ."\t: ".$reg->{t}."\n";
} }
return $info; return $info;
} }
@@ -1502,20 +1538,11 @@ CUL_HM_Set($@)
$state = ""; $state = "";
} }
elsif($cmd eq "statusRequest") { ############################################ elsif($cmd eq "statusRequest") { ############################################
my $chnFound; my @chnIdList = CUL_HM_getAssChnId($name);
foreach my $channel (keys %{$attr{$name}}){ foreach my $channel (@chnIdList){
next if ($channel !~ m/^channel_/); my $chnNo = substr($channel,6,2);
my $chnHash = CUL_HM_name2hash($attr{$name}{$channel}); CUL_HM_PushCmdStack($hash,"++".$flag.'01'.$id.$dst.$chnNo.'0E');
if ($chnHash){
my $chnNo = $chnHash->{DEF};
$chnNo = substr($chnNo,6,2);
$chnFound = 1 if ($chnNo eq "01");
CUL_HM_PushCmdStack($hash,"++".$flag.'01'.$id.$dst.$chnNo.'0E');
}
} }
# if channel or single channel device
CUL_HM_PushCmdStack($hash,'++'.$flag.'01'.$id.$dst.$chn.'0E')
if (!$chnFound);
$state = ""; $state = "";
} }
elsif($cmd eq "getpair") { ################################################## elsif($cmd eq "getpair") { ##################################################
@@ -1528,20 +1555,13 @@ CUL_HM_Set($@)
} }
elsif($cmd eq "getConfig") { ################################################ elsif($cmd eq "getConfig") { ################################################
my $chFound = 0; my $chFound = 0;
if (!$isChannel){# get device with all defined channels CUL_HM_PushCmdStack($hash,'++'.$flag.'01'.$id.$dst.'00040000000000')
CUL_HM_PushCmdStack($hash,'++'.$flag.'01'.$id.$dst.'00040000000000'); if (!$isChannel);
foreach my $channel (keys %{$attr{$name}}){ my @chnIdList = CUL_HM_getAssChnId($name);
next if ($channel !~ m/^channel_/); foreach my $channel (@chnIdList){
my $chnHash = CUL_HM_name2hash($attr{$name}{$channel}); my $chnHash = CUL_HM_id2hash($channel);
if ($chnHash){# 01 will be collected below CUL_HM_getConfig($hash,$chnHash,$id,$dst,substr($channel,6,2));
my $chnNo = $chnHash->{DEF}; }
$chnNo = substr($chnNo,6,2);
CUL_HM_getConfig($hash,$chnHash,$id,$dst,$chnNo);
$chFound = 1;
}
}
}
CUL_HM_getConfig($hash,$hash,$id,$dst,$chn)if (!$chFound);#get default channel
$state = ""; $state = "";
} }
elsif($cmd eq "regRaw" ||$cmd eq "getRegRaw") { ############################# elsif($cmd eq "regRaw" ||$cmd eq "getRegRaw") { #############################
@@ -1554,11 +1574,10 @@ CUL_HM_Set($@)
# as of now only hex value allowed check range and convert # as of now only hex value allowed check range and convert
$chn = "00" if ($list eq "00"); $chn = "00" if ($list eq "00");
my $tmpPeerID = ($peerID eq "all")?"all": CUL_HM_Name2Id($peerID);
$peerID =~ m/^self(.*)/; $peerID = ($peerID eq 'all')?'all': CUL_HM_Name2Id($peerID,$hash); #todo add self
$tmpPeerID = $dst.(($1)?sprintf("%02X",$1):""); $peerID = $peerID.((length($peerID) == 6)?"01":"");# default chn 1, if none
$peerID = $tmpPeerID.((length($tmpPeerID) == 6)?"01":""); $peerID = "00000000" if (length($peerID) != 8 && $peerID ne 'all');# none?
$peerID = "00000000" if (length($peerID) != 8);# no valid ID - use 0
my $peerChn = substr($peerID,6,2);# have to split chan and id my $peerChn = substr($peerID,6,2);# have to split chan and id
$peerID = substr($peerID,0,6); $peerID = substr($peerID,0,6);
@@ -1568,31 +1587,18 @@ CUL_HM_Set($@)
CUL_HM_PushCmdStack($hash,'++'.$flag.'01'.$id.$dst.'00040000000000'); CUL_HM_PushCmdStack($hash,'++'.$flag.'01'.$id.$dst.'00040000000000');
} }
else{# other lists are per channel else{# other lists are per channel
my $chnFound; my @chnIdList = CUL_HM_getAssChnId($name);
foreach my $channel (keys %{$attr{$name}}){#all device channels foreach my $channel (@chnIdList){
next if ($channel !~ m/^channel_/); my $chnNo = substr($channel,6,2);
$chnFound = 1;
my $chnHash = CUL_HM_name2hash($attr{$name}{$channel});
if ($chnHash){
my $chnNo = substr($chnHash->{DEF},6,2);
if ($list =~m /0[34]/){#getPeers to see if list3 is available
CUL_HM_PushCmdStack($hash,'++'.$flag.'01'.$id.$dst.$chnNo.'03');
$chnHash->{helper}{getCfgList} = $peerID.$peerChn;#list3 regs
$chnHash->{helper}{getCfgListNo} = int($list);
}
else{
CUL_HM_PushCmdStack($hash,'++'.$flag.'01'.$id.$dst.$chnNo.'04'.$peerID.$peerChn.$list);
}
}
}
if (!$chnFound){
if ($list =~m /0[34]/){#getPeers to see if list3 is available if ($list =~m /0[34]/){#getPeers to see if list3 is available
CUL_HM_PushCmdStack($hash,'++'.$flag.'01'.$id.$dst.$chn.'03'); CUL_HM_PushCmdStack($hash,'++'.$flag.'01'.$id.$dst.$chnNo.'03');
$hash->{helper}{getCfgList} = $peerID.$peerChn;#list3 regs my $chnHash = CUL_HM_id2hash($channel);
$hash->{helper}{getCfgListNo} = int($list); $chnHash->{helper}{getCfgList} = $peerID.$peerChn;#list3 regs
$chnHash->{helper}{getCfgListNo} = int($list);
} }
else{ else{
CUL_HM_PushCmdStack($hash,'++'.$flag.'01'.$id.$dst.$chn.'0400000000'.$list); CUL_HM_PushCmdStack($hash,'++'.$flag.'01'.$id.$dst.$chnNo.'04'
.$peerID.$peerChn.$list);
} }
} }
} }
@@ -1624,18 +1630,10 @@ CUL_HM_Set($@)
my $conversion = $reg->{c}; my $conversion = $reg->{c};
if (!$conversion){;# do nothing if (!$conversion){;# do nothing
} }elsif($conversion eq "factor"){$data *= $reg->{f};# use factor
elsif($conversion eq "factor"){# use factor }elsif($conversion eq "fltCvT"){$data = CUL_HM_fltCvT($data);
$data *= $reg->{f}; }elsif($conversion eq "m10s3") {$data = $data*10-3;
} }else{return " conversion undefined - please contact admin";
elsif ($conversion eq "fltCvT"){
$data = CUL_HM_fltCvT($data);
}
elsif($conversion eq "m10s3"){
$data=$data*10-3;
}
else{
return " conversion undefined - please contact admin";
} }
my $addr = int($reg->{a}); # bit location later my $addr = int($reg->{a}); # bit location later
@@ -1650,12 +1648,8 @@ CUL_HM_Set($@)
my $mask = (0xffffffff>>(32-$dLen)); my $mask = (0xffffffff>>(32-$dLen));
my $dataStr = substr(sprintf("%08X",($data & $mask) << $bit), my $dataStr = substr(sprintf("%08X",($data & $mask) << $bit),
8-int($reg->{s}+0.99)*2,); 8-int($reg->{s}+0.99)*2,);
my $addrData;
for (my $cnt = 0;$cnt<int($reg->{s}+0.99);$cnt++){
$addrData.=sprintf("%02X",$addr+$cnt).substr($dataStr,$cnt*2,2);
}
my ($lChn,$peerID,$peerChn) = ($chn,"000000","00");
my ($lChn,$peerID,$peerChn) = ($chn,"000000","00");
if (($list == 3) ||($list == 4)){ # peer is necessary for list 3/4 if (($list == 3) ||($list == 4)){ # peer is necessary for list 3/4
return "Peer not specified" if (!$peerChnIn); return "Peer not specified" if (!$peerChnIn);
$peerID = ($peerChnIn =~ m/^self(.*)/)?$dst:CUL_HM_Name2Id($peerChnIn); $peerID = ($peerChnIn =~ m/^self(.*)/)?$dst:CUL_HM_Name2Id($peerChnIn);
@@ -1670,13 +1664,21 @@ CUL_HM_Set($@)
else{ #if($list == 1/5/6){ else{ #if($list == 1/5/6){
$lChn = "01" if ($chn eq "00"); #by default select chan 01 for device $lChn = "01" if ($chn eq "00"); #by default select chan 01 for device
} }
my $addrData;
if ($dLen < 8){# fractional byte see whether we have stored the register if ($dLen < 8){# fractional byte see whether we have stored the register
#read full 8 bit!!! #read full 8 bit!!!
my $curVal = CUL_HM_getRegFromStore(CUL_HM_id2Name($dst.$lChn), my $curVal = CUL_HM_getRegFromStore(CUL_HM_id2Name($dst.$lChn),
$addr,$list,$peerID.$peerChn); $addr,$list,$peerID.$peerChn);
return "cannot read current value for Bitfield - retrieve Data first" return "cannot read current value for Bitfield - retrieve Data first"
if (!$curVal); if (!$curVal);
$data = ($curVal & (~($mask<<$bit)))||hex($data); $data = ($curVal & (~($mask<<$bit)))|($data<<$bit);
$addrData.=sprintf("%02X%02X",$addr,$data);
}
else{
for (my $cnt = 0;$cnt<int($reg->{s}+0.99);$cnt++){
$addrData.=sprintf("%02X",$addr+$cnt).substr($dataStr,$cnt*2,2);
}
} }
CUL_HM_pushConfig($hash,$id,$dst,$lChn,$peerID,$peerChn,$list,$addrData); CUL_HM_pushConfig($hash,$id,$dst,$lChn,$peerID,$peerChn,$list,$addrData);
} }
@@ -1997,7 +1999,6 @@ CUL_HM_Set($@)
CommandDelete(undef,$attr{$name}{$channel}) CommandDelete(undef,$attr{$name}{$channel})
if (hex($chNo) > $maxBtnNo); if (hex($chNo) > $maxBtnNo);
} }
} }
elsif($cmd eq "actiondetect"){ elsif($cmd eq "actiondetect"){
$state = ""; $state = "";
@@ -2195,12 +2196,17 @@ CUL_HM_Pair(@)
sub sub
CUL_HM_getConfig($$$$$){ CUL_HM_getConfig($$$$$){
my ($hash,$chnhash,$id,$dst,$chn) = @_; my ($hash,$chnhash,$id,$dst,$chn) = @_;
my $flag = CUL_HM_getFlag($hash); my $flag = CUL_HM_getFlag($hash);
foreach my $readEntry (keys %{$chnhash->{READINGS}}){
if ($readEntry =~ m/^RegL_/){
delete $chnhash->{READINGS}{$readEntry};
}
}
my $lstAr = $culHmModel{CUL_HM_getMId($hash)}{lst}; my $lstAr = $culHmModel{CUL_HM_getMId($hash)}{lst};
my @list = split(",",$lstAr); #get valid lists e.g."1, 5:2:3.p ,6:2" my @list = split(",",$lstAr); #get valid lists e.g."1, 5:2:3.p ,6:2"
foreach my$listEntry (@list){ foreach my$listEntry (@list){# each list that is define for this channel
my ($peerReq,$chnValid,)= (0,0); my ($peerReq,$chnValid)= (0,0);
my ($listNo,$chnLst1) = split(":",$listEntry); my ($listNo,$chnLst1) = split(":",$listEntry);
if (!$chnLst1){ if (!$chnLst1){
$chnValid = 1; #if no entry channel is valid $chnValid = 1; #if no entry channel is valid
@@ -2229,7 +2235,7 @@ CUL_HM_getConfig($$$$$){
} }
} }
} }
################################### ###################-------send related --------################
sub sub
CUL_HM_SendCmd($$$$) CUL_HM_SendCmd($$$$)
{ {
@@ -2262,7 +2268,7 @@ CUL_HM_responseSetup($$$)
my ($msgId, $msgType,$dst,$p) = ($2,$4,$6,$7) my ($msgId, $msgType,$dst,$p) = ($2,$4,$6,$7)
if ($cmd =~ m/As(..)(..)(..)(..)(......)(......)(.*)/); if ($cmd =~ m/As(..)(..)(..)(..)(......)(......)(.*)/);
my ($chn,$subType) = ($1,$2) if($p =~ m/^(..)(..)/); my ($chn,$subType) = ($1,$2) if($p =~ m/^(..)(..)/);
my $rTo = 1.5; #default rsponse timeout
if ($msgType eq "01" && $subType){ if ($msgType eq "01" && $subType){
if ($subType eq "03"){ #PeerList------------- if ($subType eq "03"){ #PeerList-------------
#--- remember request params in device level #--- remember request params in device level
@@ -2270,7 +2276,7 @@ CUL_HM_responseSetup($$$)
$hash->{helper}{respWait}{forChn} = substr($p,0,2);#channel info we await $hash->{helper}{respWait}{forChn} = substr($p,0,2);#channel info we await
# define timeout - holdup cmdStack until response complete or timeout # define timeout - holdup cmdStack until response complete or timeout
InternalTimer(gettimeofday()+1.5, "CUL_HM_respPendTout", "respPend:$dst", 0); InternalTimer(gettimeofday()+$rTo, "CUL_HM_respPendTout", "respPend:$dst", 0);
#--- remove readings in channel #--- remove readings in channel
my $chnhash = $modules{CUL_HM}{defptr}{"$dst$chn"}; my $chnhash = $modules{CUL_HM}{defptr}{"$dst$chn"};
@@ -2280,8 +2286,8 @@ CUL_HM_responseSetup($$$)
} }
elsif($subType eq "04"){ #RegisterRead------- elsif($subType eq "04"){ #RegisterRead-------
my ($peerID, $list) = ($1,$2) if ($p =~ m/..04(........)(..)/); my ($peerID, $list) = ($1,$2) if ($p =~ m/..04(........)(..)/);
$peerID = CUL_HM_id2Name($peerID); $peerID = ($peerID ne "00000000")?CUL_HM_id2Name($peerID):"";
$peerID =~ s/ /_/g;#remote blanks $peerID =~ s/ /_/g;#subs blanks
#--- set messaging items #--- set messaging items
$hash->{helper}{respWait}{Pending} = "RegisterRead"; $hash->{helper}{respWait}{Pending} = "RegisterRead";
$hash->{helper}{respWait}{forChn} = $chn; $hash->{helper}{respWait}{forChn} = $chn;
@@ -2289,7 +2295,7 @@ CUL_HM_responseSetup($$$)
$hash->{helper}{respWait}{forPeer}= $peerID;# this is the HMid + channel $hash->{helper}{respWait}{forPeer}= $peerID;# this is the HMid + channel
# define timeout - holdup cmdStack until response complete or timeout # define timeout - holdup cmdStack until response complete or timeout
InternalTimer(gettimeofday()+1.5,"CUL_HM_respPendTout","respPend:$dst", 0); InternalTimer(gettimeofday()+$rTo,"CUL_HM_respPendTout","respPend:$dst", 0);#todo General change timer to 1.5
#--- remove channel entries that will be replaced #--- remove channel entries that will be replaced
my $chnhash = $modules{CUL_HM}{defptr}{"$dst$chn"}; my $chnhash = $modules{CUL_HM}{defptr}{"$dst$chn"};
$chnhash = $hash if(!$chnhash); $chnhash = $hash if(!$chnhash);
@@ -2306,7 +2312,7 @@ CUL_HM_responseSetup($$$)
$hash->{helper}{respWait}{forChn} = $chn; $hash->{helper}{respWait}{forChn} = $chn;
# define timeout - holdup cmdStack until response complete or timeout # define timeout - holdup cmdStack until response complete or timeout
InternalTimer(gettimeofday()+1.5, "CUL_HM_respPendTout", "respPend:$dst", 0); InternalTimer(gettimeofday()+$rTo, "CUL_HM_respPendTout", "respPend:$dst", 0);
return; return;
} }
} }
@@ -2352,6 +2358,7 @@ CUL_HM_respPendRm($)
delete ($hash->{helper}{respWait}); delete ($hash->{helper}{respWait});
RemoveInternalTimer($hash); # remove resend-timer RemoveInternalTimer($hash); # remove resend-timer
RemoveInternalTimer("respPend:$hash->{DEF}");# remove responsePending timer RemoveInternalTimer("respPend:$hash->{DEF}");# remove responsePending timer
CUL_HM_ProcessCmdStack($hash); # continue processing commands CUL_HM_ProcessCmdStack($hash); # continue processing commands
} }
################################### ###################################
@@ -2365,12 +2372,13 @@ CUL_HM_respPendTout($)
CUL_HM_eventP($hash,"Tout") if ($hash->{helper}{respWait}{cmd}); CUL_HM_eventP($hash,"Tout") if ($hash->{helper}{respWait}{cmd});
CUL_HM_eventP($hash,"ToutResp") if ($hash->{helper}{respWait}{Pending}); CUL_HM_eventP($hash,"ToutResp") if ($hash->{helper}{respWait}{Pending});
CUL_HM_respPendRm($hash); CUL_HM_respPendRm($hash);
DoTrigger($hash->{NAME}, "RESPONSE TIMEOUT");#Generel - keep it?
} }
} }
################################### ###################################
sub sub
CUL_HM_respPendToutProlong($) #used when device sends part responses CUL_HM_respPendToutProlong($)
{ {#used when device sends part responses
my ($hash) = @_; my ($hash) = @_;
RemoveInternalTimer("respPend:$hash->{DEF}");# remove responsePending timer? RemoveInternalTimer("respPend:$hash->{DEF}");# remove responsePending timer?
InternalTimer(gettimeofday()+1, "CUL_HM_respPendTout", "respPend:$hash->{DEF}", 0); InternalTimer(gettimeofday()+1, "CUL_HM_respPendTout", "respPend:$hash->{DEF}", 0);
@@ -2408,7 +2416,6 @@ CUL_HM_ProcessCmdStack($)
} }
return $sent; return $sent;
} }
################################### ###################################
sub sub
CUL_HM_Resend($) CUL_HM_Resend($)
@@ -2416,7 +2423,7 @@ CUL_HM_Resend($)
my $hash = shift; my $hash = shift;
my $name = $hash->{NAME}; my $name = $hash->{NAME};
return if(!$hash->{helper}{respWait}{reSent}); # Double timer? return if(!$hash->{helper}{respWait}{reSent}); # Double timer?
if($hash->{helper}{respWait}{reSent} >= 1) { if($hash->{helper}{respWait}{reSent} >= 3) {
CUL_HM_eventP($hash,"ResndFail"); CUL_HM_eventP($hash,"ResndFail");
delete($hash->{cmdStack}); delete($hash->{cmdStack});
delete($attr{$hash->{NAME}}{protCmdPend}); delete($attr{$hash->{NAME}}{protCmdPend});
@@ -2432,7 +2439,25 @@ CUL_HM_Resend($)
InternalTimer(gettimeofday()+1, "CUL_HM_Resend", $hash, 0); InternalTimer(gettimeofday()+1, "CUL_HM_Resend", $hash, 0);
} }
} }
###################-----------helper and shortcuts--------################
sub
CUL_HM_getAssChnId($)
{ # will return the list of assotiated channel of a device
# if it is a channel only return itself
# if device and no channel
my ($name) = @_;
my @chnIdList;
foreach my $channel (keys %{$attr{$name}}){
next if ($channel !~ m/^channel_/);
my $chnHash = CUL_HM_name2hash($attr{$name}{$channel});
push @chnIdList,$chnHash->{DEF} if ($chnHash);
}
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);
return sort(@chnIdList);
}
################################### ###################################
sub sub
CUL_HM_Id($) CUL_HM_Id($)
@@ -2443,6 +2468,14 @@ CUL_HM_Id($)
} }
################################### ###################################
sub sub
CUL_HM_id2hash($)
{# in: id, out:hash
my ($id) = @_;
return $modules{CUL_HM}{defptr}{$id} if ($modules{CUL_HM}{defptr}{$id});
return $modules{CUL_HM}{defptr}{substr($id,0,6)}; # could be chn 01 of dev
}
###################################
sub
CUL_HM_name2hash($) CUL_HM_name2hash($)
{# in: name, out:hash {# in: name, out:hash
my ($name) = @_; my ($name) = @_;
@@ -2450,38 +2483,36 @@ CUL_HM_name2hash($)
} }
################################### ###################################
sub sub
CUL_HM_Name2Id($) CUL_HM_Name2Id(@)
{ # in: name or HMid out: HMid, undef if no match { # in: name or HMid out: HMid, undef if no match
my ($idName) = @_; my ($idName,$idHash) = @_;
my $hash = $defs{$idName}; my $hash = $defs{$idName};
my $hmId; return $hash->{DEF} if ($hash); #idName is entity
$hmId = $hash->{DEF} if ($hash); return "000000" if($idName eq "broadcast"); #broadcast
$hmId =$idName if(!$hmId &&($idName =~ m/^[A-F0-9]{6,8}$/i));
return $hmId; return $defs{$1}.$2 if($idName =~ m/(.*)_chn:(.*)/); #<devname> chn:xx
return $idName if($idName =~ m/^[A-F0-9]{6,8}$/i); #was already HMid
return $idHash->{DEF}.sprintf("%02X",$1)
if($idHash && $idName =~ m/self(.*)/);
return;
} }
################################### ###################################
sub sub
CUL_HM_id2Name($) CUL_HM_id2Name($)
{ # in: name or HMid out: name { # in: name or HMid out: name
my ($p) = @_; my ($p) = @_;
return $p if($attr{$p}); # is already name
my $devId= substr($p, 0, 6); my $devId= substr($p, 0, 6);
my $chn; return "broadcast" if($devId eq "000000");
my $chnId; my ($chn,$chnId);
return $p if($attr{$p}); # is already name
if (length($p) == 8){ if (length($p) == 8){
$chn = substr($p, 6, 2);; $chn = substr($p, 6, 2);;
$chnId = $p; $chnId = $p;
} }
return "broadcast" if($devId eq "000000");
my $name;
my $defPtr = $modules{CUL_HM}{defptr}; my $defPtr = $modules{CUL_HM}{defptr};
$name = $defPtr->{$chnId}{NAME} if($chnId && $defPtr->{$chnId}); return $defPtr->{$chnId}{NAME} if($chnId && $defPtr->{$chnId});
if (!$name){ return $defPtr->{$devId}{NAME} if($defPtr->{$devId});
$name = $defPtr->{$devId}{NAME} if($defPtr->{$devId}); return $devId. ($chn ? ("_chn:".$chn):"");
$name = $devId if(!$name);
$name .= ($chn ? (" chn:".$chn):"");
}
return $name;
} }
################################### ###################################
sub sub
@@ -2732,6 +2763,7 @@ CUL_HM_parseCommon(@){
if ($p =~ m/00000000$/) {# last entry, peerList is complete if ($p =~ m/00000000$/) {# last entry, peerList is complete
CUL_HM_respPendRm($shash); CUL_HM_respPendRm($shash);
# check for request to get List3 data # check for request to get List3 data
my $reqPeer = $chnhash->{helper}{getCfgList}; my $reqPeer = $chnhash->{helper}{getCfgList};
if ($reqPeer){ if ($reqPeer){
@@ -2775,16 +2807,20 @@ CUL_HM_parseCommon(@){
my $addr; my $addr;
my @dataList; my @dataList;
($addr,$data) = (hex($1),$2) if ($data =~ m/(..)(.*)/); ($addr,$data) = (hex($1),$2) if ($data =~ m/(..)(.*)/);
$data =~s/(..)/$1:/g; if ($addr == 0){
foreach my $d1 (split(":",$data)){ $data = "00:00";
push (@dataList,sprintf("%02X:%s",$addr++,$d1)); }
else{
$data =~s/(..)/$1:/g;
foreach my $d1 (split(":",$data)){
push (@dataList,sprintf("%02X:%s",$addr++,$d1));
}
$data = join(" ",@dataList);
} }
$data = join(" ",@dataList);
} }
my $peerN =($list =~ m/^0[34]$/)?$shash->{helper}{respWait}{forPeer}:""; my $regLN = "RegL_".$list.":".$shash->{helper}{respWait}{forPeer};
$chnhash->{READINGS}{"RegL_".$list.":".$peerN}{VAL}.= " ".$data if($data); $chnhash->{READINGS}{$regLN}{VAL}.= " ".$data if($data);
$chnhash->{READINGS}{"RegL_".$list.":".$peerN}{TIME}= TimeNow(); $chnhash->{READINGS}{$regLN}{TIME}= TimeNow();
if ($data =~m/00:00$/){ # this was the last message in the block if ($data =~m/00:00$/){ # this was the last message in the block
if($list eq "00"){ if($list eq "00"){
my $name = CUL_HM_id2Name($src); my $name = CUL_HM_id2Name($src);
@@ -2795,6 +2831,7 @@ CUL_HM_parseCommon(@){
$shash->{READINGS}{PairedTo}{TIME} = TimeNow(); $shash->{READINGS}{PairedTo}{TIME} = TimeNow();
} }
CUL_HM_respPendRm($shash); CUL_HM_respPendRm($shash);
delete $chnhash->{helper}{shadowReg}{$regLN};#remove shadowhash
} }
else{ else{
CUL_HM_respPendToutProlong($shash);#wasn't last - reschedule timer CUL_HM_respPendToutProlong($shash);#wasn't last - reschedule timer
@@ -2813,6 +2850,9 @@ CUL_HM_parseCommon(@){
$data =~ s/(..)(..)/ $1:$2/g; $data =~ s/(..)(..)/ $1:$2/g;
$chnHash->{READINGS}{$listName}{VAL}.= " ".$data; $chnHash->{READINGS}{$listName}{VAL}.= " ".$data;
$chnHash->{READINGS}{$listName}{TIME}= TimeNow(); $chnHash->{READINGS}{$listName}{TIME}= TimeNow();
# todo: this is likely a set of messages. Postpone command stack processing
# until end of transmission. Verify whether there is a conflict with a
# current operation and use timer supervision to abort
} }
elsif($subtype eq "06"){ #reply to status request####### elsif($subtype eq "06"){ #reply to status request#######
#todo = what is the answer to a status request #todo = what is the answer to a status request
@@ -2842,13 +2882,13 @@ CUL_HM_parseCommon(@){
############################# #############################
sub sub
CUL_HM_getRegFromStore($$$$){ CUL_HM_getRegFromStore($$$$)
my($name,$addr,$list,$peerId)=@_; {#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 8bit, pos=0, no convertion my ($size,$pos,$conversion,$factor,$unit) = (8,0,"",1,""); # default
my $addr = $regName;
if ($culHmRegDefine{$addr}) { if ($culHmRegDefine{$regName}) { # get the register's information
my $regName = $addr;
$addr = $culHmRegDefine{$regName}{a}; $addr = $culHmRegDefine{$regName}{a};
$pos = ($addr*10)%10; $pos = ($addr*10)%10;
$addr = int($addr); $addr = int($addr);
@@ -2859,47 +2899,38 @@ CUL_HM_getRegFromStore($$$$){
$factor = $culHmRegDefine{$regName}{f}; $factor = $culHmRegDefine{$regName}{f};
$unit = $culHmRegDefine{$regName}{u}; $unit = $culHmRegDefine{$regName}{u};
} }
$peerId = substr(CUL_HM_Name2Id($name),0,6). #deviceID $peerId = substr(CUL_HM_Name2Id($name),0,6).sprintf("%02X",$1)
sprintf("%02X",$1) if($peerId =~ m/^self(.*)/); # plus channel if($peerId =~ m/^self(.*)/); # plus channel
my $listName = "RegL_".sprintf("%02X",$list).":". my $regLN = "RegL_".sprintf("%02X",$list).":".CUL_HM_id2Name($peerId);
(($list<3)?"":CUL_HM_id2Name($peerId)); $regLN =~ s/broadcast//;
$listName =~ s/ /_/g; $regLN =~ s/ /_/g;
my $listRegs = $hash->{READINGS}{$listName}{VAL} if ($listName);
return "unknown" if (!$listRegs);
my $data = 0;
my $size2go = $size;
foreach my $AD(split(" ",$listRegs)){
my ($a,$dRead) = split(":",$AD);
if(hex($a) == $addr){
if ($size2go<9){
$data += hex($dRead);
$data = ($data>>$pos) & (0xffffffff>>(32-$size));
if (!$conversion){;# do nothing my $data=0;
} for (my $size2go = $size;$size2go>0;$size2go -=8){
elsif($conversion eq "factor"){# use factor my $addrS = sprintf("%02X",$addr);
$data /= $factor; my $dRead;
} if ($hash->{helper}{shadowReg}&&$hash->{helper}{shadowReg}{$regLN}){
elsif ($conversion eq "fltCvT"){ $dRead = $1 if($hash->{helper}{shadowReg}{$regLN} =~ m/$addrS:(..)/);
$data = CUL_HM_CvTflt($data); }
} if (!$dRead && $hash->{READINGS}{$regLN}) {
elsif($conversion eq "m10s3"){ $dRead = $1 if($hash->{READINGS}{$regLN}{VAL} =~ m/$addrS:(..)/);
$data=($data+3)/10; }
} return "unknown" if (!$dRead);
else{ $data = ($data<< 8)+hex($dRead);
return " conversion undefined - please contact admin";
} $addr++;
return $data.$unit;
}
else{
$size2go -=8;
$data = ($data+hex($dRead)) << 8;
$addr++;
}
}
} }
return "invalid";
$data = ($data>>$pos) & (0xffffffff>>(32-$size));
if (!$conversion){ ;# do nothing
} elsif($conversion eq "factor"){ $data /= $factor;
} elsif($conversion eq "fltCvT"){ $data = CUL_HM_CvTflt($data);
} elsif($conversion eq "m10s3") { $data = ($data+3)/10;
} else { return " conversion undefined - please contact admin";
}
return $data.$unit;
} }
############################# #############################
my @culHmTimes8 = ( 0.1, 1, 5, 10, 60, 300, 600, 3600 ); my @culHmTimes8 = ( 0.1, 1, 5, 10, 60, 300, 600, 3600 );
@@ -2980,21 +3011,47 @@ CUL_HM_decodeTime16($)
############################# #############################
sub sub
CUL_HM_pushConfig($$$$$$$$) CUL_HM_pushConfig($$$$$$$$)
{ {#routine will generate messages to write cnfig data to register
my ($hash,$src,$dst,$chn,$peerAddr,$peerChn,$list,$content) = @_; my ($hash,$src,$dst,$chn,$peerAddr,$peerChn,$list,$content) = @_;
my $flag = CUL_HM_getFlag($hash); my $flag = CUL_HM_getFlag($hash);
$peerAddr = "000000" if(!$peerAddr); $peerAddr = "000000" if(!$peerAddr);
CUL_HM_PushCmdStack($hash, sprintf("++%s01%s%s%02X05%s%02X%02X",
$flag, $src, $dst, $chn, $peerAddr, $peerChn, $list));
my $tl = length($content); my $tl = length($content);
($chn,$peerChn,$list) = split(':',sprintf("%02X:%02X:%02X",$chn,$peerChn,$list));
# --store pending changes in shadow to handle bit manipulations cululativ--
my $peerN = ($peerAddr eq "000000")?CUL_HM_id2Name($peerAddr.$peerChn):"";
$peerN =~ s/broadcast//;
$peerN =~ s/ /_/g;#remote blanks
my $regLN = "RegL_".$list.":".$peerN;
#--- copy data from readings to shadow
my $chnhash = $modules{CUL_HM}{defptr}{$dst.$chn};
$chnhash = $hash if (!$chnhash);
if (!$chnhash->{helper}{shadowReg} ||
!$chnhash->{helper}{shadowReg}{$regLN}){
if ($chnhash->{READINGS}{$regLN}){#readings are present
$chnhash->{helper}{shadowReg}{$regLN} = ($chnhash->{READINGS}{$regLN})?
$chnhash->{READINGS}{$regLN}{VAL}:"";
}
}
#--- update with ne value
my $regs = $chnhash->{helper}{shadowReg}{$regLN};
for(my $l = 0; $l < $tl; $l+=4) { #substitute changed bytes in shadow
my $addr = substr($content,$l,2);
my $data = substr($content,$l+2,2);
if(!($regs =~ s/$addr:../$addr:$data/)){
$regs .= " ".$addr.":".$data;
}
}
$chnhash->{helper}{shadowReg}{$regLN} = $regs;
CUL_HM_PushCmdStack($hash, "++".$flag.'01'.$src.$dst.$chn.'05'.
$peerAddr.$peerChn.$list);
for(my $l = 0; $l < $tl; $l+=28) { for(my $l = 0; $l < $tl; $l+=28) {
my $ml = $tl-$l < 28 ? $tl-$l : 28; my $ml = $tl-$l < 28 ? $tl-$l : 28;
CUL_HM_PushCmdStack($hash, sprintf("++A001%s%s%02X08%s", CUL_HM_PushCmdStack($hash, "++A001".$src.$dst.$chn."08".
$src,$dst,$chn, substr($content,$l,$ml))); substr($content,$l,$ml));
} }
CUL_HM_PushCmdStack($hash,sprintf("++A001%s%s%02X06",$src,$dst,$chn)); CUL_HM_PushCmdStack($hash,"++A001".$src.$dst.$chn."06");
} }
sub sub
CUL_HM_secSince2000() CUL_HM_secSince2000()
@@ -3016,12 +3073,12 @@ CUL_HM_secSince2000()
sub sub
CUL_HM_ActGetCreateHash() CUL_HM_ActGetCreateHash()
{# return hash of ActionDetector - create one if not existant {# return hash of ActionDetector - create one if not existant
if (!$modules{CUL_HM}{defptr}{"100100"}){ if (!$modules{CUL_HM}{defptr}{"000000"}){
DoTrigger("global", "UNDEFINED ActionDetector CUL_HM 100100"); DoTrigger("global", "UNDEFINED ActionDetector CUL_HM 000000");
$attr{ActionDetector}{actCycle} = 600; $attr{ActionDetector}{actCycle} = 600;
} }
my $actName = CUL_HM_id2Name("100100"); my $actName = CUL_HM_id2Name("000000");
my $actHash = $modules{CUL_HM}{defptr}{"100100"}; my $actHash = $modules{CUL_HM}{defptr}{"000000"};
if (!$actHash->{helper}{actCycle} || if (!$actHash->{helper}{actCycle} ||
$actHash->{helper}{actCycle} != $attr{$actName}{actCycle}){ $actHash->{helper}{actCycle} != $attr{$actName}{actCycle}){
@@ -3029,12 +3086,12 @@ CUL_HM_ActGetCreateHash()
$attr{$actName}{actCycle}<30); $attr{$actName}{actCycle}<30);
$actHash->{helper}{actCycle} = $attr{$actName}{actCycle}; $actHash->{helper}{actCycle} = $attr{$actName}{actCycle};
RemoveInternalTimer("ActionDetector"); RemoveInternalTimer("ActionDetector");
$actHash->{STATE} = "active";
InternalTimer(gettimeofday()+$attr{$actName}{actCycle}, InternalTimer(gettimeofday()+$attr{$actName}{actCycle},
"CUL_HM_ActCheck", "ActionDetector", 0); "CUL_HM_ActCheck", "ActionDetector", 0);
} }
return $actHash; return $actHash;
} }
sub sub
CUL_HM_time2sec($) CUL_HM_time2sec($)
{ {
@@ -3070,7 +3127,6 @@ CUL_HM_ActAdd($$)
Log GetLogLevel($actName,3),"Device ".$devName." added to ActionDetector with " Log GetLogLevel($actName,3),"Device ".$devName." added to ActionDetector with "
.$cycleString." time"; .$cycleString." time";
} }
sub sub
CUL_HM_ActDel($) CUL_HM_ActDel($)
{# delete HMid for activity supervision {# delete HMid for activity supervision
@@ -3134,6 +3190,7 @@ CUL_HM_ActCheck()
Log GetLogLevel($actName,5),"Device ".$devName." is alive"; Log GetLogLevel($actName,5),"Device ".$devName." is alive";
} }
} }
$attr{$actName}{actCycle} = 600 if($attr{$actName}{actCycle}<30); $attr{$actName}{actCycle} = 600 if($attr{$actName}{actCycle}<30);
$actHash->{helper}{actCycle} = $attr{$actName}{actCycle}; $actHash->{helper}{actCycle} = $attr{$actName}{actCycle};
InternalTimer(gettimeofday()+$attr{$actName}{actCycle}, InternalTimer(gettimeofday()+$attr{$actName}{actCycle},

13
docs/commandref.html
View File

@@ -3429,6 +3429,19 @@ A line ending with \ will be concatenated with the next one, so long lines
General commands (available to most hm devices): General commands (available to most hm devices):
<ul> <ul>
<li><B>actiondetect &lt;[hhh:mm]|off&gt;</B><a name="CUL_HMactiondetect"></a><br>
Supports 'alive' or better 'not alive' detection for devices. [hhh:mm] is the maxumin silent time for the device. Upon no message received in this period an event will be raised "&lt;device&gt; is dead". If the device sends again another notification is posted "&lt;device&gt; is alive". <br>
This actiondetect will be autocreated for each device with build in cyclic status report. <br>
Controlling entity is a pseudo device "ActionDetector" with HMId "000000". <br>
Due to performance considerations the report latency is set to 600sec (10min). It can be controlled by the attribute "actCycle" of "ActionDetector".<br>
Once entered to the supervision the HM device has 2 attributes:<br>
<ul>
actStatus: activity status of the device<br>
actCycle: detection period [hhh.mm]<br>
</ul>
Furthermore the overall function can be viewed checking out the "ActionDetector" entity. Here the status of all entities is present in the READING section. <br>
Note: This function can be enabled for devices with non-cyclic messages as well. It is up to the user to enter a reasonable cycletime.
</li>
<li><B>getConfig</B><a name="CUL_HMgetConfig"></a><br> <li><B>getConfig</B><a name="CUL_HMgetConfig"></a><br>
Will read major configuration items stored in the HM device. Executed Will read major configuration items stored in the HM device. Executed
on a channel it will read pair Inforamtion, List0, List1 and List3 of on a channel it will read pair Inforamtion, List0, List1 and List3 of