Public/fhem-mirror
1
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-04 22:19:38 +00:00
Code Issues Packages Projects Releases Wiki Activity

HMLAN fixes, motionSensor fixes by peterp

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@966 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2011-07-30 23:52:15 +00:00
parent 876421a975
commit 5b57415a57
2 changed files with 33 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
FHEM/00_HMLAN.pm
View File

@ -43,7 +43,7 @@ HMLAN_Initialize($)
$hash->{UndefFn} = "HMLAN_Undef"; $hash->{UndefFn} = "HMLAN_Undef";
$hash->{AttrList}= "do_not_notify:1,0 dummy:1,0 " . $hash->{AttrList}= "do_not_notify:1,0 dummy:1,0 " .
"loglevel:0,1,2,3,4,5,6 addvaltrigger " . "loglevel:0,1,2,3,4,5,6 addvaltrigger " .
"hmId hmProtocolEvents"; "hmId hmProtocolEvents hmKey";
} }
##################################### #####################################
@ -63,7 +63,7 @@ HMLAN_Define($$)
my $name = $a[0]; my $name = $a[0];
my $dev = $a[2]; my $dev = $a[2];
$dev .= ":1000" if($dev !~ m/:/); $dev .= ":1000" if($dev !~ m/:/);
$attr{$name}{hmId} = sprintf("%06X", time() % 0xffffff); $attr{$name}{hmId} = sprintf("%06X", time() % 0xffffff); # Will be overwritten
if($dev eq "none") { if($dev eq "none") {
Log 1, "$name device is none, commands will be echoed only"; Log 1, "$name device is none, commands will be echoed only";
@ -199,10 +199,15 @@ HMLAN_Write($$$)
my ($hash,$fn,$msg) = @_; my ($hash,$fn,$msg) = @_;
my $dst = substr($msg, 16, 6); my $dst = substr($msg, 16, 6);
if(!$lhash{$dst} && $dst ne "000000") { if(!$lhash{$dst} && $dst ne "000000") { # Don't think I grok the logic
HMLAN_SimpleWrite($hash, "+$dst,00,00,\r\n+$dst,00,00,\r\n+$dst"); HMLAN_SimpleWrite($hash, "+$dst,00,00,");
HMLAN_SimpleWrite($hash, "+$dst,00,00,");
HMLAN_SimpleWrite($hash, "+$dst,00,00,");
HMLAN_SimpleWrite($hash, "-$dst"); HMLAN_SimpleWrite($hash, "-$dst");
HMLAN_SimpleWrite($hash, "+$dst,00,00,\r\n+$dst,00,00,\r\n+$dst"); 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; $lhash{$dst} = 1;
} }
my $tm = int(gettimeofday()*1000) % 0xffffffff; my $tm = int(gettimeofday()*1000) % 0xffffffff;
@ -273,7 +278,7 @@ HMLAN_Parse($$)
($1, $2, $3, $4, $5, $6); ($1, $2, $3, $4, $5, $6);
$dmsg = sprintf("A%02X%s", length($msg)/2, uc($msg)); $dmsg = sprintf("A%02X%s", length($msg)/2, uc($msg));
$dmsg .= "NACK" if($status !~ m/...1/); $dmsg .= "NACK" if($status !~ m/00(01|02|21)/);
$hash->{uptime} = HMLAN_uptime($msec); $hash->{uptime} = HMLAN_uptime($msec);
} elsif($rmsg =~ } elsif($rmsg =~
@ -284,15 +289,14 @@ HMLAN_Parse($$)
$hash->{firmware} = sprintf("%d.%d", ($vers>>12)&0xf, $vers & 0xffff); $hash->{firmware} = sprintf("%d.%d", ($vers>>12)&0xf, $vers & 0xffff);
$hash->{owner} = $owner; $hash->{owner} = $owner;
$hash->{uptime} = HMLAN_uptime($msec); $hash->{uptime} = HMLAN_uptime($msec);
my $myId = AttrVal($name, "hmId", $owner); return;
if($owner ne $myId && !AttrVal($name, "dummy", 0)) {
Log 1, "HMLAN setting owner to $myId from $owner"; } elsif($rmsg =~ m/^I00.*/) {
HMLAN_SimpleWrite($hash, "A$myId"); # Ack from the HMLAN
}
return; return;
} else { } else {
Log $ll5, "$name Unknown msg $rmsg"; Log $ll5, "$name Unknown msg >$rmsg<";
return; return;
} }
@ -419,6 +423,18 @@ HMLAN_OpenDev($$)
Log 3, "HMLAN device opened"; Log 3, "HMLAN device opened";
} }
my $id = AttrVal($name, "hmId", undef);
my $key = AttrVal($name, "hmKey", ""); # 36(!) hex digits
my $s2000 = sprintf("%02X", time()-946681200); # sec since 2000
HMLAN_SimpleWrite($hash, "A$id") if($id);
HMLAN_SimpleWrite($hash, "C");
HMLAN_SimpleWrite($hash, "Y01,01,$key");
HMLAN_SimpleWrite($hash, "Y02,00,");
HMLAN_SimpleWrite($hash, "Y03,00,");
HMLAN_SimpleWrite($hash, "Y03,00,");
HMLAN_SimpleWrite($hash, "T$s2000,04,00,00000000");
$hash->{STATE}="Initialized"; $hash->{STATE}="Initialized";
DoTrigger($name, "CONNECTED") if($reopen); DoTrigger($name, "CONNECTED") if($reopen);

