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

WDC7000 uses 0400 for pairing (Jargosch)

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@1095 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2011-11-11 07:57:37 +00:00
parent 85f71c79c1
commit 5b890c100f
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
fhem/FHEM/10_CUL_HM.pm
View File

@ -182,7 +182,6 @@ CUL_HM_Parse($$)
my ($iohash, $msg) = @_; my ($iohash, $msg) = @_;
my $id = CUL_HM_Id($iohash); my $id = CUL_HM_Id($iohash);
# Msg format: Allnnccttssssssddddddpp... # Msg format: Allnnccttssssssddddddpp...
$msg =~ m/A(..)(..)(....)(......)(......)(.*)/; $msg =~ m/A(..)(..)(....)(......)(......)(.*)/;
my @msgarr = ($1,$2,$3,$4,$5,$6,$7); my @msgarr = ($1,$2,$3,$4,$5,$6,$7);
@ -282,7 +281,9 @@ CUL_HM_Parse($$)
} elsif($lcm eq "09A112") { ### Another fhem wants to talk (HAVE_DATA) } elsif($lcm eq "09A112") { ### Another fhem wants to talk (HAVE_DATA)
; ;
} elsif($lcm eq "1A8400" || $lcm eq "1A8000") { #### Pairing-Request } elsif($lcm eq "1A8400" || #### Pairing-Request
$lcm eq "1A8000" ||
$lcm eq "1A0400") {
if($shash->{cmdStack}) { if($shash->{cmdStack}) {
#CUL_HM_SendCmd($shash, "++A112$id$src", 1, 1); # HAVE_DATA #CUL_HM_SendCmd($shash, "++A112$id$src", 1, 1); # HAVE_DATA
@ -1145,6 +1146,9 @@ CUL_HM_Pair(@)
} elsif($dst ne $id) { } elsif($dst ne $id) {
return "" ; return "" ;
} elsif($cmd eq "0400") { # WDC7000
return "" ;
} elsif($iohash->{hmPairSerial}) { } elsif($iohash->{hmPairSerial}) {
delete($iohash->{hmPairSerial}); delete($iohash->{hmPairSerial});
@ -1357,7 +1361,7 @@ CUL_HM_DumpProtocol($$@)
$cmd = "0A$1" if($cmd =~ m/0B(..)/); $cmd = "0A$1" if($cmd =~ m/0B(..)/);
$cmd = "A4$1" if($cmd =~ m/84(..)/); $cmd = "A4$1" if($cmd =~ m/84(..)/);
$cmd = "8000" if($cmd =~ m/A40./ && $len eq "1A"); $cmd = "8000" if(($cmd =~ m/A40./ || $cmd eq "0400") && $len eq "1A");
$cmd = "A0$1" if($cmd =~ m/A4(..)/); $cmd = "A0$1" if($cmd =~ m/A4(..)/);
my $ps; my $ps;