Public/fhem-mirror
1
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-04 22:19:38 +00:00
Code Issues Packages Projects Releases Wiki Activity

CUL_TX: deleting CRC patch (Forum #26831)

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@6528 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2014-09-10 06:31:10 +00:00
parent df1f8ee926
commit 18a04a706a
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/14_CUL_TX.pm
View File

@ -62,43 +62,13 @@ CUL_TX_Parse($$)
{ {
my ($hash, $msg) = @_; my ($hash, $msg) = @_;
$msg = substr($msg, 1); $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 @a = split("", $msg);
my $id2 = hex($a[4]) & 1; #meaning unknown
my $id3 = (hex($a[3])<<3) + (hex($a[4])>>1); 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]) { if($a[5] ne $a[8] || $a[6] ne $a[9]) {
Log3 $hash, 4, "CUL_TX $id3 ($msg) data error 1"; Log3 $hash, 4, "CUL_TX $id3 ($msg) data error";
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";
return ""; return "";
} }
@ -123,7 +93,7 @@ CUL_TX_Parse($$)
$def->{lastT} = $now; $def->{lastT} = $now;
$msgtype = "temperature"; $msgtype = "temperature";
$val = sprintf("%2.1f", ($valraw - 50 + $def->{corr}) ); $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") { } elsif ($type eq "E") {
if($now - $def->{lastH} < $def->{minsecs} ) { if($now - $def->{lastH} < $def->{minsecs} ) {
@ -132,7 +102,7 @@ CUL_TX_Parse($$)
$def->{lastH} = $now; $def->{lastH} = $now;
$msgtype = "humidity"; $msgtype = "humidity";
$val = $valraw; $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 { } else {
Log3 $name, 2, "CUL_TX $type $name $id3 ($msg) unknown type"; Log3 $name, 2, "CUL_TX $type $name $id3 ($msg) unknown type";