FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-19 18:56:03 +00:00
Code Issues Releases Wiki Activity

IR hook added

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@822 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2011-02-03 07:25:25 +00:00
parent 4ddcf40a5d
commit 89fadfaa37
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
fhem/FHEM/00_CUL.pm
View File

@ -47,7 +47,9 @@ my %sets = (
my @ampllist = (24, 27, 30, 33, 36, 38, 40, 42); # rAmpl(dB) my @ampllist = (24, 27, 30, 33, 36, 38, 40, 42); # rAmpl(dB)
my $clientsSlowRF = ":FS20:FHT:FHT8V:KS300:USF1000:BS:HMS" . my $clientsSlowRF = ":FS20:FHT:FHT8V:KS300:USF1000:BS:HMS" .
":CUL_EM:CUL_WS:CUL_FHTTK:CUL_RFR:CUL_HOERMANN:ESA2000:"; ":CUL_EM:CUL_WS:CUL_FHTTK:CUL_RFR:CUL_HOERMANN" .
":ESA2000:CUL_IR:";
my $clientsHomeMatic = ":CUL_HM:HMS:"; my $clientsHomeMatic = ":CUL_HM:HMS:";
my %matchListSlowRF = ( my %matchListSlowRF = (
@ -63,10 +65,12 @@ my %matchListSlowRF = (
"A:CUL_RFR" => "^[0-9A-F]{4}U.", "A:CUL_RFR" => "^[0-9A-F]{4}U.",
"B:CUL_HOERMANN"=> "^R..........", "B:CUL_HOERMANN"=> "^R..........",
"C:ESA2000" => "^S................................\$", "C:ESA2000" => "^S................................\$",
"D:CUL_IR" => "^I............",
); );
my %matchListHomeMatic = ( my %matchListHomeMatic = (
"1:CUL_HM" => "^A......................", "1:CUL_HM" => "^A......................",
"8:HMS" => "^810e04....(1|5|9).a001", # CUNO OneWire HMS Emulation "8:HMS" => "^810e04....(1|5|9).a001", # CUNO OneWire HMS Emulation
"D:CUL_IR" => "^I............",
); );
sub sub
@ -879,11 +883,13 @@ CUL_Parse($$$$$)
} }
# Other K... Messages ar sent to CUL_WS # Other K... Messages ar sent to CUL_WS
} elsif($fn eq "S" && $len >= 33) { # CUL_ESA / ESA2000 / Native
;
} elsif($fn eq "E" && $len >= 11) { # CUL_EM / Native } elsif($fn eq "E" && $len >= 11) { # CUL_EM / Native
; ;
} elsif($fn eq "R" && $len >= 11) { # CUL_HOERMANN / Native } elsif($fn eq "R" && $len >= 11) { # CUL_HOERMANN / Native
; ;
} elsif($fn eq "S" && $len >= 33) { # CUL_ESA / ESA2000 / Native } elsif($fn eq "I" && $len >= 12) { # IR-CUL/CUN/CUNO
; ;
} elsif($fn eq "A" && $len >= 21) { # AskSin/BidCos/HomeMatic } elsif($fn eq "A" && $len >= 21) { # AskSin/BidCos/HomeMatic
; ;