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

CUL: Revolt and IT Patches (from martin)

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@3853 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2013-09-04 06:54:57 +00:00
parent 1f0733ad93
commit 766b705110
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
fhem/FHEM/00_CUL.pm
View File

@ -47,7 +47,7 @@ my @ampllist = (24, 27, 30, 33, 36, 38, 40, 42); # rAmpl(dB)
my $clientsSlowRF = ":FS20:FHT.*:KS300:USF1000:BS:HMS: " . my $clientsSlowRF = ":FS20:FHT.*:KS300:USF1000:BS:HMS: " .
":CUL_EM:CUL_WS:CUL_FHTTK:CUL_RFR:CUL_HOERMANN: " . ":CUL_EM:CUL_WS:CUL_FHTTK:CUL_RFR:CUL_HOERMANN: " .
":ESA2000:CUL_IR:CUL_TX:"; ":ESA2000:CUL_IR:CUL_TX:Revolt:IT:";
my $clientsHomeMatic = ":CUL_HM:HMS:CUL_IR:"; # OneWire emulated as HMS on a CUNO my $clientsHomeMatic = ":CUL_HM:HMS:CUL_IR:"; # OneWire emulated as HMS on a CUNO
@ -68,6 +68,8 @@ my %matchListSlowRF = (
"C:ESA2000" => "^S................................\$", "C:ESA2000" => "^S................................\$",
"D:CUL_IR" => "^I............", "D:CUL_IR" => "^I............",
"E:CUL_TX" => "^TX[A-F0-9]{10}", "E:CUL_TX" => "^TX[A-F0-9]{10}",
"F:Revolt" => "^r......................\$",
"G:IT" => "^i......\$",
); );
my %matchListHomeMatic = ( my %matchListHomeMatic = (
"1:CUL_HM" => "^A....................", "1:CUL_HM" => "^A....................",
@ -853,7 +855,7 @@ CUL_Parse($$$$$)
my $rssi; my $rssi;
my $dmsg = $rmsg; my $dmsg = $rmsg;
if($dmsg =~ m/^[AFTKEHRStZ]([A-F0-9][A-F0-9])+$/) { # RSSI if($dmsg =~ m/^[AFTKEHRStZri]([A-F0-9][A-F0-9])+$/) { # RSSI
my $l = length($dmsg); my $l = length($dmsg);
$rssi = hex(substr($dmsg, $l-2, 2)); $rssi = hex(substr($dmsg, $l-2, 2));
$dmsg = substr($dmsg, 0, $l-2); $dmsg = substr($dmsg, 0, $l-2);
@ -919,7 +921,10 @@ CUL_Parse($$$$$)
$dmsg = lc($dmsg); $dmsg = lc($dmsg);
} }
# Other K... Messages ar sent to CUL_WS # Other K... Messages ar sent to CUL_WS
} elsif($fn eq "r" && $len >= 23) { # Revolt
$dmsg = lc($dmsg);
} elsif($fn eq "i" && $len >= 7) { # IT
$dmsg = lc($dmsg);
} elsif($fn eq "S" && $len >= 33) { # CUL_ESA / ESA2000 / Native } 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