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

00_CUL.pm: Add switch for CUL_TCM97001

Browse Source 
git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@7472 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig
2015-01-07 20:52:03 +00:00
parent 1de7b24a3e
commit a538a4e17e
1 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
fhem/FHEM/00_CUL.pm
View File

@@ -46,8 +46,8 @@ 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_HOERMANN: ". ":CUL_EM:CUL_WS:CUL_FHTTK:CUL_HOERMANN: ".
":ESA2000:CUL_IR:CUL_TX:Revolt:IT:UNIRoll:SOMFY ". ":ESA2000:CUL_IR:CUL_TX:Revolt:IT:UNIRoll:SOMFY: ".
":STACKABLE_CC:CUL_RFR:"; ":STACKABLE_CC:CUL_RFR::CUL_TCM97001:";
my $clientsHomeMatic = ":CUL_HM:HMS:CUL_IR:STACKABLE_CC:"; my $clientsHomeMatic = ":CUL_HM:HMS:CUL_IR:STACKABLE_CC:";
my $clientsMAX = ":CUL_MAX:HMS:CUL_IR:STACKABLE_CC:"; my $clientsMAX = ":CUL_MAX:HMS:CUL_IR:STACKABLE_CC:";
my $clientsWMBus = ":WMBUS:HMS:CUL_IR:STACKABLE_CC:"; my $clientsWMBus = ":WMBUS:HMS:CUL_IR:STACKABLE_CC:";
@@ -72,6 +72,7 @@ my %matchListSlowRF = (
"H:STACKABLE_CC"=>"^\\*", "H:STACKABLE_CC"=>"^\\*",
"I:UNIRoll" => "^[0-9A-F]{5}(B|D|E)", "I:UNIRoll" => "^[0-9A-F]{5}(B|D|E)",
"J:SOMFY" => "^Y[r|t|s]:?[A-F0-9]+", "J:SOMFY" => "^Y[r|t|s]:?[A-F0-9]+",
"K:CUL_TCM97001" => "^s[A-F0-9]+",
); );
my %matchListHomeMatic = ( my %matchListHomeMatic = (
"1:CUL_HM" => "^A....................", "1:CUL_HM" => "^A....................",
@@ -895,6 +896,8 @@ CUL_Parse($$$$@)
$dmsg .= "::$rssi" if (defined($rssi)); $dmsg .= "::$rssi" if (defined($rssi));
} elsif($fn eq "t" && $len >= 5) { # TX3 } elsif($fn eq "t" && $len >= 5) { # TX3
$dmsg = "TX".substr($dmsg,1); # t.* is occupied by FHTTK $dmsg = "TX".substr($dmsg,1); # t.* is occupied by FHTTK
} elsif($fn eq "s" && $len >= 5) { # CUL_TCM97001
;
} else { } else {
DoTrigger($name, "UNKNOWNCODE $dmsg"); DoTrigger($name, "UNKNOWNCODE $dmsg");
Log3 $name, 2, "$name: unknown message $dmsg"; Log3 $name, 2, "$name: unknown message $dmsg";