9
FHEM/10_CUL_HM.pm
View File

@ -244,7 +244,7 @@ CUL_HM_Parse($$)
my $tn = TimeNow(); my $tn = TimeNow();
if($cmd eq "8002") { # Ack if($cmd eq "8002") { # Ack
if($shash->{cmdStack}) { # Send next msg from the stack if($shash->{cmdStack}) { # Send next msg from the stack
CUL_HM_SendCmd($shash, shift @{$shash->{cmdStack}}, 1, 1); CUL_HM_SendCmd($shash, shift @{$shash->{cmdStack}}, 1, 1);
delete($shash->{cmdStack}) if(!@{$shash->{cmdStack}}); delete($shash->{cmdStack}) if(!@{$shash->{cmdStack}});
$shash->{lastStackAck} = 1; $shash->{lastStackAck} = 1;
@ -310,12 +310,12 @@ CUL_HM_Parse($$)
# Code with help of Bassem # Code with help of Bassem
my $state; my $state;
if($cmd =~ m/^.410/ && $p =~ m/^0601(..)(..)/) { if($cmd =~ m/^..10/ && $p =~ m/^0601(..)(..)/) {
($state, undef) = ($1, $2); ($state, undef) = ($1, $2);
push @event, "brightness:".hex($state); push @event, "brightness:".hex($state);
push @event, "state:alive"; push @event, "state:alive";
} }
if($cmd =~ m/^.441/ && $p =~ m/^01(......)/) { if($cmd =~ m/^..41/ && $p =~ m/^01(......)/) {
$state = $1; $state = $1;
push @event, "state:motion"; push @event, "state:motion";
push @event, "motion:"; #added peterp push @event, "motion:"; #added peterp
@ -934,7 +934,8 @@ CUL_HM_SendCmd($$$$)
$cmd = sprintf("As%02X%02X%s", length($cmd2)/2+1, $mn, $cmd2); $cmd = sprintf("As%02X%02X%s", length($cmd2)/2+1, $mn, $cmd2);
IOWrite($hash, "", $cmd); IOWrite($hash, "", $cmd);
if($waitforack) { if($waitforack) {
if($hash->{IODev} && $hash->{IODev}{TYPE} ne "HMLAN") { #if($hash->{IODev} && $hash->{IODev}{TYPE} ne "HMLAN") {
if($hash->{IODev}) {
$hash->{ackWaiting} = $cmd; $hash->{ackWaiting} = $cmd;
$hash->{ackCmdSent} = 1; $hash->{ackCmdSent} = 1;
InternalTimer(gettimeofday()+0.4, "CUL_HM_Resend", $hash, 0) InternalTimer(gettimeofday()+0.4, "CUL_HM_Resend", $hash, 0)