FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-01-31 18:59:33 +00:00
Code Issues Releases Wiki Activity

CUL_TX: deleting CRC patch (Forum #26831)

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@6528 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2014-09-10 06:31:10 +00:00
parent 121c407509
commit 415bb68519
1 changed files with 5 additions and 35 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
fhem/FHEM/14_CUL_TX.pm
View File

@ -62,43 +62,13 @@ CUL_TX_Parse($$)
{
my ($hash, $msg) = @_;
$msg = substr($msg, 1);
# Msg format: TXTHHXYZXYC, see http://www.f6fbb.org/domo/sensors/tx3_th.php
# Msg format: TXTHHXYZXY, see http://www.f6fbb.org/domo/sensors/tx3_th.php
my @a = split("", $msg);
my $id2 = hex($a[4]) & 1; #meaning unknown
my $id3 = (hex($a[3])<<3) + (hex($a[4])>>1);
if(scalar(@a) < 11) {
Log3 $hash, 4, "CUL_TX $id3 ($msg) not enough data";
return "";
}
if($a[5] ne $a[8] || $a[6] ne $a[9]) {
Log3 $hash, 4, "CUL_TX $id3 ($msg) data error 1";
return "";
}
# checksum calculation
# calculate sum of all nibbles
my $sum = 0;
for( my $i=0; $i <= scalar(@a)-2; $i++) {
$sum += hex($a[$i]);
}
# discard everything but last nibble of sum
$sum &= 0xF;
if($sum != hex($a[10])) {
Log3 $hash, 4, "CUL_TX $id3 ($msg) data error 2";
return "";
}
# parity bit calculation
my $hexstring = "0x".join("", @a[3..9]);
my @bits = split("", sprintf("%b", hex($hexstring)));
$sum = 0;
foreach my $bit (@bits) {
$sum += int($bit);
}
# parity bit ($a[4] & 1) is set so that parity is even
if($sum % 2 != 0) {
Log3 $hash, 4, "CUL_TX $id3 ($msg) data error 3";
Log3 $hash, 4, "CUL_TX $id3 ($msg) data error";
return "";
}
@ -123,7 +93,7 @@ CUL_TX_Parse($$)
$def->{lastT} = $now;
$msgtype = "temperature";
$val = sprintf("%2.1f", ($valraw - 50 + $def->{corr}) );
Log3 $name, 4, "CUL_TX $msgtype $name $id3 T: $val";
Log3 $name, 4, "CUL_TX $msgtype $name $id3 T: $val F: $id2";
} elsif ($type eq "E") {
if($now - $def->{lastH} < $def->{minsecs} ) {
@ -132,7 +102,7 @@ CUL_TX_Parse($$)
$def->{lastH} = $now;
$msgtype = "humidity";
$val = $valraw;
Log3 $name, 4, "CUL_TX $msgtype $name $id3 H: $val";
Log3 $name, 4, "CUL_TX $msgtype $name $id3 H: $val F: $id2";
} else {
Log3 $name, 2, "CUL_TX $type $name $id3 ($msg) unknown type";