From b3e753b2d316e446756565271e9f5236124a1828 Mon Sep 17 00:00:00 2001 From: sidey79 Date: Mon, 17 Jan 2022 20:50:12 +0000 Subject: [PATCH] 14_SD_WS.pm: new protocols 27,106,110,111,113,108,115,107,116 bugfixes prorocols 64,33 git-svn-id: https://svn.fhem.de/fhem/trunk@25484 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/CHANGED | 17 +- fhem/FHEM/14_SD_WS.pm | 3084 ++++++++++++++++++++++++----------------- 2 files changed, 1840 insertions(+), 1261 deletions(-) diff --git a/fhem/CHANGED b/fhem/CHANGED index d23561f72..def553c81 100644 --- a/fhem/CHANGED +++ b/fhem/CHANGED @@ -1,6 +1,21 @@ # Add changes at the top of the list. Keep it in ASCII, and 80-char wide. # Do not insert empty lines here, update check depends on it. -- change: 90_SIGNALduino_un.pm + - feature: 14_SD_WS.pm: + protocol 27 for sensor EFS-3110A (#890) + protocol 106 for GT-TMBBQ-0 + protocol 110 for ADE WS1907 Weather station (#970) + protocol 111 for TS-FT002 water tank level (#1000) + protocol 113 for GFGT 433 B1 Wireless Grill sensor (#1003) + protocol 108 for BRESSER 5-in-1 Weather Center + and BRESSER Professional Rain Gauge (#973) + protocol 115 for Bresser 6-in-1 and + 5-in-1 Comfort Wetter Center (#1010) + new protocol 107 for Fine Offset WH51 (#1055) + new protocol 116 for Fine Offset WH57 (#1061) + - bugfix: 14_SD_WS.pm: + Update protocol 64 for sensor WH2A (#1009) + Conrad S522 protocol 33 no reading batteryState (#1042) + - change: 90_SIGNALduino_un.pm fix some PerlCritic hints (#914) revised commandref - feature: 00_SIGNALduino.pm version 3.5.2 diff --git a/fhem/FHEM/14_SD_WS.pm b/fhem/FHEM/14_SD_WS.pm index cca7e8a72..873571a3d 100644 --- a/fhem/FHEM/14_SD_WS.pm +++ b/fhem/FHEM/14_SD_WS.pm @@ -1,11 +1,12 @@ -############################################## # $Id$ # # The purpose of this module is to support serval # weather sensors which use various protocol -# Sidey79 & Ralf9 2016 - 2017 -# Joerg 2017 -# elektron-bbs 2018 - +# +# Sidey79 & Ralf9 2016 - 2017 +# Joerg 2017 +# elektron-bbs 2018 - +# # 17.04.2017 WH2 (TFA 30.3157 nur Temp, Hum = 255),es wird das Perlmodul Digest:CRC benoetigt fuer CRC-Pruefung benoetigt # 29.05.2017 Test ob Digest::CRC installiert # 22.07.2017 WH2 angepasst @@ -27,6 +28,18 @@ # 09.02.2020 neues Protokoll 54: Regenmesser TFA Drop # 22.02.2020 Protokoll 58: neuer Sensor TFA 30.3228.02, FT007T Thermometer Sensor # 25.08.2020 Protokoll 27: neuer Sensor EFS-3110A +# 27.09.2020 neues Protokoll 106: BBQ Temperature Sensor GT-TMBBQ-01s (Sender), GT-TMBBQ-01e (Empfaenger) +# 01.05.2021 neues Protokoll 108: Bresser 5-in-1 Comfort Wetter Center, Profi Regenmesser +# 15.05.2021 neues Protokoll 110: ADE WS1907 Weather station with rain gauge +# 03.06.2021 PerlCritic - HardTabs durch Leerzeichen ersetzt & Einrueckungen sortiert (keine Code/Syntaxaenderung vorgenommen) +# 06.06.2021 neues Protokoll 111: TS-FT002 Water tank level monitor with temperature +# 16.07.2021 neues Protokoll 113: Wireless Grill Thermometer, Model name: GFGT 433 B1 +# 31.07.2021 neues Protokoll 115: Bresser 6-in-1 Comfort Wetter Center +# 30.08.2021 PerlCritic - fixes for severity level 5 and 4 +# 07.12.2021 Protokoll 33: Conrad S522 kein Batteriebit, dafuer Trend Temperatur +# 05.01.2022 Protokoll 108: neuer Sensor Fody E42 +# 08.01.2022 neues Protokoll 107: Soil Moisture Sensor Fine Offset WH51, ECOWITT WH51, MISOL/1, Froggit DP100 +# 14.01.2022 neues Protokoll 116: Thunder and lightning sensor Fine Offset WH57, aka Froggit DP60, aka Ambient Weather WH31L package main; @@ -34,1177 +47,1683 @@ package main; use strict; use warnings; -# use Digest::CRC qw(crc); -# use Data::Dumper; +use Carp qw(carp); # Forward declarations -sub SD_WS_LFSR_digest8_reflect($$$$); -sub SD_WS_bin2dec($); +sub SD_WS_LFSR_digest8_reflect; +sub SD_WS_bin2dec; sub SD_WS_binaryToNumber; -sub SD_WS_WH2CRCCHECK($); -sub SD_WS_WH2SHIFT($); -sub SD_WS_Initialize($) -{ - my ($hash) = @_; +sub SD_WS_WH2CRCCHECK; +sub SD_WS_WH2SHIFT; - $hash->{Match} = '^W\d+x{0,1}#.*'; - $hash->{DefFn} = "SD_WS_Define"; - $hash->{UndefFn} = "SD_WS_Undef"; - $hash->{ParseFn} = "SD_WS_Parse"; - $hash->{AttrList} = "do_not_notify:1,0 ignore:0,1 showtime:1,0 " . - "model:E0001PA,S522,TX-EZ6,other " . +sub SD_WS_Initialize { + my $hash = shift // return; + $hash->{Match} = '^W\d+x{0,1}#.*'; + $hash->{DefFn} = "SD_WS_Define"; + $hash->{UndefFn} = "SD_WS_Undef"; + $hash->{ParseFn} = "SD_WS_Parse"; + $hash->{AttrList} = "do_not_notify:1,0 ignore:0,1 showtime:1,0 " . + "model:E0001PA,S522,TX-EZ6,other " . "max-deviation-temp:1,2,3,4,5,6,7,8,9,10,15,20,25,30,35,40,45,50 ". "max-deviation-hum:1,2,3,4,5,6,7,8,9,10,15,20,25,30,35,40,45,50 ". - "$readingFnAttributes "; - $hash->{AutoCreate} = - { - "SD_WS37_TH.*" => { ATTR => "event-min-interval:.*:300 event-on-change-reading:.*", FILTER => "%NAME", GPLOT => "temp4hum4:Temp/Hum,", autocreateThreshold => "2:180"}, - "SD_WS50_SM.*" => { ATTR => "event-min-interval:.*:300 event-on-change-reading:.*", FILTER => "%NAME", GPLOT => "temp4hum4:Temp/Hum,", autocreateThreshold => "2:180"}, - "BresserTemeo.*" => { ATTR => "event-min-interval:.*:300 event-on-change-reading:.*", FILTER => "%NAME", GPLOT => "temp4hum4:Temp/Hum,", autocreateThreshold => "2:180"}, - "SD_WH2.*" => { ATTR => "event-min-interval:.*:300 event-on-change-reading:.*", FILTER => "%NAME", GPLOT => "temp4hum4:Temp/Hum,", autocreateThreshold => "2:90"}, - "SD_WS71_T.*" => { ATTR => "event-min-interval:.*:300 event-on-change-reading:.*", FILTER => "%NAME", GPLOT => "temp4:Temp,", autocreateThreshold => "2:180"}, - "SD_WS_27_TH_.*" => { ATTR => "event-min-interval:.*:300 event-on-change-reading:.*", FILTER => "%NAME", GPLOT => "temp4hum4:Temp/Hum,", autocreateThreshold => "3:180"}, - "SD_WS_33_T_.*" => { ATTR => "event-min-interval:.*:300 event-on-change-reading:.* model:other", FILTER => "%NAME", GPLOT => "temp4:Temp,", autocreateThreshold => "2:180"}, - "SD_WS_33_TH_.*" => { ATTR => "event-min-interval:.*:300 event-on-change-reading:.* model:other", FILTER => "%NAME", GPLOT => "temp4hum4:Temp/Hum,", autocreateThreshold => "2:180"}, - "SD_WS_38_T_.*" => { ATTR => "event-min-interval:.*:300 event-on-change-reading:.*", FILTER => "%NAME", GPLOT => "temp4:Temp,", autocreateThreshold => "3:180"}, - "SD_WS_51_TH.*" => { ATTR => "event-min-interval:.*:300 event-on-change-reading:.*", FILTER => "%NAME", GPLOT => "temp4hum4:Temp/Hum,", autocreateThreshold => "3:180"}, - "SD_WS_53_TH.*" => { ATTR => "event-min-interval:.*:300 event-on-change-reading:.*", FILTER => "%NAME", GPLOT => "temp4hum4:Temp/Hum,", autocreateThreshold => "3:180"}, - "SD_WS_54_R.*" => { ATTR => "event-min-interval:.*:300 event-on-change-reading:.*", FILTER => "%NAME", GPLOT => "rain4:Rain,", autocreateThreshold => "3:180"}, - "SD_WS_58_T_.*" => { ATTR => "event-min-interval:.*:300 event-on-change-reading:.*", FILTER => "%NAME", GPLOT => "temp4:Temp,", autocreateThreshold => "2:90"}, - "SD_WS_58_TH.*" => { ATTR => "event-min-interval:.*:300 event-on-change-reading:.*", FILTER => "%NAME", GPLOT => "temp4hum4:Temp/Hum,", autocreateThreshold => "2:90"}, - "SD_WS_84_TH_.*" => { ATTR => "event-min-interval:.*:300 event-on-change-reading:.*", FILTER => "%NAME", GPLOT => "temp4hum4:Temp/Hum,", autocreateThreshold => "2:120"}, - "SD_WS_85_THW_.*" => { ATTR => "event-min-interval:.*:300 event-on-change-reading:.*", FILTER => "%NAME", GPLOT => "temp4hum4:Temp/Hum,", autocreateThreshold => "4:120"}, - "SD_WS_89_TH.*" => { ATTR => "event-min-interval:.*:300 event-on-change-reading:.*", FILTER => "%NAME", GPLOT => "temp4hum4:Temp/Hum,", autocreateThreshold => "3:180"}, - "SD_WS_94_T.*" => { ATTR => "event-min-interval:.*:300 event-on-change-reading:.*", FILTER => "%NAME", GPLOT => "temp4:Temp,", autocreateThreshold => "3:180"}, - }; + "$readingFnAttributes "; + $hash->{AutoCreate} = + { + "BresserTemeo.*" => { ATTR => "event-min-interval:.*:300 event-on-change-reading:.*", FILTER => "%NAME", GPLOT => "temp4hum4:Temp/Hum,", autocreateThreshold => "2:180"}, + "SD_WS_WH2.*" => { ATTR => "event-min-interval:.*:300 event-on-change-reading:.*", FILTER => "%NAME", GPLOT => "temp4hum4:Temp/Hum,", autocreateThreshold => "2:120"}, + "SD_WS37_TH.*" => { ATTR => "event-min-interval:.*:300 event-on-change-reading:.*", FILTER => "%NAME", GPLOT => "temp4hum4:Temp/Hum,", autocreateThreshold => "2:180"}, + "SD_WS50_SM.*" => { ATTR => "event-min-interval:.*:300 event-on-change-reading:.*", FILTER => "%NAME", GPLOT => "temp4hum4:Temp/Hum,", autocreateThreshold => "2:180"}, + "SD_WS71_T.*" => { ATTR => "event-min-interval:.*:300 event-on-change-reading:.*", FILTER => "%NAME", GPLOT => "temp4:Temp,", autocreateThreshold => "2:180"}, + "SD_WS_106_T.*" => { ATTR => "event-min-interval:.*:300 event-on-change-reading:.*", FILTER => "%NAME", GPLOT => "temp4:Temp,", autocreateThreshold => "5:60"}, + "SD_WS_27_TH_.*" => { ATTR => "event-min-interval:.*:300 event-on-change-reading:.*", FILTER => "%NAME", GPLOT => "temp4hum4:Temp/Hum,", autocreateThreshold => "3:180"}, + "SD_WS_33_TH_.*" => { ATTR => "event-min-interval:.*:300 event-on-change-reading:.* model:other", FILTER => "%NAME", GPLOT => "temp4hum4:Temp/Hum,", autocreateThreshold => "2:180"}, + "SD_WS_33_T_.*" => { ATTR => "event-min-interval:.*:300 event-on-change-reading:.* model:other", FILTER => "%NAME", GPLOT => "temp4:Temp,", autocreateThreshold => "2:180"}, + "SD_WS_38_T_.*" => { ATTR => "event-min-interval:.*:300 event-on-change-reading:.*", FILTER => "%NAME", GPLOT => "temp4:Temp,", autocreateThreshold => "3:180"}, + "SD_WS_51_TH.*" => { ATTR => "event-min-interval:.*:300 event-on-change-reading:.*", FILTER => "%NAME", GPLOT => "temp4hum4:Temp/Hum,", autocreateThreshold => "3:180"}, + "SD_WS_53_TH.*" => { ATTR => "event-min-interval:.*:300 event-on-change-reading:.*", FILTER => "%NAME", GPLOT => "temp4hum4:Temp/Hum,", autocreateThreshold => "3:180"}, + "SD_WS_54_R.*" => { ATTR => "event-min-interval:.*:300 event-on-change-reading:.*", FILTER => "%NAME", GPLOT => "rain4:Rain,", autocreateThreshold => "3:180"}, + "SD_WS_58_TH.*" => { ATTR => "event-min-interval:.*:300 event-on-change-reading:.*", FILTER => "%NAME", GPLOT => "temp4hum4:Temp/Hum,", autocreateThreshold => "2:90"}, + "SD_WS_58_T_.*" => { ATTR => "event-min-interval:.*:300 event-on-change-reading:.*", FILTER => "%NAME", GPLOT => "temp4:Temp,", autocreateThreshold => "2:90"}, + "SD_WS_84_TH_.*" => { ATTR => "event-min-interval:.*:300 event-on-change-reading:.*", FILTER => "%NAME", GPLOT => "temp4hum4:Temp/Hum,", autocreateThreshold => "2:120"}, + "SD_WS_85_THW_.*" => { ATTR => "event-min-interval:.*:300 event-on-change-reading:.*", FILTER => "%NAME", GPLOT => "temp4hum4:Temp/Hum,", autocreateThreshold => "4:120"}, + "SD_WS_89_TH.*" => { ATTR => "event-min-interval:.*:300 event-on-change-reading:.*", FILTER => "%NAME", GPLOT => "temp4hum4:Temp/Hum,", autocreateThreshold => "3:180"}, + "SD_WS_94_T.*" => { ATTR => "event-min-interval:.*:300 event-on-change-reading:.*", FILTER => "%NAME", GPLOT => "temp4:Temp,", autocreateThreshold => "3:180"}, + 'SD_WS_107_H.*' => { ATTR => 'event-min-interval:.*:300 event-on-change-reading:.*', FILTER => '%NAME', GPLOT => q{}, autocreateThreshold => '2:180'}, + 'SD_WS_108.*' => { ATTR => 'event-min-interval:.*:300 event-on-change-reading:.*', FILTER => '%NAME', GPLOT => 'temp4:Temp,', autocreateThreshold => '5:120'}, + 'SD_WS_110_TR.*' => { ATTR => 'event-min-interval:.*:300 event-on-change-reading:.*', FILTER => '%NAME', GPLOT => 'temp4:Temp,', autocreateThreshold => '3:180'}, + 'SD_WS_111_TL.*' => { ATTR => 'event-min-interval:.*:300 event-on-change-reading:.*', FILTER => '%NAME', GPLOT => 'temp4:Temp,', autocreateThreshold => '3:600'}, + 'SD_WS_113_T.*' => { ATTR => 'event-min-interval:.*:60 event-on-change-reading:.*', FILTER => '%NAME', GPLOT => 'temp4:Temp,', autocreateThreshold => '10:180'}, + 'SD_WS_115.*' => { ATTR => 'event-min-interval:.*:300 event-on-change-reading:.*', FILTER => '%NAME', GPLOT => 'temp4hum4:Temp/Hum,', autocreateThreshold => '5:120'}, + 'SD_WS_116.*' => { ATTR => 'event-min-interval:.*:300 event-on-change-reading:.*', FILTER => '%NAME', GPLOT => q{}, autocreateThreshold => '2:180'}, + }; + return; +} + +############################# +sub SD_WS_Define { + my ($hash, $def) = @_; + carp "SD_WS_Define, too few arguments ($hash, $def)" if @_ < 2; + my @a = split("[ \t][ \t]*", $def); + + return "wrong syntax: define SD_WS ".int(@a) if(int(@a) < 3 ); + + $hash->{CODE} = $a[2]; + $hash->{lastMSG} = ""; + $hash->{bitMSG} = ""; + + $modules{SD_WS}{defptr}{$a[2]} = $hash; + $hash->{STATE} = "Defined"; + + my $name= $hash->{NAME}; + return; +} + +############################# +sub SD_WS_Undef { + my ($hash, $name) = @_; + carp "SD_WS_Undef, too few arguments ($hash, $name)" if @_ < 2; + delete($modules{SD_WS}{defptr}{$hash->{CODE}}) if(defined($hash->{CODE}) && defined($modules{SD_WS}{defptr}{$hash->{CODE}})); + return; +} + +############################# +sub SD_WS_Parse { + my ($iohash, $msg) = @_; + carp "SD_WS_Parse, too few arguments ($iohash, $msg)" if @_ < 2; + my $name = $iohash->{NAME}; + my $ioname = $iohash->{NAME}; + my ($protocol,$rawData) = split("#",$msg); + $protocol=~ s/^[WP](\d+)/$1/; # extract protocol + my $dummyreturnvalue= "Unknown, please report"; + my $hlen = length($rawData); + my $blen = $hlen * 4; + my $bitData = unpack("B$blen", pack("H$hlen", $rawData)); + my $bitData2; + my $model; # wenn im elsif Abschnitt definiert, dann wird der Sensor per AutoCreate angelegt + my $SensorTyp; + my $id; + my $bat; + my $batChange; + my $batVoltage; + my $batteryPercent; + my $sendmode; + my $channel; + my $rawTemp; + my $temp; + my $temp2; + my $hum; + my $windspeed; + my $winddir; + my $winddirtxt; + my @winddirtxtar=('N','NNE','NE','ENE','E','ESE','SE','SSE','S','SSW','SW','WSW','W','WNW','NW','NNW'); + my $windgust; + my $trend; + my $trendTemp; + my $trendHum; + my $rain; + my $rain_total; + my $rawRainCounter; + my $sendCounter; + my $beep; + my $distance; + my $uv; + my $adc; + my $count; + my $identified; + + my %decodingSubs = ( + 50 => # Protocol 50 + # FF550545FF9E + # FF550541FF9A + # AABCDDEEFFGG + # A = Preamble, always FF + # B = TX type, always 5 + # C = Address (5/6/7) > low 2 bits = 1/2/3 + # D = Soil moisture 05% + # E = temperature + # F = security code, always F + # G = Checksum 55+05+45+FF=19E CRC value = 9E + { # subs to decode this + sensortype => 'XT300', + model => 'SD_WS_50_SM', + prematch => sub {my $msg = shift; return 1 if ($msg =~ /^FF5[0-9A-F]{5}FF[0-9A-F]{2}/); }, # prematch + crcok => sub {my $msg = shift; return 1 if ((hex(substr($msg,2,2))+hex(substr($msg,4,2))+hex(substr($msg,6,2))+hex(substr($msg,8,2))&0xFF) == (hex(substr($msg,10,2))) ); }, # crc + id => sub {my $msg = shift; return (hex(substr($msg,2,2)) &0x03 ); }, # id + temp => sub {my $msg = shift; return ((hex(substr($msg,6,2)))-40) }, # temp + hum => sub {my $msg = shift; return hex(substr($msg,4,2)); }, # hum + channel => sub {my (undef,$bitData) = @_; return ( SD_WS_binaryToNumber($bitData,12,15)&0x03 ); }, # channel + }, + 71 => + # 5C2A909F792F + # 589A829FDFF4 + # PiiTTTK?CCCC + # P = Preamble (immer 5 ?) + # i = ID + # T = Temperatur + # K = Kanal (B/A/9) + # ? = immer F ? + # C = Checksum ? + { + sensortype => 'PV-8644', + model => 'SD_WS71_T', + prematch => sub {my $msg = shift; return 1 if ($msg =~ /^5[A-F0-9]{6}F[A-F0-9]{2}/); }, # prematch + crcok => sub {return 1; }, # crc is unknown + id => sub {my (undef,$bitData) = @_; return SD_WS_binaryToNumber($bitData,4,11); }, # id + temp => sub {my (undef,$bitData) = @_; return ((SD_WS_binaryToNumber($bitData,12,23) - 2448) / 10); }, # temp + channel => sub {my (undef,$bitData) = @_; return SD_WS_binaryToNumber($bitData,26,27); }, # channel + }, + 27 => + { + # Protokollbeschreibung: Temperatur-/Feuchtigkeitssensor EuroChron EFTH-800, EFS-3110A + # ------------------------------------------------------------------------------------ + # 0 4 | 8 12 | 16 20 | 24 28 | 32 36 | 40 44 + # 0000 1001 | 0001 0110 | 0001 0000 | 0000 0000 | 0100 1001 | 0100 0000 + # ?ccc iiii | iiii iiii | bstt tttt | tttt ???? | hhhh hhhh | xxxx xxxx + # c: 3 bit channel valid channels are 0-7 (stands for channel 1-8) + # i: 12 bit random id (changes on power-loss) + # b: 1 bit battery indicator (0=>OK, 1=>LOW) + # s: 1 bit sign temperature (0=>negative, 1=>positive) + # t: 10 bit unsigned temperature, scaled by 10 + # h: 8 bit relative humidity percentage (BCD) + # x: 8 bit CRC8 + # ?: unknown (Bit 0, 28-31, always 0000 by EFTH-800, 1000 by EFS-3110A) + # The sensor sends two messages at intervals of about 57-58 seconds + + sensortype => 'EFTH-800, EFS-3110A', + model => 'SD_WS_27_TH', + # prematch => sub {my $rawData = shift; return 1 if ($rawData =~ /^[0-9A-F]{7}0[0-9]{2}[0-9A-F]{2}$/); }, # prematch 113C49A 0 47 AE (EFTH-800) + prematch => sub {my $rawData = shift; return 1 if ($rawData =~ /^[0-9A-F]{7}0|8[0-9]{2}[0-9A-F]{2}$/); }, # prematch 3F94519 8 55 C7 (EFS-3110A) + channel => sub {my (undef,$bitData) = @_; return (SD_WS_binaryToNumber($bitData,1,3) + 1 ); }, + id => sub {my (undef,$bitData) = @_; return substr($rawData,1,3); }, + bat => sub {my (undef,$bitData) = @_; return substr($bitData,16,1) eq "0" ? "ok" : "low";}, + temp => sub {my (undef,$bitData) = @_; return substr($bitData,17,1) eq "0" ? ((SD_WS_binaryToNumber($bitData,18,27) - 1024) / 10.0) : (SD_WS_binaryToNumber($bitData,18,27) / 10.0);}, + hum => sub {my (undef,$bitData) = @_; return (SD_WS_binaryToNumber($bitData,32,35) * 10) + (SD_WS_binaryToNumber($bitData,36,39));}, + crcok => sub {my $rawData = shift; + my $rc = eval + { + require Digest::CRC; + Digest::CRC->import(); + 1; + }; + if ($rc) { + my $datacheck1 = pack( 'H*', substr($rawData,0,10) ); + my $crcmein1 = Digest::CRC->new(width => 8, poly => 0x31); + my $rr3 = $crcmein1->add($datacheck1)->hexdigest; + Log3 $name, 4, "$name: SD_WS_27 Parse msg $rawData, CRC $rr3"; + if (hex($rr3) == hex(substr($rawData,-2))) { + return 1; + } else { + return 0; + } + } else { + Log3 $name, 1, "$name: SD_WS_27 Parse msg $rawData - ERROR CRC not load, please install modul Digest::CRC"; + return 0; + } + } + } , + 33 => + { + # Protokollbeschreibung + # ------------------------------------------------------------------------ + # 0 4 | 8 12 | 16 20 | 24 28 | 32 36 40 + # 1111 1100 | 0001 0110 | 0001 0000 | 0011 0111 | 0100 1001 01 + # iiii iiii | iiuu cctt | tttt tttt | tthh hhhh | hhbu uuxx xx + # i: 10 bit random id (changes on power-loss) - Bit 0 + 1 every 0 ??? + # b: battery indicator (0=>OK, 1=>LOW) + # c: Channel (MSB-first, valid channels are 0x00-0x02 -> 1-3) + # t: Temperature (MSB-first, BCD, 12 bit unsigned fahrenheit offset by 90 and scaled by 10) + # h: Humidity (MSB-first, BCD, 8 bit relative humidity percentage) + # u: unknown + # x: check + + # Protokollbeschreibung: Conrad Temperatursensor S522 fuer Funk-Thermometer S521B + # ------------------------------------------------------------------------ + # 0 4 | 8 12 | 16 20 | 24 28 | 32 36 | 40 + # 0010 0111 | 0100 0100 | 1100 0100 | 1100 0000 | 0000 1011 | 10 + # iiii iiii | iiuu cctt | tttt tttt | ttuu uuuu | uuuu TTxx | xx + # T: Temperature trend, 00 = consistent, 01 = rising, 10 = falling + # u: unknown (always 0) + # i: | c: | t: | x: same like default + + # Protokollbeschreibung: renkforce Temperatursensor E0001PA fuer Funk-Wetterstation E0303H2TPR (Conrad) + # ------------------------------------------------------------------------ + # 0 4 | 8 12 | 16 20 | 24 28 | 32 36 40 + # iiii iiii | iiuu cctt | tttt tttt | tthh hhhh | hhsb uuxx xx + # s: sendmode (1=>Test push, send manual 0=>automatic send) + # i: | c: | t: | h: | b: | u: | x: same like default + + # Protokollbeschreibung: Temperatur-/Fechtesensor TX-EZ6 fuer Wetterstation TZS First Austria + # ------------------------------------------------------------------------ + # 0 4 | 8 12 | 16 20 | 24 28 | 32 36 40 + # iiii iiii | iiHH cctt | tttt tttt | tthh hhhh | hhsb TTxx xx + # H: Humidity trend, 00 = equal, 01 = up, 10 = down + # T: Temperature trend, 00 = equal, 01 = up, 10 = down + # i: | c: | t: | h: | s: | b: | x: same like E0001PA + + sensortype => 'E0001PA, s014, S522, TCM, TFA 30.3200, TX-EZ6', + model => 'SD_WS_33_T', + prematch => sub {my $msg = shift; return 1 if ($msg =~ /^[0-9A-F]{11}$/); }, # prematch + crcok => sub { my (undef,$bitData) = @_; + my $crc = 0; + for (my $i=0; $i < 34; $i++) { + if (substr($bitData, $i, 1) == ($crc & 1)) { + $crc >>= 1; + } else { + $crc = ($crc>>1) ^ 12; + } + } + $crc ^= SD_WS_bin2dec(scalar(reverse(substr($bitData, 34, 4)))); + if ($crc == SD_WS_bin2dec(scalar(reverse(substr($bitData, 38, 4))))) { + return 1; + } else { + Log3 $name, 3, "$name: SD_WS_33 Parse msg $msg - ERROR check $crc != " . SD_WS_bin2dec(scalar(reverse(substr($bitData, 38, 4)))); + return 0; + } + }, + id => sub {my (undef,$bitData) = @_; return SD_WS_binaryToNumber($bitData,0,9); }, # id + temp => sub {my (undef,$bitData) = @_; return round(((SD_WS_binaryToNumber($bitData,22,25)*256 + SD_WS_binaryToNumber($bitData,18,21)*16 + SD_WS_binaryToNumber($bitData,14,17)) - 1220) * 5 / 90.0 , 1); }, #temp + hum => sub {my (undef,$bitData) = @_; return (SD_WS_binaryToNumber($bitData,30,33)*16 + SD_WS_binaryToNumber($bitData,26,29)); }, #hum + channel => sub {my (undef,$bitData) = @_; return (SD_WS_binaryToNumber($bitData,12,13)+1 ); }, # channel + bat => sub {my (undef,$bitData) = @_; return substr($bitData,34,1) eq "0" ? "ok" : "low";}, # other or modul orginal + } , + 38 => + { + # Protokollbeschreibung: NC-3911, NC-3912 - Rosenstein & Soehne Digitales Kuehl- und Gefrierschrank-Thermometer + # ------------------------------------------------------------------------------------------------------------- + # 0 4 | 8 12 | 16 20 | 24 28 | 32 + # 0000 1001 | 1001 0110 | 0001 0000 | 0000 0111 | 0100 + # iiii iiii | bpcc tttt | tttt tttt | ssss ssss | ???? + # i: 8 bit random id (changes on power-loss) + # b: 1 bit battery indicator (1=>OK, 0=>LOW) + # p: 1 bit beep alarm indicator (1=>ON, 0=>OFF) + # c: 2 bit channel, valid channels are 1 and 2 + # t: 12 bit unsigned temperature, offset 500, scaled by 10 + # s: 8 bit checksum + # ?: 4 bit equal + + sensortype => 'NC-3911', + model => 'SD_WS_38_T', + prematch => sub {my $msg = shift; return 1 if ($msg =~ /^[0-9A-F]{9}$/); }, + id => sub {my (undef,$bitData) = @_; return substr($rawData,0,2); }, + bat => sub {my (undef,$bitData) = @_; return substr($bitData,8,1) eq "1" ? "ok" : "low";}, + beep => sub {my (undef,$bitData) = @_; return substr($bitData,9,1) eq "1" ? "on" : "off"; }, + channel => sub {my (undef,$bitData) = @_; return SD_WS_binaryToNumber($bitData,10,11); }, + temp => sub {my (undef,$bitData) = @_; return ((SD_WS_binaryToNumber($bitData,12,23) - 500) / 10.0); }, + crcok => sub {my $msg = shift; + my @n = split //, $msg; + my $sum1 = hex($n[0]) + hex($n[2]) + hex($n[4]) + 6; + my $sum2 = hex($n[1]) + hex($n[3]) + hex($n[5]) + 6 + ($sum1 >> 4); + if (($sum1 & 0x0F) == hex($n[6]) && ($sum2 & 0x0F) == hex($n[7])) { + return 1; + } else { + Log3 $name, 3, "$name: SD_WS_38 Parse msg $msg - ERROR checksum " . ($sum1 & 0x0F) . "=" . hex($n[6]) . " " . ($sum2 & 0x0F) . "=" . hex($n[7]); + return 0; + } + }, + } , + 51 => + { + # Auriol Message Format (rflink/Plugin_044.c): + # 0 4 8 12 16 20 24 28 32 36 + # 1011 1111 1001 1010 0110 0001 1011 0100 1001 0001 + # B F 9 A 6 1 B 4 9 1 + # iiii iiii ???? sbTT tttt tttt tttt hhhh hhhh ??cc + # i = ID + # ? = unknown (0-15 check?) + # s = sendmode (1=manual, 0=auto) + # b = possibly battery indicator (1=low, 0=ok) + # T = temperature trend (2 bits) indicating temp equal/up/down + # t = Temperature => 0x61b (0x61b-0x4c4)=0x157 *5)=0x6b3 /9)=0xBE => 0xBE = 190 decimal! + # h = humidity (4x10+9=49%) + # ? = unknown (always 00?) + # c = channel: 1 (2 bits) + + sensortype => 'Auriol IAN 275901, IAN 114324, IAN 60107', + model => 'SD_WS_51_TH', + prematch => sub {my $msg = shift; return 1 if ($msg =~ /^[0-9A-F]{9}[1-3]$/);}, # 10 nibbles, 9 hex chars, only channel 1-3 + # prematch => sub {my $msg = shift; return 1 if ($msg =~ /^[0-9A-F]{10}$/);}, # 10 nibbles, all hex chars + crcok => sub {return 1; }, # crc is unknown + id => sub {my (undef,$bitData) = @_; return substr($rawData,0,2);}, # long-id in hex + sendmode => sub {my (undef,$bitData) = @_; return substr($bitData,12,1) eq "1" ? "manual" : "auto";}, + bat => sub {my (undef,$bitData) = @_; return substr($bitData,13,1) eq "1" ? "low" : "ok";}, + trend => sub {my (undef,$bitData) = @_; return ('consistent', 'rising', 'falling', 'unknown')[SD_WS_binaryToNumber($bitData,14,15)];}, + temp => sub {my (undef,$bitData) = @_; return round(((SD_WS_binaryToNumber($bitData,16,27)) - 1220) * 5 / 90.0 , 1); }, + hum => sub {my (undef,$bitData) = @_; return (SD_WS_binaryToNumber($bitData,28,31) * 10) + (SD_WS_binaryToNumber($bitData,32,35));}, + channel => sub {my (undef,$bitData) = @_; return (SD_WS_binaryToNumber($bitData,38,39) );}, + }, + 53 => + { + # AURIOL AHFL 433 B2 IAN 314695 Message Format + # ---------------------------------------------------- + # 0 4 8 12 16 20 24 28 32 36 40 + # 0000 0111 0000 0000 1101 1111 0111 1010 0100 1110 00 + # iiii iiii b?cc tttt tttt tttt hhhh hhh? ???? ssss ss + # i: 8 bit random id (changes on power-loss) + # b: 1 bit battery indicator (0=>OK, 1=>LOW) + # c: 2 bit channel, valid channels are 1-3 + # t: 12 bit signed temperature, scaled by 10 + # h: 7 bit humidity + # s: 6 bit checksum (sum over nibble 0 - 8) + # ?: x bit unknown (bit 32-35 always 0100) + + sensortype => 'Auriol IAN 314695', + model => 'SD_WS_53_TH', + # prematch => sub {my $msg = shift; return 1 if ($msg =~ /^[0-9A-F]{11}$/); }, # prematch + prematch => sub {my $msg = shift; return 1 if ($msg =~ /^[0-9A-F]{8}4[0-9A-F]{2}$/); }, # prematch 0700F276 4 A4 + crcok => sub { my (undef,$bitData) = @_; + my $sum = 0; + for (my $n = 0; $n < 36; $n += 4) { + $sum += SD_WS_binaryToNumber($bitData, $n, $n + 3) + } + if (($sum &= 0x3F) == SD_WS_binaryToNumber($bitData, 36, 41)) { + return 1; + } else { + Log3 $name, 3, "$name: SD_WS_53 Parse msg $msg - ERROR checksum $sum != " . SD_WS_binaryToNumber($bitData, 36, 41); + return 0; + } + }, + id => sub {my (undef,$bitData) = @_; return substr($rawData,0,2);}, # long-id in hex + bat => sub {my (undef,$bitData) = @_; return substr($bitData,8,1) eq "1" ? "low" : "ok";}, + channel => sub {my (undef,$bitData) = @_; return (SD_WS_binaryToNumber($bitData,10,11) + 1);}, + temp => sub {my (undef,$bitData) = @_; return substr($bitData,12,1) eq "1" ? ((SD_WS_binaryToNumber($bitData,12,23) - 4096) / 10.0) : (SD_WS_binaryToNumber($bitData,12,23) / 10.0);}, + hum => sub {my (undef,$bitData) = @_; return (SD_WS_binaryToNumber($bitData,24,30) );}, + }, + 54 => { + # TFA Drop Rainmeter 30.3233.01 + # ---------------------------------------------------------------------------------- + # 0 8 16 24 32 40 48 56 64 - 01234567890123456 + # 00111101 10011100 01000011 00001010 00011011 10101010 00000001 10001001 1000 - 3D9C430A1BAA01898 + # 00111101 10011100 01000011 00000110 00011000 10101010 00000001 00110100 0000 - 3D9C430618AA01340 + # PPPPIIII IIIIIIII IIIIIIII BCUUXXXU RRRRRRRR FFFFFFFF SSSSSSSS MMMMMMMM KKKK + # P: 4 bit message prefix, always 0x3 + # I: 20 bit Sensor ID + # B: 1 bit Battery indicator, 0 if battery OK, 1 if battery is low. + # C: 1 bit Device reset, set to 1 briefly after battery insert. + # X: 3 bit Transmission counter, rolls over. + # R: 8 bit LSB of 16-bit little endian rain counter + # F: 8 bit Fixed to 0xaa + # S: 8 bit MSB of 16-bit little endian rain counter + # M: 8 bit Checksum, compute with reverse Galois LFSR with byte reflection, generator 0x31 and key 0xf4. + # K: 4 bit Unknown, either b1011 or b0111. - Distribution: 50:50 ??? + # U: Unknown + # The rain counter starts at 65526 to indicate 0 tips of the bucket. The counter rolls over at 65535 to 0, which corresponds to 9 and 10 tips of the bucket. + # Each tip of the bucket corresponds to 0.254mm of rain. + # After battery insertion, the sensor will transmit 7 messages in rapid succession, one message every 3 seconds. After the first message, + # the remaining 6 messages have bit 1 of byte 3 set to 1. This could be some sort of reset indicator. + # For these 6 messages, the transmission counter does not increase. After the full 7 messages, one regular message is sent after 30s. + # Afterwards, messages are sent every 45s. + + sensortype => 'TFA 30.3233.01', + model => 'SD_WS_54_R', + prematch => sub {my $rawData = shift; return 1 if ($rawData =~ /^3[0-9A-F]{9}AA[0-9A-F]{4,5}$/); }, # prematch 3 E2E390CF9 AA FF8A0 + id => sub {my ($rawData,undef) = @_; return substr($rawData,1,5); }, + bat => sub {my (undef,$bitData) = @_; return substr($bitData,24,1) eq "0" ? "ok" : "low";}, + batChange => sub {my (undef,$bitData) = @_; return substr($bitData,25,1);}, + sendCounter => sub {my (undef,$bitData) = @_; return (SD_WS_binaryToNumber($bitData,28,30));}, + rawRainCounter => sub {my (undef,$bitData) = @_; + my $rawRainCounterMessage = SD_WS_binaryToNumber($bitData,32,39) + SD_WS_binaryToNumber($bitData,48,55) * 256; + if ($rawRainCounterMessage > 65525) { + return $rawRainCounterMessage - 65526; + } else { + return $rawRainCounterMessage + 10; + } + }, + rain_total => sub {my (undef,$bitData) = @_; + my $rawRainCounterMessage = SD_WS_binaryToNumber($bitData,32,39) + SD_WS_binaryToNumber($bitData,48,55) * 256; + if ($rawRainCounterMessage > 65525) { + return ($rawRainCounterMessage - 65526) * 0.254; + } else { + return ($rawRainCounterMessage + 10) * 0.254; + } + }, + crcok => sub {my $rawData = shift; + my $checksum = SD_WS_LFSR_digest8_reflect(7, 0x31, 0xf4, $rawData ); + if ($checksum == hex(substr($rawData,14,2))) { + return 1; + } else { + Log3 $name, 3, "$name: SD_WS_54 Parse msg $msg - ERROR checksum $checksum != " . hex(substr($rawData,14,2)); + return 0; + } + }, + }, + 58 => { + # TFA 30.3208.02, TFA 30.3228.02, TFA 30.3229.02, Froggit FT007xx, Ambient Weather F007-xx, Renkforce FT007xx + # ----------------------------------------------------------------------------------------------------------- + # 0 4 8 12 16 20 24 28 32 36 40 44 48 + # 0100 0101 1100 0110 1001 0011 1100 1010 0011 0100 1100 0111 0000 + # yyyy yyyy iiii iiii bccc tttt tttt tttt hhhh hhhh ssss ssss ???? + # y 8 bit sensor type (45=>TH, 46=>T) + # i: 8 bit random id (changes on power-loss) + # b: 1 bit battery indicator (0=>OK, 1=>LOW) + # c: 3 bit channel (valid channels are 1-8) + # t: 12 bit temperature (Farenheit: subtract 400 and divide by 10, Celsius: subtract 720 and multiply by 0.0556) + # h: 8 bit humidity (only type 45, type 46 changes between 10 and 15) + # s: 8 bit check + # ?: 4 bit unknown + # frames sent every ~1 min (varies by channel), map of channel id to transmission interval: 1: 53s, 2: 57s, 3: 59s, 4: 61s, 5: 67s, 6: 71s, 7: 73s, 8: 79s + + sensortype => 'TFA 30.3208.02, FT007xx', + model => 'SD_WS_58_T', + # prematch => sub {my $msg = shift; return 1 if ($msg =~ /^45[0-9A-F]{11}/); }, # prematch + prematch => sub {my $msg = shift; return 1 if ($msg =~ /^4[5|6][0-9A-F]{11}/); }, # prematch, 45=FT007TH/TFA 30.3208.02, 46=FT007T/TFA 30.3228.02 + crcok => sub { my $msg = shift; + # my @buff = split(//,substr($msg,index($msg,"45"),10)); + # my $idx = index($msg,"45"); + my @buff = split(//,substr($msg,0,10)); + my $crc_check = substr($msg,10,2); + my $mask = 0x7C; + my $checksum = 0x64; + my $data; + my $nibbleCount; + for ( $nibbleCount=0; $nibbleCount < scalar @buff; $nibbleCount+=2) { + my $bitCnt; + if ($nibbleCount+1 = 0 ; $bitCnt-- ) { + my $bit; + # Rotate mask right + $bit = $mask & 1; + $mask = ($mask >> 1 ) | ($mask << 7) & 0xFF; + if ( $bit ) { + $mask ^= 0x18 & 0xFF; + } + # XOR mask into checksum if data bit is 1 + if ( $data & 0x80 ) { + $checksum ^= $mask & 0xFF; + } + $data <<= 1 & 0xFF; + } + } + if ($checksum == hex($crc_check)) { + return 1; + } else { + Log3 $name, 3, "$name: SD_WS_58 Parse msg $msg - ERROR checksum $checksum != " . hex($crc_check); + return 0; + } + }, + id => sub {my (undef,$bitData) = @_; return SD_WS_binaryToNumber($bitData,8,15); }, # random id + bat => sub {my (undef,$bitData) = @_; return SD_WS_binaryToNumber($bitData,16) eq "1" ? "low" : "ok";}, # bat? + channel => sub {my (undef,$bitData) = @_; return (SD_WS_binaryToNumber($bitData,17,19) + 1 ); }, # channel + temp => sub {my (undef,$bitData) = @_; return round((SD_WS_binaryToNumber($bitData,20,31)-720)*0.0556,1); }, # temp + hum => sub {my ($rawData,$bitData) = @_; return substr($rawData,1,1) eq "5" ? (SD_WS_binaryToNumber($bitData,32,39)) : 0;}, # hum + } , + 84 => + { + # Protokollbeschreibung: Funk Wetterstation Auriol IAN 283582 (Lidl) + # ------------------------------------------------------------------------ + # 0 4 | 8 12 | 16 20 | 24 28 | 32 36 + # 1111 1100 | 0001 0110 | 0001 0000 | 0011 0111 | 0100 1001 + # iiii iiii | hhhh hhhh | bscc tttt | tttt tttt | ???? ???? + # i: 8 bit id (?) - no change after battery change, i have seen two IDs: 0x03 and 0xfe + # h: 8 bit relative humidity percentage + # b: 1 bit battery indicator (0=>OK, 1=>LOW) + # s: 1 bit sendmode 1=manual (button pressed) 0=auto + # c: 2 bit channel valid channels are 0-2 (1-3) + # t: 12 bit signed temperature scaled by 10 + # ?: unknown + # Sensor sends approximately every 30 seconds + + sensortype => 'Auriol IAN 283582, TV-4848', + model => 'SD_WS_84_TH', + prematch => sub {my $msg = shift; return 1 if ($msg =~ /^[0-9A-F]{4}[01245689ACDE]{1}[0-9A-F]{5,6}$/); }, # valid channel only 0-2 + id => sub {my (undef,$bitData) = @_; return SD_WS_binaryToNumber($bitData,0,7); }, + hum => sub {my (undef,$bitData) = @_; return SD_WS_binaryToNumber($bitData,8,15); }, + bat => sub {my (undef,$bitData) = @_; return substr($bitData,16,1) eq "0" ? "ok" : "low";}, + sendmode => sub {my (undef,$bitData) = @_; return substr($bitData,17,1) eq "1" ? "manual" : "auto"; }, + channel => sub {my (undef,$bitData) = @_; return (SD_WS_binaryToNumber($bitData,18,19)+1 ); }, + temp => sub { my (undef,$bitData) = @_; + my $tempraw = SD_WS_binaryToNumber($bitData,20,31); + $tempraw -= 4096 if ($tempraw > 1023); # negative + $tempraw /= 10.0; + return $tempraw; + }, + crcok => sub {return 1;}, # crc test method is so far unknown + } , + 85 => + { + # Protokollbeschreibung: Kombisensor TFA 30.3222.02 fuer Wetterstation TFA 35.1140.01 + # ----------------------------------------------------------------------------------- + # 0 4 | 8 12 | 16 20 | 24 28 | 32 36 | 40 44 | 48 52 | 56 60 | 64 + # 0000 1001 | 0001 0110 | 0001 0000 | 0000 0111 | 0100 1001 | 0100 0000 | 0100 1001 | 0100 1001 | 1 + # ???? iiii | iiii iiii | iiii iiii | b??? ??yy | tttt tttt | tttt ???? | hhhh hhhh | ???? ???? | ? message 1 + # ???? iiii | iiii iiii | iiii iiii | b?cc ??yy | wwww wwww | wwww ???? | 0000 0000 | ???? ???? | ? message 2 + # i: 20 bit random id (changes on power-loss) + # b: 1 bit battery indicator (0=>OK, 1=>LOW) + # c: 2 bit channel valid channels are (always 00 stands for channel 1) + # y: 2 bit typ, 01 - thermo/hygro (message 1), 10 - wind (message 2) + # t: 12 bit unsigned temperature, offset 500, scaled by 10 - if message 1 + # h: 8 bit relative humidity percentage - if message 1 + # w: 12 bit unsigned windspeed, scaled by 10 - if message 2 + # ?: unknown + # The sensor sends at intervals of about 30 seconds + + sensortype => 'TFA 30.3222.02', + model => 'SD_WS_85_THW', + prematch => sub {my $msg = shift; return 1 if ($msg =~ /^[0-9A-F]{16}/); }, # min 16 nibbles + crcok => sub {return 1;}, # crc test method is so far unknown + id => sub {my (undef,$bitData) = @_; return substr($rawData,1,5); }, # 0952CF012B1021DF0 + bat => sub {my (undef,$bitData) = @_; return substr($bitData,24,1) eq "0" ? "ok" : "low";}, + channel => sub {my (undef,$bitData) = @_; return (SD_WS_binaryToNumber($bitData,26,27) + 1 ); }, # unknown + temp => sub {my (undef,$bitData) = @_; + if (substr($bitData,30,2) eq "01") { # message 1 thermo/hygro + return ((SD_WS_binaryToNumber($bitData,32,43) - 500) / 10.0); + } else { + return; + } + }, + hum => sub {my (undef,$bitData) = @_; + if (substr($bitData,30,2) eq "01") { # message 1 thermo/hygro + return SD_WS_binaryToNumber($bitData,48,55); + } else { + return; + } + }, + windspeed => sub {my (undef,$bitData) = @_; + if (substr($bitData,30,2) eq "10") { # message 2 windspeed + return (SD_WS_binaryToNumber($bitData,32,43) / 10.0); + } else { + return; + } + }, + } , + 89 => + { + # Protokollbeschreibung: Temperatur-/Feuchtesensor TFA 30.3221.02 fuer Wetterstation TFA 35.1140.01 + # ------------------------------------------------------------------------------------------------- + # 0 4 | 8 12 | 16 20 | 24 28 | 32 36 + # 0000 1001 | 0001 0110 | 0001 0000 | 0000 0111 | 0100 1001 + # iiii iiii | bscc tttt | tttt tttt | hhhh hhhh | ???? ???? + # i: 8 bit random id (changes on power-loss) + # b: 1 bit battery indicator (0=>OK, 1=>LOW) + # s: 1 bit sendmode (0=>auto, 1=>manual) + # c: 2 bit channel valid channels are 0-2 (1-3) + # t: 12 bit unsigned temperature, offset 500, scaled by 10 + # h: 8 bit relative humidity percentage + # ?: 8 bit unknown + # The sensor sends 3 repetitions at intervals of about 60 seconds + + sensortype => 'TFA 30.3221.02', + model => 'SD_WS_89_TH', + prematch => sub {my $msg = shift; return 1 if ($msg =~ /^[0-9A-F]{2}[01245689ACDE]{1}[0-9A-F]{7}$/); }, # valid channel only 0-2 + id => sub {my (undef,$bitData) = @_; return substr($rawData,0,2); }, + bat => sub {my (undef,$bitData) = @_; return substr($bitData,8,1) eq "0" ? "ok" : "low";}, + sendmode => sub {my (undef,$bitData) = @_; return substr($bitData,9,1) eq "1" ? "manual" : "auto"; }, + channel => sub {my (undef,$bitData) = @_; return (SD_WS_binaryToNumber($bitData,10,11) + 1); }, + temp => sub {my (undef,$bitData) = @_; return ((SD_WS_binaryToNumber($bitData,12,23) - 500) / 10.0); }, + hum => sub {my (undef,$bitData) = @_; return SD_WS_binaryToNumber($bitData,24,31); }, + crcok => sub {return 1;}, # crc test method is so far unknown + } , + 94 => { + # Sensor sends Bit 0 as "0", Bit 1 as "110" + # Protocol after conversion bits (Length varies from minimum 24 to maximum 32 bits.) + # ------------------------------------------------------------------------ + # 0 4 | 8 12 | 16 20 | 24 28 + # 1111 1100 | 0000 0110 | 0001 0000 | 0011 0111 + # iiii iiii | ??s? tttt | tttt tttt | ???? ???? + # i: 8 bit id + # s: 1 bit sign (0 = temperature positive, 1 = temperature negative + # t: 12 bit temperature (MSB-first, BCD, 12 bit unsigned celsius scaled by 10) + # ?: unknown + + sensortype => 'Atech', + model => 'SD_WS_94_T', + prematch => sub { return 1; }, # no precheck known + id => sub { # change 110 to 1 in ref bitdata and return id + ($_[1] = $_[1]) =~ s/110/1/g; + return sprintf('%02X', SD_WS_bin2dec(substr($_[1],0,8))); + }, + temp => sub { + my $rawtemp100 = SD_WS_binaryToNumber($_[1],12,15); + my $rawtemp10 = SD_WS_binaryToNumber($_[1],16,19); + my $rawtemp1 = SD_WS_binaryToNumber($_[1],20,23); + if ($rawtemp100 > 9 || $rawtemp10 > 9 || $rawtemp1 > 9) { + Log3 $iohash, 3, "$name: SD_WS_Parse $model ERROR - BCD of temperature ($rawtemp100 $rawtemp10 $rawtemp1)"; + return; + }; + my $temp = ($rawtemp100 * 10 + $rawtemp10 + $rawtemp1 / 10) * ( substr($_[1],10,1) == 1 ? -1.0 : 1.0); + }, + crcok => sub {return 1;}, # crc test method is so far unknown + }, + 106 => { + # BBQ temperature sensor MODELL: GT-TMBBQ-01s (Sender), GT-TMBBQ-01e (Empfaenger) + # ------------------------------------------------------------------------------- + # 0 4 | 8 12 | 16 20 + # 1101 1111 | 0011 0100 | 0100 00 + # iiii iiii | tttt tttt | tttt tt + # i: 8 bit id, changes each time the sensor is switched on + # t: 14 bit unsigned fahrenheit offset by 90 and scaled by 20 + + sensortype => 'GT-TMBBQ-01', + model => 'SD_WS_106_T', + prematch => sub { return 1; }, # no precheck known + id => sub { my ($rawData,undef) = @_; return substr($rawData,0,2); }, + temp => sub { my (undef,$bitData) = @_; + $rawTemp = SD_WS_binaryToNumber($bitData,8,21); + my $tempFh = $rawTemp / 20 - 90; # Grad Fahrenheit + Log3 $name, 4, "$name: SD_WS_106_T tempraw = $rawTemp, temp = $tempFh Fahrenheit"; + return (round((($tempFh - 32) * 5 / 9) , 1)); # Grad Celsius + }, + crcok => sub {return 1;}, # CRC test method does not exist + } , + 107 => { + # Fine Offset WH51, ECOWITT WH51, MISOL/1, Froggit DP100 Soil Moisture Sensor + # --------------------------------------------------------------------------- + # Byte: 00 01 02 03 04 05 06 07 08 09 10 11 12 13 + # Nibble: 01 23 45 67 89 01 23 45 67 89 01 23 45 67 + # aa aa aa 2d d4 51 00 6b 58 6e 7f 24 f8 d2 ff ff ff 3c 28 + # MN;D=51 00 C6 BF 10 7F 23 F8 C7 FF FF FF 5D A1 ;R=14; H: 35 + # FF II II II TB YY MM ZA AA XX XX XX CC SS + # FF: Family code 0x51 (ECOWITT/FineOffset WH51) + # IIIIII: ID (3 bytes) + # T: Transmission period boost: highest 3 bits set to 111 on moisture change and decremented each transmission, if T = 0 period is 70 sec, if T > 0 period is 10 sec + # B: Battery voltage: lowest 5 bits are battery voltage * 10 (e.g. 0x0c = 12 = 1.2V). Transmitter works down to 0.7V (0x07) + # YY: ? Fixed: 0x7f + # MM: Moisture percentage 0%-100% (0x00-0x64) MM = (AD - 70) / (450 - 70) + # Z: ? Fixed: leftmost 7 bit 1111 100 + # AAA: 9 bit AD value MSB byte[07] & 0x01, LSB byte[08] ??? 10 bit ??? WH51 Manual.pdf says: 100%AD setting range:0%AD+10~1000 + # XXXXXX: ? Fixed: 0xff 0xff 0xff + # CC: CRC of the preceding 12 bytes (Polynomial 0x31, Initial value 0x00, Input not reflected, Result not reflected) + # SS: Sum of the preceding 13 bytes % 256 + sensortype => 'WH51, DP100, MISOL/1', + model => 'SD_WS_107_H', + prematch => sub { ($rawData,undef) = @_; return 1 if ($rawData =~ /^51[0-9A-F]{16}[F]{6}/); }, + id => sub { my ($rawData,undef) = @_; return substr($rawData,2,6); }, + batVoltage => sub { my (undef,$bitData) = @_; return round(SD_WS_binaryToNumber($bitData,35,39) / 10 , 1); }, + adc => sub { my (undef,$bitData) = @_; return SD_WS_binaryToNumber($bitData,62,71); }, + hum => sub { my ($rawData,undef) = @_; return hex(substr($rawData,12,2)); }, + crcok => sub { my $rawData = shift; + my $rc = eval { + require Digest::CRC; + Digest::CRC->import(); + 1; + }; + if ($rc) { + my $datacheck1 = pack( 'H*', substr($rawData,0,24) ); + my $crcmein1 = Digest::CRC->new(width => 8, poly => 0x31); + my $rr3 = $crcmein1->add($datacheck1)->hexdigest; + if (hex($rr3) != hex(substr($rawData,24,2))) { + Log3 $name, 3, "$name: SD_WS_107 Parse msg $rawData - ERROR CRC8"; + return 0; + } + } else { + Log3 $name, 1, "$name: SD_WS_107 Parse msg $rawData - ERROR CRC not load, please install modul Digest::CRC"; + return 0; + } + my $checksum = 0; + for (my $i=0; $i < 26; $i += 2) { + $checksum += hex(substr($rawData,$i,2)); + } + $checksum &= 255; + if ($checksum != hex(substr($rawData,26,2))) { + Log3 $name, 3, "$name: SD_WS_107 Parse msg $rawData - ERROR checksum"; + return 0; + } + return 1; + } + } , + 108 => { + # https://github.com/merbanan/rtl_433/blob/master/src/devices/bresser_5in1.c + # The compact 5-in-1 multifunction outdoor sensor transmits the data on 868.3 MHz. + # The device uses FSK-PCM encoding, the device sends a transmission every 12 seconds. + # A transmission starts with a preamble of 0xAA. + # Preamble: aa aa aa aa aa 2d d4 + # Packet payload without preamble (203 bits): + # 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 + # ----------------------------------------------------------------------------- + # ed ee 46 ff ff ff ef 9f ff 8b 7d eb ff 12 11 b9 00 00 00 10 60 00 74 82 14 00 00 00 (Rain Gauge) + # e9 ee 46 ff ff ff ef 99 ff 8b 8b eb ff 16 11 b9 00 00 00 10 66 00 74 74 14 00 00 00 (Rain Gauge) + # e3 fd 7f 89 7e 8a ed 68 fe af 9b fd ff 1c 02 80 76 81 75 12 97 01 50 64 02 00 00 00 (Large Wind Values, Gust=37.4m/s Avg=27.5m/s from https://github.com/merbanan/rtl_433/issues/1315) + # ef a1 ff ff 1f ff ef dc ff de df ff 7f 10 5e 00 00 e0 00 10 23 00 21 20 00 80 00 00 (low batt +ve temp) + # ed a1 ff ff 1f ff ef 8f ff d6 df ff 77 12 5e 00 00 e0 00 10 70 00 29 20 00 88 00 00 (low batt -ve temp -7.0C) + # ec 91 ff ff 1f fb ef e7 fe ad ed ff f7 13 6e 00 00 e0 04 10 18 01 52 12 00 08 00 00 (good batt -ve temp) + # CC CC CC CC CC CC CC CC CC CC CC CC CC uu II SS GG DG WW W TT T HH RR R Bt + # G-MSB ^ ^ W-MSB (strange but consistent order) + # + # 1 2 3 4 5 + # 0123456789012345678901234567890123456789012345678901 + # -------------------------------------------------------- + # EC837FF7FFFBEFDEFF7A89FFFF137C8008000410210085760000 52 Nibble from SIGNALduino + # CCCCCCCCCCCCCCCCCCCCCCCCCCuuIISSGGDGWW WTT THHRR RBt 52 Nibble + # C = check, inverted data of 13 byte further + # u = checksum (number/count of set bits within bytes 14-25) + # I = station ID + # S = sensor type, device reset, channel - ??? + # Bit: 0 4 + # 1000 0000 + # r?ss cccc + # r: 1 bit device reset, 0 after inserting battery or pressing reset, 1 after 1 hour (checked with Fody E42) + # s: 2 bit sensor type, 00 = Bresser_5in1, 01 = Fody_E42, 11 = Bresser_rain_gauge + # c: 4 bit channel, 0000 = Bresser_5in1, 0001/0010/0011 = Fody_E42 (changes after reset), 1001 = Bresser_rain_gauge + # G = wind gust in 1/10 m/s, normal binary coded, GGxG = 0x76D1 => 0x0176 = 256 + 118 = 374 => 37.4 m/s. MSB is out of sequence. + # D = wind direction 0..F = N..NNE..E..S..W..NNW + # W = wind speed in 1/10 m/s, BCD coded, WWxW = 0x7512 => 0x0275 = 275 => 27.5 m/s. MSB is out of sequence. + # T = temperature in 1/10 °C, BCD coded, TTxT = 1203 => 31.2 °C + # t = temperature sign, minus if unequal 0 + # H = humidity in percent, BCD coded, HH = 23 => 23 % + # R = rain in mm, BCD coded, RRxR = 1203 => 31.2 mm - elektron-bbs changed: RRRR = 1243 => 431.2 mm + # B = Battery. 0=Ok, 8=Low. + # + # Only nibbles 28 to 52 are transferred to the module. Preprocessing in SD_Protocols.pm sub sub ConvBresser_5in1. + # 1 2 + # 012345678901234567890123 + # ------------------------ + # 7C8008000410210085760000 + # IISSGGDGWW WTT THHRRRRBt + + sensortype => 'Bresser_5in1, Bresser_rain_gauge, Fody_E42, Fody_E43', + model => 'SD_WS_108', + prematch => sub {my $rawData = shift; return 1 if ($rawData =~ /^[0-9A-F]{8}[0-9]{2}[0-9A-F]{1}[0-9]{3}[0-9A-F]{1}[0-9]{5}[0-9A-F]{1}[0-9]{1}/); }, + id => sub {my ($rawData,undef) = @_; return substr($rawData,0,2); }, + winddir => sub {my ($rawData,$bitData) = @_; + return if (substr($bitData,10,2) eq '01' || substr($bitData,10,2) eq '11'); # Bresser rain gauge, Fody E42 + my $winddirraw = hex(substr($rawData,6,1)); + return ($winddirraw * 22.5, $winddirtxtar[$winddirraw]); + }, + windgust => sub {my ($rawData,$bitData) = @_; + return if (substr($bitData,10,2) eq '01' || substr($bitData,10,2) eq '11'); # Bresser rain rauge, Fody E42 + return (hex(substr($rawData,7,1)) * 256 + hex(substr($rawData,4,2))) / 10; + }, + windspeed => sub {my ($rawData,$bitData) = @_; + return if (substr($bitData,10,2) eq '01' || substr($bitData,10,2) eq '11'); # Bresser rain gauge, Fody E42 + return (substr($rawData,11,1) . substr($rawData,8,2)) / 10; + }, + temp => sub {my ($rawData,undef) = @_; + my $sgn = substr($rawData,23,1) eq "0" ? 1 : -1; + $rawTemp = $sgn * (substr($rawData,15,1) . substr($rawData,12,1) . '.' .substr($rawData,13,1)); + return $rawTemp; + }, + hum => sub {my ($rawData,$bitData) = @_; + return if (substr($bitData,10,2) eq '11'); # Bresser rain gauge + return substr($rawData,16,2) + 0; + }, + rain => sub {my ($rawData,$bitData) = @_; + return if (substr($bitData,10,2) eq '01'); # Fody E42 + $rain = (substr($rawData,20,2) . substr($rawData,18,2)) / 10; + $rain *= 2.5 if (substr($bitData,10,2) eq '11'); # Bresser rain gauge + return $rain; + }, + bat => sub {my ($rawData,undef) = @_; return substr($rawData,22,1) eq '0' ? 'ok' : 'low';}, + batChange => sub {my (undef,$bitData) = @_; return substr($bitData,8,1);}, + crcok => sub {return 1;}, # checks are in SD_Protocols.pm sub ConvBresser_5in1 + } , + 110 => { + # ADE WS1907 Weather station with rain gauge + # 0 1 2 3 4 5 6 7 8 + # 0 4 8 12 16 20 24 28 32 36 40 44 48 52 56 60 64 + # 1011 1111 1001 1010 0110 0001 1011 0100 1001 0001 1011 1111 1001 1010 0110 0001 01 + # iiii iiii iiii iiii bd?? ccc? rrrr rrrr rrrr rrrr tttt tttt tttt tttt ssss ssss ?? + # i: 16 bit ID + # b: 1 bit battery indicator, 0 if battery ok, 1 if battery is low. + # d: 1 bit device reset, set to 1 briefly after battery insert + # c: 3 bit transmission counter, rolls over + # r: 16 bit rain counter (LSB first) + # t: 16 bit temperature (LSB first, unsigned fahrenheit offset by 90 and scaled by 10) + # s: 8 bit checksum over byte 0 - 6 & 0xFF + # ?: unknown + + sensortype => 'ADE WS1907', + model => 'SD_WS_110_TR', + prematch => sub {return 1;}, # no precheck known + id => sub {my (undef,$bitData) = @_; return substr($rawData,0,4);}, # long-id in hex + bat => sub {my (undef,$bitData) = @_; return substr($bitData,16,1) eq "0" ? "ok" : "low";}, + batChange => sub {my (undef,$bitData) = @_; return substr($bitData,17,1);}, + sendCounter => sub {my (undef,$bitData) = @_; return (SD_WS_binaryToNumber($bitData,20,22));}, + rawRainCounter => sub {my (undef,$bitData) = @_; + my $rawRainCounterMessage = SD_WS_binaryToNumber($bitData,32,39) * 256 + SD_WS_binaryToNumber($bitData,24,31); + if ($rawRainCounterMessage > 65525) { + return $rawRainCounterMessage - 65526; + } else { + return $rawRainCounterMessage + 10; + } + }, + rain => sub {my (undef,$bitData) = @_; + my $rawRainCounterMessage = SD_WS_binaryToNumber($bitData,32,39) * 256 + SD_WS_binaryToNumber($bitData,24,31); + if ($rawRainCounterMessage > 65525) { + return ($rawRainCounterMessage - 65526) * 0.1; + } else { + return ($rawRainCounterMessage + 10) * 0.1; + } + }, + temp => sub { my (undef,$bitData) = @_; return round(((SD_WS_binaryToNumber($bitData,48,55) * 256 + SD_WS_binaryToNumber($bitData,40,47)) - 1220) * 5 / 90.0 , 1); }, + crcok => sub { my (undef,$bitData) = @_; + my $sum = 0; + for (my $n = 0; $n < 56; $n += 8) { + $sum += SD_WS_binaryToNumber($bitData, $n, $n + 7) + } + if (($sum &= 0xFF) == SD_WS_binaryToNumber($bitData, 56, 63)) { + return 1; + } else { + Log3 $name, 3, "$name: SD_WS_110 Parse msg $msg - ERROR checksum $sum != " . SD_WS_binaryToNumber($bitData, 56, 63); + return 0; + } + }, + }, + 111 => { + # TS-FT002 Water tank level monitor with temperature + # 0 1 2 3 4 5 6 7 8 + # 0 4 8 12 16 20 24 28 32 36 40 44 48 52 56 60 64 68 - 0 2 4 6 8 10 12 14 16 + # 0101 1111 0101 1011 1000 1000 0110 0000 1111 0001 0001 0000 1100 0100 0000 0000 1100 1001 - 5F 5B 88 60 F1 10 C4 00 C9 + # cccc cccc iiii iiii yyyy yyyy dddd dddd dddd bbbb tttt vvvv tttt tttt rrrr rrrr xxxx xxxx + # c: 8 bit sync, always 0x5F + # i: 8 bit ID + # y: 8 bit type, always 0x88 + # d: 12 bit distance, med, migh, low (value in hex = cm, fill with 5DC on invalid, range 0 - 15 m) + # b: 4 bit battery indicator, (1 = OK, any other value = low) - Not available with TS-FT002! + # v: 4 bit interval (bit 3 = 0 180 s, bit 3 = 1 30 s, bit 0-2 = 1 5 s) - Not available with TS-FT002! + # t: 12 bit temperature (offset by 400 and scaled by 10) + # r: 8 bit rain (not used in XC-0331 and TS-FT002) + # x: 8 bit XOR of values from bytes 0 to 8 = 0 + # all nibbles reversed, lsb first + sensortype => 'TS-FT002', + model => 'SD_WS_111_TL', + prematch => sub {my $rawData = shift; return 1 if ($rawData =~ /^5F[0-9A-F]{2}88[0-9A-F]{12}/); }, # 5F 01 88 012345678912 + id => sub {my ($rawData,undef) = @_; return substr($rawData,2,2);}, # long-id in hex + distance => sub {my (undef,$bitData) = @_; return (SD_WS_bin2dec(scalar(reverse(substr($bitData,24,4)))) * 16 + SD_WS_bin2dec(scalar(reverse(substr($bitData,28,4)))) * 256 + SD_WS_bin2dec(scalar(reverse(substr($bitData,32,4)))));}, + # bat => sub {my (undef,$bitData) = @_; return substr($bitData,36,4) eq '0001' ? "ok" : "low";}, + # interval => sub {my (undef,$bitData) = @_; return '180' if substr($bitData,44,4) eq '0000'; + # return '30' if substr($bitData,44,4) eq '1000'; + # return '5' if substr($bitData,44,4) eq '0111'; + # return '0'; + # }, + temp => sub {my (undef,$bitData) = @_; return ((SD_WS_bin2dec(scalar(reverse(substr($bitData,48,4)))) * 16 + SD_WS_bin2dec(scalar(reverse(substr($bitData,52,4)))) * 256 + SD_WS_bin2dec(scalar(reverse(substr($bitData,40,4)))) - 400 ) / 10);}, + crcok => sub { my (undef,$bitData) = @_; + my $xor = SD_WS_binaryToNumber($bitData, 0, 7); + for (my $n = 8; $n < 72; $n += 8) { + $xor ^= SD_WS_binaryToNumber($bitData, $n, $n + 7); + } + if ($xor == 0) { + return 1; + } else { + Log3 $name, 3, "$name: SD_WS_111 Parse msg $msg - ERROR check $xor != 0"; + return 0; + } + }, + }, + 113 => { + # Wireless Grill Thermometer, Model name: GFGT 433 B1 + # --------------------------------------------------------------------- + # 0 4 | 8 12 | 16 20 | 24 28 | 32 36 | 40 44 + # 0010 1111 | 0000 0110 | 1110 0100 | 0111 0000 | 1101 0001 | 0011 1110 - 2F06E470D13E, T: 201, T2: 279 + # iiii iiii | ???? tt22 | tttt tttt | 2222 2222 | ???? ???? | ???? ???? + # i: 8 bit id, changes after changing the battery + # ?: 4 bit unknown, always 0000 + # t: 10 bit unsigned temperature 1 fahrenheit offset by 90 + # 2: 10 bit unsigned temperature 2 fahrenheit offset by 90 + # ?: 8 bit unknown, changes with id + # ?: 8 bit unknown, always changes + sensortype => 'GFGT_433_B1', + model => 'SD_WS_113_T', + prematch => sub { return 1; }, # no precheck known + id => sub { my ($rawData,undef) = @_; return substr($rawData,0,2); }, + temp => sub { my (undef,$bitData) = @_; + $rawTemp = SD_WS_binaryToNumber($bitData,12,13) * 256 + SD_WS_binaryToNumber($bitData,16,23); + my $tempFh = $rawTemp - 90; # Grad Fahrenheit + Log3 $name, 4, "$name: SD_WS_113_T tempraw1 = $rawTemp, temp1 = $tempFh Grad Fahrenheit"; + return (round((($tempFh - 32) * 5 / 9) , 0)); # Grad Celsius + }, + temp2 => sub { my (undef,$bitData) = @_; + $rawTemp = SD_WS_binaryToNumber($bitData,14,15) * 256 + SD_WS_binaryToNumber($bitData,24,31); + my $tempFh = $rawTemp - 90; # Grad Fahrenheit + Log3 $name, 4, "$name: SD_WS_113_T tempraw2 = $rawTemp, temp2 = $tempFh Grad Fahrenheit"; + return (round((($tempFh - 32) * 5 / 9) , 0)); # Grad Celsius + }, + crcok => sub {return 1;}, # Check could not be determined yet. + } , + 115 => { + # https://github.com/merbanan/rtl_433/blob/master/src/devices/bresser_6in1.c + # The compact 6-in-1 multifunction outdoor sensor transmits the data on 868.3 MHz. + # The device uses FSK-PCM encoding, the device sends a transmission every 12 seconds. + # There are at least two different message types: + # temperatur, hum, uv and rain (alternating messages) + # wind data (every message) + # A transmission starts with a preamble of 0xAA. + # Preamble: aa aa aa aa aa 2d d4 + # + # 1 2 3 + # 0123456789012345678901234567890123456789 + # ---------------------------------------- + # 3DA820B00C1618FFFFFF1808152294FFF01E0000 Msg 1, 40 Nibble from SIGNALduino, T: 15.2 H: 94 G:0 W: 0 D:180 + # CCCCIIIIIIIIFFGGGWWWDDD?TTT?HH????SS Msg 1, 36 Nibble + # CCCCIIIIIIIIFFGGGWWWDDD?ffRRRRVVV?SS Msg 2, 36 Nibble + # C = CRC16 + # I = station ID + # F = flags, 4 bit (1: weather station, 2: indoor?, 4: soil probe), 1 bit battery (1=ok, 0=low), 3 bit channel + # G = wind gust in 1/10 m/s, inverted, BCD coded, GGG = FE6 =~ 019 => 1.9 m/s. + # W = wind speed in 1/10 m/s, inverted, BCD coded, LSB first nibble, MSB last two nibble, WWW = EFE =~ 101 => 1.1 m/s. + # D = wind direction in grad, BCD coded, DDD = 158 => 158 ° + # ? = unknown, always 0x8 + # T = temperature in 1/10 °C, only if byte 12 ne 0xFF, BCD coded, TTT = 312 => 31.2 °C + # ? = unknown + # H = humidity in percent, only if byte 12 ne 0xFF, BCD coded, HH = 23 => 23 % + # R = rain counter, only if byte 12 eq 0xFF, inverted, BCD coded + # V = uv, only if byte 12 eq 0xFF and byte 15/16 not 0xFF01, inverted, BCD coded + # ? = unknown + # S = checksum (sum over byte 2 - 17 must be 255) + sensortype => 'Bresser_6in1, new Bresser_5in1', + model => 'SD_WS_115', + prematch => sub { return 1; }, # no precheck known + id => sub {my ($rawData,undef) = @_; return substr($rawData,4,8); }, + bat => sub {my (undef,$bitData) = @_; return substr($bitData,52,1) eq '1' ? 'ok' : 'low';}, + channel => sub {my (undef,$bitData) = @_; return (SD_WS_binaryToNumber($bitData,53,55));}, + windgust => sub {my ($rawData,undef) = @_; + $windgust = substr($rawData,14,3); + $windgust =~ tr/0123456789ABCDEF/FEDCBA9876543210/; + return if ($windgust !~ m/^\d+$/xms); + return $windgust * 0.1; + }, + windspeed => sub {my ($rawData,undef) = @_; + $windspeed = substr($rawData,18,2) . substr($rawData,17,1); + $windspeed =~ tr/0123456789ABCDEF/FEDCBA9876543210/; + return if ($windspeed !~ m/^\d+$/xms); + return $windspeed * 0.1; + }, + winddir => sub {my ($rawData,undef) = @_; + $winddir = substr($rawData,20,3); + return if ($winddir !~ m/^\d+$/xms); + return ($winddir * 1, $winddirtxtar[round(($winddir / 22.5),0)]); + }, + temp => sub {my ($rawData,undef) = @_; + return if (substr($rawData,24,2) eq 'FF'); + $rawTemp = (substr($rawData,24,1) . substr($rawData,25,1) . substr($rawData,26,1)) * 0.1; + if ($rawTemp > 60) {$rawTemp -= 100}; + return $rawTemp; + }, + hum => sub {my ($rawData,undef) = @_; + return if (substr($rawData,24,2) eq 'FF'); + return substr($rawData,28,2) + 0; + }, + rain => sub {my ($rawData,undef) = @_; + return if (substr($rawData,24,2) ne 'FF'); + $rain = substr($rawData,26,4); + $rain =~ tr/0123456789ABCDEF/FEDCBA9876543210/; + return $rain * 0.1; + }, + uv => sub {my ($rawData,undef) = @_; + return if (substr($rawData,24,2) ne 'FF' || substr($rawData,30,3) !~ m/^\d+$/xms); + $uv = substr($rawData,30,3); + return if ($uv !~ m/^\d+$/xms); + return $uv * 0.1; + }, + crcok => sub {return 1;}, # checks are in SD_Protocols.pm sub ConvBresser_6in1 + }, + 116 => { + # Thunder and lightning sensor Fine Offset WH57, aka Froggit DP60, aka Ambient Weather WH31L + # ------------------------------------------------------------------------------------------ + # Byte: 00 01 02 03 04 05 06 07 08 09 10 11 + # Nibble: 01 23 45 67 89 01 23 45 67 89 01 23 + # aa aa aa 2d d4 57 00 C6 55 01 3F 00 F6 A8 20 01 C0 + # MN;D= 57 00 C6 55 01 3F 00 F6 A8 20 01 C0 ;R=61; batteryPercent=20, count=0, distance=63, identified=nothing + # FF S? II II ?B DD LL CC SS + # FF: Family code 0x57 (FineOffset WH57) + # S: State indicator, 4 bit, 0: start-up, 1: interference, 4: noise, 8: strike + # IIII: ID (2 bytes) + # B: Battery percent: 0 - 5, 5 = 100 % + # DD: Distance (km, 63 => Out of range) + # LL: Lightning strike count + # CC: CRC8 of the preceding 7 bytes (Polynomial 0x31, Initial value 0x00, Input not reflected, Result not reflected) + # SS: Sum of the preceding 8 bytes % 256 + sensortype => 'WH57, DP60, WH31L', + model => 'SD_WS_116', + prematch => sub { ($rawData,undef) = @_; return 1 if ($rawData =~ /^57/); }, + identified => sub { my ($rawData,undef) = @_; + $identified = substr($rawData,2,1); + if ($identified eq '0') { + $identified = 'nothing'; + } elsif ($identified eq '1') { + $identified = 'noise'; + } elsif ($identified eq '4') { + $identified = 'disturbance'; + } elsif ($identified eq '8') { + $identified = 'lightning'; + } + return $identified; + }, + id => sub { my ($rawData,undef) = @_; return substr($rawData,4,4); }, + batteryPercent => sub { my ($rawData,undef) = @_; return hex(substr($rawData,9,1)) * 20; }, + distance => sub { my ($rawData,undef) = @_; return hex(substr($rawData,10,2)); }, + count => sub { my ($rawData,undef) = @_; return hex(substr($rawData,12,2)); }, + crcok => sub { my $rawData = shift; + my $rc = eval { + require Digest::CRC; + Digest::CRC->import(); + 1; + }; + if ($rc) { + my $datacheck1 = pack( 'H*', substr($rawData,0,14) ); + my $crcmein1 = Digest::CRC->new(width => 8, poly => 0x31); + my $rr3 = $crcmein1->add($datacheck1)->hexdigest; + Log3 $name, 5, "$name: SD_WS_107 Parse msg $rawData, CRC $rr3"; + if (hex($rr3) != hex(substr($rawData,14,2))) { + Log3 $name, 3, "$name: SD_WS_116 Parse msg $rawData - ERROR CRC8"; + return 0; + } + } else { + Log3 $name, 1, "$name: SD_WS_116 Parse msg $rawData - ERROR CRC not load, please install modul Digest::CRC"; + return 0; + } + my $checksum = 0; + for (my $i=0; $i < 16; $i += 2) { + $checksum += hex(substr($rawData,$i,2)); + } + $checksum &= 255; + if ($checksum != hex(substr($rawData,16,2))) { + Log3 $name, 3, "$name: SD_WS_116 Parse msg $rawData - ERROR checksum"; + return 0; + } + return 1; + } + } , + ); + + Log3 $name, 4, "$name: SD_WS_Parse protocol $protocol, rawData $rawData"; + + if ($protocol eq "37") { # Bresser 7009994 + # Protokollbeschreibung: + # https://github.com/merbanan/rtl_433_tests/tree/master/tests/bresser_3ch + # The data is grouped in 5 bytes / 10 nibbles + # ------------------------------------------------------------------------ + # 0 | 8 12 | 16 | 24 | 32 + # 1111 1100 | 0001 0110 | 0001 0000 | 0011 0111 | 0101 1001 0 65.1 F 55 % + # iiii iiii | bscc tttt | tttt tttt | hhhh hhhh | xxxx xxxx + # i: 8 bit random id (changes on power-loss) + # b: battery indicator (0=>OK, 1=>LOW) + # s: Test/Sync (0=>Normal, 1=>Test-Button pressed / Sync) + # c: Channel (MSB-first, valid channels are 1-3) + # t: Temperature (MSB-first, Big-endian) + # 12 bit unsigned fahrenheit offset by 90 and scaled by 10 + # h: Humidity (MSB-first) 8 bit relative humidity percentage + # x: checksum (byte1 + byte2 + byte3 + byte4) % 256 + # Check with e.g. (byte1 + byte2 + byte3 + byte4 - byte5) % 256) = 0 + + $model = "SD_WS37_TH"; + $SensorTyp = "Bresser 7009994"; + my $checksum = (SD_WS_binaryToNumber($bitData,0,7) + SD_WS_binaryToNumber($bitData,8,15) + SD_WS_binaryToNumber($bitData,16,23) + SD_WS_binaryToNumber($bitData,24,31)) & 0xFF; + if ($checksum != SD_WS_binaryToNumber($bitData,32,39)) { + Log3 $name, 4, "$name: SD_WS37 ERROR - checksum $checksum != ".SD_WS_binaryToNumber($bitData,32,39); + return ""; + } else { + Log3 $name, 4, "$name: SD_WS37 checksum ok $checksum = ".SD_WS_binaryToNumber($bitData,32,39); + $id = substr($rawData,0,2); + $bat = int(substr($bitData,8,1)) eq "0" ? "ok" : "low"; # Batterie-Bit konnte nicht geprueft werden + $channel = SD_WS_binaryToNumber($bitData,10,11); + $rawTemp = SD_WS_binaryToNumber($bitData,12,23); + $hum = SD_WS_binaryToNumber($bitData,24,31); + my $tempFh = $rawTemp / 10 - 90; # Grad Fahrenheit + $temp = (($tempFh - 32) * 5 / 9); # Grad Celsius + $temp = sprintf("%.1f", $temp + 0.05); # round + Log3 $name, 4, "$name: SD_WS37 tempraw = $rawTemp, temp = $tempFh F, temp = $temp C, Hum = $hum"; + Log3 $name, 4, "$name: SD_WS37 decoded protocol = $protocol ($SensorTyp), sensor id = $id, channel = $channel"; + } + } + elsif ($protocol eq "44" || $protocol eq "44x") # BresserTemeo + { + # 0 4 8 12 20 24 28 32 36 40 44 52 56 60 + # 0101 0111 1001 00010101 0010 0100 0001 1010 1000 0110 11101010 1101 1011 1110 110110010 + # hhhh hhhh ?bcc viiiiiii sttt tttt tttt xxxx xxxx ?BCC VIIIIIII Syyy yyyy yyyy + + # - h humidity / -x checksum + # - t temp / -y checksum + # - c Channel / -C checksum + # - V sign / -V checksum + # - i 7 bit random id (aendert sich beim Batterie- und Kanalwechsel) / - I checksum + # - b battery indicator (0=>OK, 1=>LOW) / - B checksum + # - s Test/Sync (0=>Normal, 1=>Test-Button pressed) / - S checksum + + $model= "BresserTemeo"; + $SensorTyp = "BresserTemeo"; + + #my $binvalue = unpack("B*" ,pack("H*", $rawData)); + my $binvalue = $bitData; + + if (length($binvalue) != 72) { + Log3 $iohash, 4, "$name: SD_WS_Parse BresserTemeo length error (72 bits expected)!!!"; + return ""; + } + + # Check what Humidity Prefix (*sigh* Bresser!!!) + if ($protocol eq "44") + { + $binvalue = "0".$binvalue; + Log3 $iohash, 4, "$name: SD_WS_Parse BresserTemeo Humidity <= 79 Flag"; + } + else + { + $binvalue = "1".$binvalue; + Log3 $iohash, 4, "$name: SD_WS_Parse BresserTemeo Humidity > 79 Flag"; + } + + Log3 $iohash, 4, "$name: SD_WS_Parse BresserTemeo new bin $binvalue"; + + my $checksumOkay = 1; + + my $hum1Dec = SD_WS_binaryToNumber($binvalue, 0, 3); + my $hum2Dec = SD_WS_binaryToNumber($binvalue, 4, 7); + my $checkHum1 = SD_WS_binaryToNumber($binvalue, 32, 35) ^ 0b1111; + my $checkHum2 = SD_WS_binaryToNumber($binvalue, 36, 39) ^ 0b1111; + + if ($checkHum1 != $hum1Dec || $checkHum2 != $hum2Dec) + { + Log3 $iohash, 4, "$name: SD_WS_Parse BresserTemeo checksum error in Humidity"; + } + else + { + $hum = $hum1Dec.$hum2Dec; + if ($hum < 1 || $hum > 100) + { + Log3 $iohash, 4, "$name: SD_WS_Parse BresserTemeo Humidity Error. Humidity=$hum"; + return ""; + } + } + + my $temp1Dec = SD_WS_binaryToNumber($binvalue, 21, 23); + my $temp2Dec = SD_WS_binaryToNumber($binvalue, 24, 27); + my $temp3Dec = SD_WS_binaryToNumber($binvalue, 28, 31); + my $checkTemp1 = SD_WS_binaryToNumber($binvalue, 53, 55) ^ 0b111; + my $checkTemp2 = SD_WS_binaryToNumber($binvalue, 56, 59) ^ 0b1111; + my $checkTemp3 = SD_WS_binaryToNumber($binvalue, 60, 63) ^ 0b1111; + $temp = $temp1Dec.$temp2Dec.".".$temp3Dec; + $temp +=0; # remove leading zeros + if ($checkTemp1 != $temp1Dec || $checkTemp2 != $temp2Dec || $checkTemp3 != $temp3Dec) + { + Log3 $iohash, 4, "$name: SD_WS_Parse BresserTemeo checksum error in Temperature"; + $checksumOkay = 0; + } + if ($temp > 60) + { + Log3 $iohash, 4, "$name: SD_WS_Parse BresserTemeo Temperature Error. temp=$temp"; + return ""; + } + + my $sign = substr($binvalue,12,1); + my $checkSign = substr($binvalue,44,1) ^ 0b1; + + if ($sign != $checkSign) + { + Log3 $iohash, 4, "$name: SD_WS_Parse BresserTemeo checksum error in Sign"; + $checksumOkay = 0; + } + else + { + if ($sign) + { + $temp = 0 - $temp + } + } + + $bat = substr($binvalue,9,1); + my $checkBat = substr($binvalue,41,1) ^ 0b1; + + if ($bat != $checkBat) + { + Log3 $iohash, 4, "$name: SD_WS_Parse BresserTemeo checksum error in Bat"; + $bat = undef; + } + else + { + $bat = ($bat == 0) ? "ok" : "low"; + } + + $channel = SD_WS_binaryToNumber($binvalue, 10, 11); + my $checkChannel = SD_WS_binaryToNumber($binvalue, 42, 43) ^ 0b11; + $id = SD_WS_binaryToNumber($binvalue, 13, 19); + my $checkId = SD_WS_binaryToNumber($binvalue, 45, 51) ^ 0b1111111; + + if ($channel != $checkChannel || $id != $checkId) + { + Log3 $iohash, 4, "$name: SD_WS_Parse BresserTemeo checksum error in Channel or Id"; + $checksumOkay = 0; + } + + if ($checksumOkay == 0) + { + Log3 $iohash, 4, "$name:SD_WS_Parse BresserTemeo checksum error!!! These Values seem incorrect: temp=$temp, channel=$channel, id=$id"; + return ""; + } + + $id = sprintf('%02X', $id); # wandeln nach hex + Log3 $iohash, 4, "$name: SD_WS_Parse model=$model, temp=$temp, hum=$hum, channel=$channel, id=$id, bat=$bat"; + + } elsif ($protocol eq "64") # WH2 + { + #* Fine Offset Electronics WH2 Temperature/Humidity sensor protocol + #* aka Agimex Rosenborg 66796 (sold in Denmark) + #* aka ClimeMET CM9088 (Sold in UK) + #* aka TFA Dostmann/Wertheim 30.3157 (Temperature only!) (sold in Germany) + #* aka ... + #* + #* The sensor sends two identical packages of 48 bits each ~48s. The bits are PWM modulated with On Off Keying + # * The data is grouped in 6 bytes / 12 nibbles + #* [pre] [pre] [type] [id] [id] [temp] [temp] [temp] [humi] [humi] [crc] [crc] + #* + #* pre is always 0xFF + #* type is always 0x4 (may be different for different sensor type?) + #* id is a random id that is generated when the sensor starts + #* temp is 12 bit signed magnitude scaled by 10 celcius + #* humi is 8 bit relative humidity percentage + #* Based on reverse engineering with gnu-radio and the nice article here: + #* http://lucsmall.com/2012/04/29/weather-station-hacking-part-2/ + # 0x4A/74 0x70/112 0xEF/239 0xFF/255 0x97/151 | Sensor ID: 0x4A7 | 255% | 239 | OK + #{ Dispatch($defs{sduino}, "W64#FF48D0C9FFBA", undef) } + + #* Message Format: + #* .- [0] -. .- [1] -. .- [2] -. .- [3] -. .- [4] -. + #* | | | | | | | | | | + #* SSSS.DDDD DDN_.TTTT TTTT.TTTT WHHH.HHHH CCCC.CCCC + #* | | | || | | | | | | || | | | + #* | | | || | | | | | | || | `--------- CRC + #* | | | || | | | | | | |`-------- Humidity + #* | | | || | | | | | | | + #* | | | || | | | | | | `---- weak battery + #* | | | || | | | | | | + #* | | | || | | | | `----- Temperature T * 0.1 + #* | | | || | | | | + #* | | | || | | `---------- Temperature T * 1 + #* | | | || | | + #* | | | || `--------------- Temperature T * 10 + #* | | | | `--- new battery + #* | | `---------- ID + #* `---- START = 9 + #* + #*/ + $msg = substr($msg,0,16); + my (undef ,$rawData) = split("#",$msg); + my $hlen = length($rawData); + my $blen = $hlen * 4; + my $msg_vor ="W64#"; + my $bitData20; + my $sign = 0; + my $rr2; + my $vorpre = -1; + my $bitData = unpack("B$blen", pack("H$hlen", $rawData)); + + my $temptyp = substr($bitData,0,8); + if( $temptyp eq '11111110' ) { + $rawData = SD_WS_WH2SHIFT($rawData); + $msg = $msg_vor.$rawData; + $bitData = unpack("B$blen", pack("H$hlen", $rawData)); + $temptyp = substr($bitData,0,8); + Log3 $iohash, 4, "$name: SD_WS_WH2_1 msg=$msg length:".length($bitData) ; + Log3 $iohash, 4, "$name: SD_WS_WH2_1 bitdata: $bitData" ; + } else { + if ( $temptyp eq '11111101' ) { + $rawData = SD_WS_WH2SHIFT($rawData); + $rawData = SD_WS_WH2SHIFT($rawData); + $msg = $msg_vor.$rawData; + $bitData = unpack("B$blen", pack("H$hlen", $rawData)); + $temptyp = substr($bitData,0,8); + Log3 $iohash, 4, "$name: SD_WS_WH2_2 msg=$msg length:".length($bitData) ; + Log3 $iohash, 4, "$name: SD_WS_WH2_2 bitdata: $bitData" ; + } + } + + if( $temptyp eq '11111111' ) { + $vorpre = 8; + }else{ + Log3 $iohash, 4, "$name: SD_WS_WH2_4 Error kein WH2: Typ: $temptyp" ; + return ""; + } + + my $rc = eval + { + require Digest::CRC; + Digest::CRC->import(); + 1; + }; + + if($rc) + { + # Digest::CRC loaded and imported successfully + Log3 $iohash, 4, "$name: SD_WS_WH2_1 msg: $msg raw: $rawData " ; + $rr2 = SD_WS_WH2CRCCHECK($rawData); + if ($rr2 == 0 ){ + # 1.CRC OK + Log3 $iohash, 4, "$name: SD_WS_WH2_1 CRC_OK : CRC=$rr2 msg: $msg check:".$rawData ; + }else{ + Log3 $iohash, 4, "$name: SD_WS_WH2_4 CRC_Error: CRC=$rr2 msg: $msg check:".$rawData ; + return ""; + } + }else { + Log3 $iohash, 1, "$name: SD_WS_WH2_3 CRC_not_load: Modul Digest::CRC fehlt" ; + return ""; + } + + $bitData = unpack("B$blen", pack("H$hlen", $rawData)); + Log3 $iohash, 4, "$name: converted to bits WH2 " . $bitData; + $model = "SD_WS_WH2"; + $SensorTyp = "WH2, WH2A"; + $id = SD_WS_bin2dec(substr($bitData,$vorpre + 4,6)); + $id = sprintf('%03X', $id); + $channel = 0; + $bat = SD_WS_binaryToNumber($bitData,$vorpre + 24) eq "1" ? "low" : "ok"; + + $sign = SD_WS_bin2dec(substr($bitData,$vorpre + 12,1)); + + if ($sign == 0) { + # Temp positiv + $temp = (SD_WS_bin2dec(substr($bitData,$vorpre + 13,11))) / 10; + } else { + # Temp negativ + $temp = -(SD_WS_bin2dec(substr($bitData,$vorpre + 13,11))) / 10; + } + Log3 $iohash, 4, "$name: decoded protocolid $protocol ($SensorTyp) sensor id=$id, Data:".substr($bitData,$vorpre + 12,12)." temp=$temp"; + $hum = SD_WS_bin2dec(substr($bitData,$vorpre + 24,8)); # TFA 30.3157 nur Temp, Hum = 255 + Log3 $iohash, 4, "$name: SD_WS_WH2_8 $protocol ($SensorTyp) sensor id=$id, Data:".substr($bitData,$vorpre + 24,8)." hum=$hum"; + Log3 $iohash, 4, "$name: SD_WS_WH2_9 $protocol ($SensorTyp) sensor id=$id, channel=$channel, temp=$temp, hum=$hum"; + + } + + elsif (defined($decodingSubs{$protocol})) # durch den hash decodieren + { + $SensorTyp=$decodingSubs{$protocol}{sensortype}; + if (!$decodingSubs{$protocol}{prematch}->( $rawData )) { + Log3 $iohash, 4, "$name: SD_WS_Parse $rawData protocolid $protocol ($SensorTyp) - ERROR prematch" ; + return ""; + } + my $retcrc=$decodingSubs{$protocol}{crcok}->( $rawData,$bitData ); + if (!$retcrc) { + Log3 $iohash, 4, "$name: SD_WS_Parse $rawData protocolid $protocol ($SensorTyp) - ERROR CRC"; + return ""; + } + $id = $decodingSubs{$protocol}{id}->( $rawData,$bitData ); + $temp = $decodingSubs{$protocol}{temp}->( $rawData,$bitData ) if (exists($decodingSubs{$protocol}{temp})); + $temp2 = $decodingSubs{$protocol}{temp2}->( $rawData,$bitData ) if (exists($decodingSubs{$protocol}{temp2})); + $hum = $decodingSubs{$protocol}{hum}->( $rawData,$bitData ) if (exists($decodingSubs{$protocol}{hum})); + $windspeed = $decodingSubs{$protocol}{windspeed}->( $rawData,$bitData ) if (exists($decodingSubs{$protocol}{windspeed})); + ($winddir,$winddirtxt) = $decodingSubs{$protocol}{winddir}->( $rawData,$bitData ) if (exists($decodingSubs{$protocol}{winddir})); + $windgust = $decodingSubs{$protocol}{windgust}->( $rawData,$bitData ) if (exists($decodingSubs{$protocol}{windgust})); + $channel = $decodingSubs{$protocol}{channel}->( $rawData,$bitData ) if (exists($decodingSubs{$protocol}{channel})); + $model = $decodingSubs{$protocol}{model}; + $bat = $decodingSubs{$protocol}{bat}->( $rawData,$bitData ) if (exists($decodingSubs{$protocol}{bat})); + $batVoltage = $decodingSubs{$protocol}{batVoltage}->( $rawData,$bitData ) if (exists($decodingSubs{$protocol}{batVoltage})); + $batChange = $decodingSubs{$protocol}{batChange}->( $rawData,$bitData ) if (exists($decodingSubs{$protocol}{batChange})); + $batteryPercent = $decodingSubs{$protocol}{batteryPercent}->( $rawData,$bitData ) if (exists($decodingSubs{$protocol}{batteryPercent})); + $rawRainCounter = $decodingSubs{$protocol}{rawRainCounter}->( $rawData,$bitData ) if (exists($decodingSubs{$protocol}{rawRainCounter})); + $rain = $decodingSubs{$protocol}{rain}->( $rawData,$bitData ) if (exists($decodingSubs{$protocol}{rain})); + $rain_total = $decodingSubs{$protocol}{rain_total}->( $rawData,$bitData ) if (exists($decodingSubs{$protocol}{rain_total})); + $sendCounter = $decodingSubs{$protocol}{sendCounter}->( $rawData,$bitData ) if (exists($decodingSubs{$protocol}{sendCounter})); + $beep = $decodingSubs{$protocol}{beep}->( $rawData,$bitData ) if (exists($decodingSubs{$protocol}{beep})); + $adc = $decodingSubs{$protocol}{adc}->( $rawData,$bitData ) if (exists($decodingSubs{$protocol}{adc})); + if ($model eq "SD_WS_33_T" || $model eq "SD_WS_58_T") { # for SD_WS_33 or SD_WS_58 discrimination T - TH + $model = $decodingSubs{$protocol}{model}."H" if $hum != 0; # for models with Humidity + } + $sendmode = $decodingSubs{$protocol}{sendmode}->( $rawData,$bitData ) if (exists($decodingSubs{$protocol}{sendmode})); + $trend = $decodingSubs{$protocol}{trend}->( $rawData,$bitData ) if (exists($decodingSubs{$protocol}{trend})); + $distance = $decodingSubs{$protocol}{distance}->( $rawData,$bitData ) if (exists($decodingSubs{$protocol}{distance})); + $count = $decodingSubs{$protocol}{count}->( $rawData,$bitData ) if (exists($decodingSubs{$protocol}{count})); + $identified = $decodingSubs{$protocol}{identified}->( $rawData,$bitData ) if (exists($decodingSubs{$protocol}{identified})); + $uv = $decodingSubs{$protocol}{uv}->( $rawData,$bitData ) if (exists($decodingSubs{$protocol}{uv})); + Log3 $iohash, 4, "$name: SD_WS_Parse decoded protocol-id $protocol ($SensorTyp), sensor-id $id"; + } + else { + Log3 $iohash, 2, "$name: SD_WS_Parse unknown message, please report. converted to bits: $bitData"; + return; + } + + if (!defined($model)) { + return; + } + + my $deviceCode; + + my $longids = AttrVal($ioname,'longids',0); + if (($longids ne "0") && ($longids eq "1" || $longids eq "ALL" || (",$longids," =~ m/,$model,/))) + { + $deviceCode = $model . '_' . $id; # for sensors without channel + $deviceCode .= $channel if (defined $channel); # old form of longid + if (!defined($modules{SD_WS}{defptr}{$deviceCode})) { + $deviceCode = $model . '_' . $id; # for sensors without channel + $deviceCode .= '_' . $channel if (defined $channel); # new form of longid + } + Log3 $iohash,4, "$name: using longid for $longids device $deviceCode"; + } else { + $deviceCode = $model; # for sensors without channel + $deviceCode .= '_' . $channel if (defined $channel); + } + + my $def = $modules{SD_WS}{defptr}{$deviceCode}; + $def = $modules{SD_WS}{defptr}{$deviceCode} if(!$def); + + if(!$def) { + Log3 $iohash, 1, "$name: SD_WS_Parse UNDEFINED sensor $model detected, code $deviceCode"; + return "UNDEFINED $deviceCode SD_WS $deviceCode"; + } + + my $hash = $def; + $name = $hash->{NAME}; + return "" if(IsIgnored($name)); + + if (defined $temp) { + if (($temp < -30 || $temp > 70) && $protocol ne '106' && $protocol ne '113') { # not forBBQ temperature sensor GT-TMBBQ-01s and Wireless Grill Thermometer GFGT 433 B1 + Log3 $name, 3, "$ioname: SD_WS_Parse $deviceCode - ERROR temperature $temp"; + return ""; + } + } + if (defined $hum) { + if ($hum > 100) { + Log3 $name, 3, "$ioname: SD_WS_Parse $deviceCode - ERROR humidity $hum"; + return ""; + } + } + + # Sanity checks + if($def && $protocol ne '106' && $protocol ne '113') { # not forBBQ temperature sensor GT-TMBBQ-01s and Wireless Grill Thermometer GFGT 433 B1 + my $timeSinceLastUpdate = abs(ReadingsAge($name, "state", 0)); + # temperature + if (defined($temp) && defined(ReadingsVal($name, "temperature", undef))) { + my $diffTemp = 0; + my $oldTemp = ReadingsVal($name, "temperature", undef); + my $maxdeviation = AttrVal($name, "max-deviation-temp", 1); # default 1 K + if ($temp > $oldTemp) { + $diffTemp = ($temp - $oldTemp); + } else { + $diffTemp = ($oldTemp - $temp); + } + $diffTemp = sprintf("%.1f", $diffTemp); + Log3 $name, 4, "$ioname: $name old temp $oldTemp, age $timeSinceLastUpdate, new temp $temp, diff temp $diffTemp"; + my $maxDiffTemp = $timeSinceLastUpdate / 60 + $maxdeviation; # maxdeviation + 1.0 Kelvin/Minute + $maxDiffTemp = sprintf("%.1f", $maxDiffTemp + 0.05); # round 0.1 + Log3 $name, 4, "$ioname: $name max difference temperature $maxDiffTemp K"; + if ($diffTemp > $maxDiffTemp) { + Log3 $name, 3, "$ioname: $name ERROR - Temp diff too large (old $oldTemp, new $temp, diff $diffTemp)"; + return ""; + } + } + # humidity + if (defined($hum) && defined(ReadingsVal($name, "humidity", undef))) { + my $diffHum = 0; + my $oldHum = ReadingsVal($name, "humidity", undef); + my $maxdeviation = AttrVal($name, "max-deviation-hum", 1); # default 1 % + if ($hum > $oldHum) { + $diffHum = ($hum - $oldHum); + } else { + $diffHum = ($oldHum - $hum); + } + $diffHum = sprintf("%.1f", $diffHum); + Log3 $name, 4, "$ioname: $name old hum $oldHum, age $timeSinceLastUpdate, new hum $hum, diff hum $diffHum"; + my $maxDiffHum = $timeSinceLastUpdate / 60 + $maxdeviation; # $maxdeviation + 1.0 %/Minute + $maxDiffHum = sprintf("%1.f", $maxDiffHum + 0.5); # round 1 + Log3 $name, 4, "$ioname: $name max difference humidity $maxDiffHum %"; + if ($diffHum > $maxDiffHum) { + Log3 $name, 3, "$ioname: $name ERROR - Hum diff too large (old $oldHum, new $hum, diff $diffHum)"; + return ""; + } + } + } + + Log3 $name, 4, "$ioname: SD_WS_Parse $name ($rawData)"; + + $hash->{lastReceive} = time(); + $hash->{lastMSG} = $rawData; + if (defined($bitData2)) { + $hash->{bitMSG} = $bitData2; + } else { + $hash->{bitMSG} = $bitData; + } + + #my $state = (($temp > -60 && $temp < 70) ? "T: $temp":"T: xx") . (($hum > 0 && $hum < 100) ? " H: $hum":""); + my $state = ""; + if (defined($temp)) { + $state .= "T: $temp" + } + if (defined($temp2)) { + $state .= ' ' if (length($state) > 0); + $state .= "T2: $temp2"; + } + if (defined($hum) && ($hum > 0 && $hum < 100)) { + $state .= " H: $hum" + } + if (defined($windspeed)) { + $state .= ' ' if (length($state) > 0); + $state .= "W: $windspeed" + } + if (defined($rain_total)) { + $state .= ' ' if (length($state) > 0); + $state .= "R: $rain_total" + } + if (defined($rain)) { + $state .= ' ' if (length($state) > 0); + $state .= "R: $rain" + } + if (defined($identified)) { + $state .= ' ' if (length($state) > 0); + $state .= "I: $identified"; + } + if (defined($distance)) { + $state .= ' ' if (length($state) > 0); + $state .= "D: $distance"; + } + ### protocol 33 has different bits per sensor type + if ($protocol eq "33") { + if (AttrVal($name,'model',0) eq "S522") { # Conrad S522 + $bat = undef; + $trendTemp = ('consistent', 'rising', 'falling', 'unknown')[SD_WS_binaryToNumber($bitData,36,37)]; + } elsif (AttrVal($name,'model',0) eq "E0001PA") { # renkforce E0001PA + $bat = substr($bitData,35,1) eq "0" ? "ok" : "low"; + $sendmode = substr($bitData,34,1) eq "1" ? "manual" : "auto"; + } elsif (AttrVal($name,'model',0) eq "TX-EZ6") { # TZS First Austria TX-EZ6 + $bat = substr($bitData,35,1) eq "0" ? "ok" : "low"; + $sendmode = substr($bitData,34,1) eq "1" ? "manual" : "auto"; + $trendTemp = ('consistent', 'rising', 'falling', 'unknown')[SD_WS_binaryToNumber($bitData,10,11)]; + $trendHum = ('consistent', 'rising', 'falling', 'unknown')[SD_WS_binaryToNumber($bitData,36,37)]; + } + } + + readingsBeginUpdate($hash); + readingsBulkUpdate($hash, "state", $state); + readingsBulkUpdate($hash, "temperature", $temp) if (defined($temp) && (($temp > -60 && $temp < 70 ) || $protocol eq '106' || $protocol eq '113')); + readingsBulkUpdate($hash, "temperature2", $temp2) if (defined($temp2) && (($temp2 > -60 && $temp < 70 ) || $protocol eq '113')); + readingsBulkUpdate($hash, "humidity", $hum) if (defined($hum) && ($hum > 0 && $hum < 100 )) ; + readingsBulkUpdate($hash, 'windSpeed', $windspeed) if (defined($windspeed)) ; + readingsBulkUpdate($hash, 'windDirectionDegree', $winddir) if (defined($winddir)) ; + readingsBulkUpdate($hash, 'windDirectionText', $winddirtxt) if (defined($winddirtxt)) ; + readingsBulkUpdate($hash, 'windGust', $windgust) if (defined($windgust)) ; + readingsBulkUpdate($hash, "batteryState", $bat) if (defined($bat) && length($bat) > 0) ; + readingsBulkUpdate($hash, "batteryVoltage", $batVoltage) if (defined($batVoltage)); + readingsBulkUpdate($hash, 'batteryPercent', $batteryPercent) if (defined($batteryPercent)); + readingsBulkUpdateIfChanged($hash, "batteryChanged", $batChange) if (defined($batChange)); + readingsBulkUpdate($hash, "channel", $channel, 0) if (defined($channel)&& length($channel) > 0); + readingsBulkUpdate($hash, "trend", $trend) if (defined($trend) && length($trend) > 0); + readingsBulkUpdate($hash, "temperatureTrend", $trendTemp) if (defined($trendTemp) && length($trendTemp) > 0); + readingsBulkUpdate($hash, "humidityTrend", $trendHum) if (defined($trendHum) && length($trendHum) > 0); + readingsBulkUpdate($hash, "sendmode", $sendmode) if (defined($sendmode) && length($sendmode) > 0); + readingsBulkUpdate($hash, "type", $SensorTyp, 0) if (defined($SensorTyp)); + readingsBulkUpdate($hash, "beep", $beep) if (defined($beep)); + readingsBulkUpdate($hash, "adc", $adc) if (defined($adc)); + readingsBulkUpdate($hash, 'rain', $rain) if (defined($rain)); + readingsBulkUpdate($hash, "rawRainCounter", $rawRainCounter) if (defined($rawRainCounter)); + readingsBulkUpdate($hash, "rain_total", $rain_total) if (defined($rain_total)); + readingsBulkUpdate($hash, "sendCounter", $sendCounter) if (defined($sendCounter)); + readingsBulkUpdate($hash, "distance", $distance) if (defined($distance)); + readingsBulkUpdate($hash, 'count', $count) if (defined($count)); + readingsBulkUpdate($hash, 'identified', $identified) if (defined($identified)); + readingsBulkUpdate($hash, "uv", $uv) if (defined($uv)); + readingsEndUpdate($hash, 1); # Notify is done by Dispatch + + return $name; } ############################# -sub SD_WS_Define($$) -{ - my ($hash, $def) = @_; - my @a = split("[ \t][ \t]*", $def); - - return "wrong syntax: define SD_WS ".int(@a) if(int(@a) < 3 ); - - $hash->{CODE} = $a[2]; - $hash->{lastMSG} = ""; - $hash->{bitMSG} = ""; - - $modules{SD_WS}{defptr}{$a[2]} = $hash; - $hash->{STATE} = "Defined"; - - my $name= $hash->{NAME}; - return undef; -} - -################################### -sub SD_WS_Undef($$) -{ - my ($hash, $name) = @_; - delete($modules{SD_WS}{defptr}{$hash->{CODE}}) - if(defined($hash->{CODE}) && defined($modules{SD_WS}{defptr}{$hash->{CODE}})); - return undef; -} - - -################################### -sub SD_WS_Parse($$) -{ - my ($iohash, $msg) = @_; - #my $rawData = substr($msg, 2); - my $name = $iohash->{NAME}; - my $ioname = $iohash->{NAME}; - my ($protocol,$rawData) = split("#",$msg); - $protocol=~ s/^[WP](\d+)/$1/; # extract protocol - my $dummyreturnvalue= "Unknown, please report"; - my $hlen = length($rawData); - my $blen = $hlen * 4; - my $bitData = unpack("B$blen", pack("H$hlen", $rawData)); - my $bitData2; - my $model; # wenn im elsif Abschnitt definiert, dann wird der Sensor per AutoCreate angelegt - my $SensorTyp; - my $id; - my $bat; - my $batChange; - my $sendmode; - my $channel; - my $rawTemp; - my $temp; - my $hum; - my $windspeed; - my $trend; - my $trendTemp; - my $trendHum; - my $rain_total; - my $rawRainCounter; - my $sendCounter; - my $beep; - - my %decodingSubs = ( - 50 => # Protocol 50 - # FF550545FF9E - # FF550541FF9A - # AABCDDEEFFGG - # A = Preamble, always FF - # B = TX type, always 5 - # C = Address (5/6/7) > low 2 bits = 1/2/3 - # D = Soil moisture 05% - # E = temperature - # F = security code, always F - # G = Checksum 55+05+45+FF=19E CRC value = 9E - { # subs to decode this - sensortype => 'XT300', - model => 'SD_WS_50_SM', - prematch => sub {my $msg = shift; return 1 if ($msg =~ /^FF5[0-9A-F]{5}FF[0-9A-F]{2}/); }, # prematch - crcok => sub {my $msg = shift; return 1 if ((hex(substr($msg,2,2))+hex(substr($msg,4,2))+hex(substr($msg,6,2))+hex(substr($msg,8,2))&0xFF) == (hex(substr($msg,10,2))) ); }, # crc - id => sub {my $msg = shift; return (hex(substr($msg,2,2)) &0x03 ); }, #id - temp => sub {my $msg = shift; return ((hex(substr($msg,6,2)))-40) }, #temp - hum => sub {my $msg = shift; return hex(substr($msg,4,2)); }, #hum - channel => sub {my (undef,$bitData) = @_; return ( SD_WS_binaryToNumber($bitData,12,15)&0x03 ); }, #channel - bat => sub { return "";}, - }, - 71 => - # 5C2A909F792F - # 589A829FDFF4 - # PiiTTTK?CCCC - # P = Preamble (immer 5 ?) - # i = ID - # T = Temperatur - # K = Kanal (B/A/9) - # ? = immer F ? - # C = Checksum ? - { - sensortype => 'PV-8644', - model => 'SD_WS71_T', - prematch => sub {my $msg = shift; return 1 if ($msg =~ /^5[A-F0-9]{6}F[A-F0-9]{2}/); }, # prematch - crcok => sub {return 1; }, # crc is unknown - id => sub {my (undef,$bitData) = @_; return SD_WS_binaryToNumber($bitData,4,11); }, # id - temp => sub {my (undef,$bitData) = @_; return ((SD_WS_binaryToNumber($bitData,12,23) - 2448) / 10); }, #temp - channel => sub {my (undef,$bitData) = @_; return SD_WS_binaryToNumber($bitData,26,27); }, #channel - hum => sub {return undef;}, - bat => sub {return undef;}, - }, - 27 => - { - # Protokollbeschreibung: Temperatur-/Feuchtigkeitssensor EuroChron EFTH-800, EFS-3110A - # ------------------------------------------------------------------------------------ - # 0 4 | 8 12 | 16 20 | 24 28 | 32 36 | 40 44 - # 0000 1001 | 0001 0110 | 0001 0000 | 0000 0000 | 0100 1001 | 0100 0000 - # ?ccc iiii | iiii iiii | bstt tttt | tttt ???? | hhhh hhhh | xxxx xxxx - # c: 3 bit channel valid channels are 0-7 (stands for channel 1-8) - # i: 12 bit random id (changes on power-loss) - # b: 1 bit battery indicator (0=>OK, 1=>LOW) - # s: 1 bit sign temperature (0=>negative, 1=>positive) - # t: 10 bit unsigned temperature, scaled by 10 - # h: 8 bit relative humidity percentage (BCD) - # x: 8 bit CRC8 - # ?: unknown (Bit 0, 28-31, always 0000 by EFTH-800, 1000 by EFS-3110A) - # The sensor sends two messages at intervals of about 57-58 seconds - sensortype => 'EFTH-800, EFS-3110A', - model => 'SD_WS_27_TH', - # prematch => sub {my $rawData = shift; return 1 if ($rawData =~ /^[0-9A-F]{7}0[0-9]{2}[0-9A-F]{2}$/); }, # prematch 113C49A 0 47 AE (EFTH-800) - prematch => sub {my $rawData = shift; return 1 if ($rawData =~ /^[0-9A-F]{7}0|8[0-9]{2}[0-9A-F]{2}$/); }, # prematch 3F94519 8 55 C7 (EFS-3110A) - channel => sub {my (undef,$bitData) = @_; return (SD_WS_binaryToNumber($bitData,1,3) + 1 ); }, - id => sub {my (undef,$bitData) = @_; return substr($rawData,1,3); }, - bat => sub {my (undef,$bitData) = @_; return substr($bitData,16,1) eq "0" ? "ok" : "low";}, - temp => sub {my (undef,$bitData) = @_; return substr($bitData,17,1) eq "0" ? ((SD_WS_binaryToNumber($bitData,18,27) - 1024) / 10.0) : (SD_WS_binaryToNumber($bitData,18,27) / 10.0);}, - hum => sub {my (undef,$bitData) = @_; return (SD_WS_binaryToNumber($bitData,32,35) * 10) + (SD_WS_binaryToNumber($bitData,36,39));}, - crcok => sub {my $rawData = shift; - my $rc = eval - { - require Digest::CRC; - Digest::CRC->import(); - 1; - }; - if ($rc) { - my $datacheck1 = pack( 'H*', substr($rawData,0,10) ); - my $crcmein1 = Digest::CRC->new(width => 8, poly => 0x31); - my $rr3 = $crcmein1->add($datacheck1)->hexdigest; - Log3 $name, 4, "$name: SD_WS_27 Parse msg $rawData, CRC $rr3"; - if (hex($rr3) == hex(substr($rawData,-2))) { - return 1; - } else { - return 0; - } - } else { - Log3 $name, 1, "$name: SD_WS_27 Parse msg $rawData - ERROR CRC not load, please install modul Digest::CRC"; - return 0; - } - } - } , - 33 => - { - # Protokollbeschreibung: Conrad Temperatursensor S522 fuer Funk-Thermometer S521B - # ------------------------------------------------------------------------ - # 0 4 | 8 12 | 16 20 | 24 28 | 32 36 40 - # 1111 1100 | 0001 0110 | 0001 0000 | 0011 0111 | 0100 1001 01 - # iiii iiii | iiuu cctt | tttt tttt | tthh hhhh | hhuu bgxx xx - # i: 10 bit random id (changes on power-loss) - Bit 0 + 1 every 0 ??? - # b: battery indicator (0=>OK, 1=>LOW) - # g: battery changed (1=>changed) - muss noch genauer getestet werden! ???? - # c: Channel (MSB-first, valid channels are 0x00-0x02 -> 1-3) - # t: Temperature (MSB-first, BCD, 12 bit unsigned fahrenheit offset by 90 and scaled by 10) - # h: always 0 - # u: unknown - # x: check - - # Protokollbeschreibung: renkforce Temperatursensor E0001PA fuer Funk-Wetterstation E0303H2TPR (Conrad) - # ------------------------------------------------------------------------ - # 0 4 | 8 12 | 16 20 | 24 28 | 32 36 40 - # iiii iiii | iiuu cctt | tttt tttt | tthh hhhh | hhsb uuxx xx - # h: Humidity (MSB-first, BCD, 8 bit relative humidity percentage) - # s: sendmode (1=>Test push, send manual 0=>automatic send) - # i: | c: | t: | h: | b: | u: | x: same like S522 - - # Protokollbeschreibung: Temperatur-/Fechtesensor TX-EZ6 fuer Wetterstation TZS First Austria - # ------------------------------------------------------------------------ - # 0 4 | 8 12 | 16 20 | 24 28 | 32 36 40 - # iiii iiii | iiHH cctt | tttt tttt | tthh hhhh | hhsb TTxx xx - # H: Humidity trend, 00 = equal, 01 = up, 10 = down - # T: Temperature trend, 00 = equal, 01 = up, 10 = down - # i: | c: | t: | h: | s: | b: | x: same like E0001PA - - sensortype => 'E0001PA, s014, S522, TCM, TFA 30.3200, TX-EZ6', - model => 'SD_WS_33_T', - prematch => sub {my $msg = shift; return 1 if ($msg =~ /^[0-9A-F]{11}$/); }, # prematch - crcok => sub { my (undef,$bitData) = @_; - my $crc = 0; - for (my $i=0; $i < 34; $i++) { - if (substr($bitData, $i, 1) == ($crc & 1)) { - $crc >>= 1; - } else { - $crc = ($crc>>1) ^ 12; - } - } - $crc ^= SD_WS_bin2dec(reverse(substr($bitData, 34, 4))); - if ($crc == SD_WS_bin2dec(reverse(substr($bitData, 38, 4)))) { - return 1; - } else { - Log3 $name, 3, "$name: SD_WS_33 Parse msg $msg - ERROR check $crc != " . SD_WS_bin2dec(reverse(substr($bitData, 38, 4))); - return 0; - } - }, - id => sub {my (undef,$bitData) = @_; return SD_WS_binaryToNumber($bitData,0,9); }, # id - temp => sub {my (undef,$bitData) = @_; return round(((SD_WS_binaryToNumber($bitData,22,25)*256 + SD_WS_binaryToNumber($bitData,18,21)*16 + SD_WS_binaryToNumber($bitData,14,17)) - 1220) * 5 / 90.0 , 1); }, #temp - hum => sub {my (undef,$bitData) = @_; return (SD_WS_binaryToNumber($bitData,30,33)*16 + SD_WS_binaryToNumber($bitData,26,29)); }, #hum - channel => sub {my (undef,$bitData) = @_; return (SD_WS_binaryToNumber($bitData,12,13)+1 ); }, #channel - bat => sub {my (undef,$bitData) = @_; return substr($bitData,34,1) eq "0" ? "ok" : "low";}, # other or modul orginal - } , - 38 => - { - # Protokollbeschreibung: NC-3911, NC-3912 - Rosenstein & Soehne Digitales Kuehl- und Gefrierschrank-Thermometer - # ------------------------------------------------------------------------------------------------------------- - # 0 4 | 8 12 | 16 20 | 24 28 | 32 - # 0000 1001 | 1001 0110 | 0001 0000 | 0000 0111 | 0100 - # iiii iiii | bpcc tttt | tttt tttt | ssss ssss | ???? - # i: 8 bit random id (changes on power-loss) - # b: 1 bit battery indicator (1=>OK, 0=>LOW) - # p: 1 bit beep alarm indicator (1=>ON, 0=>OFF) - # c: 2 bit channel, valid channels are 1 and 2 - # t: 12 bit unsigned temperature, offset 500, scaled by 10 - # s: 8 bit checksum - # ?: 4 bit equal - sensortype => 'NC-3911', - model => 'SD_WS_38_T', - prematch => sub {my $msg = shift; return 1 if ($msg =~ /^[0-9A-F]{9}$/); }, - id => sub {my (undef,$bitData) = @_; return substr($rawData,0,2); }, - bat => sub {my (undef,$bitData) = @_; return substr($bitData,8,1) eq "1" ? "ok" : "low";}, - beep => sub {my (undef,$bitData) = @_; return substr($bitData,9,1) eq "1" ? "on" : "off"; }, - channel => sub {my (undef,$bitData) = @_; return SD_WS_binaryToNumber($bitData,10,11); }, - temp => sub {my (undef,$bitData) = @_; return ((SD_WS_binaryToNumber($bitData,12,23) - 500) / 10.0); }, - crcok => sub {my $msg = shift; - my @n = split //, $msg; - my $sum1 = hex($n[0]) + hex($n[2]) + hex($n[4]) + 6; - my $sum2 = hex($n[1]) + hex($n[3]) + hex($n[5]) + 6 + ($sum1 >> 4); - if (($sum1 & 0x0F) == hex($n[6]) && ($sum2 & 0x0F) == hex($n[7])) { - return 1; - } else { - Log3 $name, 3, "$name: SD_WS_38 Parse msg $msg - ERROR checksum " . ($sum1 & 0x0F) . "=" . hex($n[6]) . " " . ($sum2 & 0x0F) . "=" . hex($n[7]); - return 0; - } - }, - } , - 51 => - { - # Auriol Message Format (rflink/Plugin_044.c): - # 0 4 8 12 16 20 24 28 32 36 - # 1011 1111 1001 1010 0110 0001 1011 0100 1001 0001 - # B F 9 A 6 1 B 4 9 1 - # iiii iiii ???? sbTT tttt tttt tttt hhhh hhhh ??cc - # i = ID - # ? = unknown (0-15 check?) - # s = sendmode (1=manual, 0=auto) - # b = possibly battery indicator (1=low, 0=ok) - # T = temperature trend (2 bits) indicating temp equal/up/down - # t = Temperature => 0x61b (0x61b-0x4c4)=0x157 *5)=0x6b3 /9)=0xBE => 0xBE = 190 decimal! - # h = humidity (4x10+9=49%) - # ? = unknown (always 00?) - # c = channel: 1 (2 bits) - sensortype => 'Auriol IAN 275901, IAN 114324, IAN 60107', - model => 'SD_WS_51_TH', - prematch => sub {my $msg = shift; return 1 if ($msg =~ /^[0-9A-F]{9}[1-3]$/);}, # 10 nibbles, 9 hex chars, only channel 1-3 - # prematch => sub {my $msg = shift; return 1 if ($msg =~ /^[0-9A-F]{10}$/);}, # 10 nibbles, all hex chars - crcok => sub {return 1; }, # crc is unknown - id => sub {my (undef,$bitData) = @_; return substr($rawData,0,2);}, # long-id in hex - sendmode => sub {my (undef,$bitData) = @_; return substr($bitData,12,1) eq "1" ? "manual" : "auto";}, - bat => sub {my (undef,$bitData) = @_; return substr($bitData,13,1) eq "1" ? "low" : "ok";}, - trend => sub {my (undef,$bitData) = @_; return ('consistent', 'rising', 'falling', 'unknown')[SD_WS_binaryToNumber($bitData,14,15)];}, - temp => sub {my (undef,$bitData) = @_; return round(((SD_WS_binaryToNumber($bitData,16,27)) - 1220) * 5 / 90.0 , 1); }, - hum => sub {my (undef,$bitData) = @_; return (SD_WS_binaryToNumber($bitData,28,31) * 10) + (SD_WS_binaryToNumber($bitData,32,35));}, - channel => sub {my (undef,$bitData) = @_; return (SD_WS_binaryToNumber($bitData,38,39) );}, - }, - 53 => - { - # AURIOL AHFL 433 B2 IAN 314695 Message Format - # ---------------------------------------------------- - # 0 4 8 12 16 20 24 28 32 36 40 - # 0000 0111 0000 0000 1101 1111 0111 1010 0100 1110 00 - # iiii iiii b?cc tttt tttt tttt hhhh hhh? ???? ssss ss - # i: 8 bit random id (changes on power-loss) - # b: 1 bit battery indicator (0=>OK, 1=>LOW) - # c: 2 bit channel, valid channels are 1-3 - # t: 12 bit signed temperature, scaled by 10 - # h: 7 bit humidity - # s: 6 bit checksum (sum over nibble 0 - 8) - # ?: x bit unknown (bit 32-35 always 0100) - sensortype => 'Auriol IAN 314695', - model => 'SD_WS_53_TH', - # prematch => sub {my $msg = shift; return 1 if ($msg =~ /^[0-9A-F]{11}$/); }, # prematch - prematch => sub {my $msg = shift; return 1 if ($msg =~ /^[0-9A-F]{8}4[0-9A-F]{2}$/); }, # prematch 0700F276 4 A4 - crcok => sub { my (undef,$bitData) = @_; - my $sum = 0; - for (my $n = 0; $n < 36; $n += 4) { - $sum += SD_WS_binaryToNumber($bitData, $n, $n + 3) - } - if (($sum &= 0x3F) == SD_WS_binaryToNumber($bitData, 36, 41)) { - return 1; - } else { - Log3 $name, 3, "$name: SD_WS_53 Parse msg $msg - ERROR checksum $sum != " . SD_WS_binaryToNumber($bitData, 36, 41); - return 0; - } - }, - id => sub {my (undef,$bitData) = @_; return substr($rawData,0,2);}, # long-id in hex - bat => sub {my (undef,$bitData) = @_; return substr($bitData,8,1) eq "1" ? "low" : "ok";}, - channel => sub {my (undef,$bitData) = @_; return (SD_WS_binaryToNumber($bitData,10,11) + 1);}, - temp => sub {my (undef,$bitData) = @_; return substr($bitData,12,1) eq "1" ? ((SD_WS_binaryToNumber($bitData,12,23) - 4096) / 10.0) : (SD_WS_binaryToNumber($bitData,12,23) / 10.0);}, - hum => sub {my (undef,$bitData) = @_; return (SD_WS_binaryToNumber($bitData,24,30) );}, - }, - 54 => { - # TFA Drop Rainmeter 30.3233.01 - # ---------------------------------------------------------------------------------- - # 0 8 16 24 32 40 48 56 64 - 01234567890123456 - # 00111101 10011100 01000011 00001010 00011011 10101010 00000001 10001001 1000 - 3D9C430A1BAA01898 - # 00111101 10011100 01000011 00000110 00011000 10101010 00000001 00110100 0000 - 3D9C430618AA01340 - # PPPPIIII IIIIIIII IIIIIIII BCUUXXXU RRRRRRRR FFFFFFFF SSSSSSSS MMMMMMMM KKKK - # P: 4 bit message prefix, always 0x3 - # I: 20 bit Sensor ID - # B: 1 bit Battery indicator, 0 if battery OK, 1 if battery is low. - # C: 1 bit Device reset, set to 1 briefly after battery insert. - # X: 3 bit Transmission counter, rolls over. - # R: 8 bit LSB of 16-bit little endian rain counter - # F: 8 bit Fixed to 0xaa - # S: 8 bit MSB of 16-bit little endian rain counter - # M: 8 bit Checksum, compute with reverse Galois LFSR with byte reflection, generator 0x31 and key 0xf4. - # K: 4 bit Unknown, either b1011 or b0111. - Distribution: 50:50 ??? - # U: Unknown - # The rain counter starts at 65526 to indicate 0 tips of the bucket. The counter rolls over at 65535 to 0, which corresponds to 9 and 10 tips of the bucket. - # Each tip of the bucket corresponds to 0.254mm of rain. - # After battery insertion, the sensor will transmit 7 messages in rapid succession, one message every 3 seconds. After the first message, - # the remaining 6 messages have bit 1 of byte 3 set to 1. This could be some sort of reset indicator. - # For these 6 messages, the transmission counter does not increase. After the full 7 messages, one regular message is sent after 30s. - # Afterwards, messages are sent every 45s. - sensortype => 'TFA 30.3233.01', - model => 'SD_WS_54_R', - prematch => sub {my $rawData = shift; return 1 if ($rawData =~ /^3[0-9A-F]{9}AA[0-9A-F]{4,5}$/); }, # prematch 3 E2E390CF9 AA FF8A0 - id => sub {my ($rawData,undef) = @_; return substr($rawData,1,5); }, - bat => sub {my (undef,$bitData) = @_; return substr($bitData,24,1) eq "0" ? "ok" : "low";}, - batChange => sub {my (undef,$bitData) = @_; return substr($bitData,25,1);}, - sendCounter => sub {my (undef,$bitData) = @_; return (SD_WS_binaryToNumber($bitData,28,30));}, - rawRainCounter => sub {my (undef,$bitData) = @_; - my $rawRainCounterMessage = SD_WS_binaryToNumber($bitData,32,39) + SD_WS_binaryToNumber($bitData,48,55) * 256; - if ($rawRainCounterMessage > 65525) { - return $rawRainCounterMessage - 65526; - } else { - return $rawRainCounterMessage + 10; - } - }, - rain_total => sub {my (undef,$bitData) = @_; - my $rawRainCounterMessage = SD_WS_binaryToNumber($bitData,32,39) + SD_WS_binaryToNumber($bitData,48,55) * 256; - if ($rawRainCounterMessage > 65525) { - return ($rawRainCounterMessage - 65526) * 0.254; - } else { - return ($rawRainCounterMessage + 10) * 0.254; - } - }, - crcok => sub {my $rawData = shift; - my $checksum = SD_WS_LFSR_digest8_reflect(7, 0x31, 0xf4, $rawData ); - if ($checksum == hex(substr($rawData,14,2))) { - return 1; - } else { - Log3 $name, 3, "$name: SD_WS_54 Parse msg $msg - ERROR checksum $checksum != " . hex(substr($rawData,14,2)); - return 0; - } - }, - }, - 58 => { - # TFA 30.3208.02, TFA 30.3228.02, TFA 30.3229.02, Froggit FT007xx, Ambient Weather F007-xx, Renkforce FT007xx - # ----------------------------------------------------------------------------------------------------------- - # 0 4 8 12 16 20 24 28 32 36 40 44 48 - # 0100 0101 1100 0110 1001 0011 1100 1010 0011 0100 1100 0111 0000 - # yyyy yyyy iiii iiii bccc tttt tttt tttt hhhh hhhh ssss ssss ???? - # y 8 bit sensor type (45=>TH, 46=>T) - # i: 8 bit random id (changes on power-loss) - # b: 1 bit battery indicator (0=>OK, 1=>LOW) - # c: 3 bit channel (valid channels are 1-8) - # t: 12 bit temperature (Farenheit: subtract 400 and divide by 10, Celsius: subtract 720 and multiply by 0.0556) - # h: 8 bit humidity (only type 45, type 46 changes between 10 and 15) - # s: 8 bit check - # ?: 4 bit unknown - # frames sent every ~1 min (varies by channel), map of channel id to transmission interval: 1: 53s, 2: 57s, 3: 59s, 4: 61s, 5: 67s, 6: 71s, 7: 73s, 8: 79s - sensortype => 'TFA 30.3208.02, FT007xx', - model => 'SD_WS_58_T', - # prematch => sub {my $msg = shift; return 1 if ($msg =~ /^45[0-9A-F]{11}/); }, # prematch - prematch => sub {my $msg = shift; return 1 if ($msg =~ /^4[5|6][0-9A-F]{11}/); }, # prematch, 45=FT007TH/TFA 30.3208.02, 46=FT007T/TFA 30.3228.02 - crcok => sub { my $msg = shift; - # my @buff = split(//,substr($msg,index($msg,"45"),10)); - # my $idx = index($msg,"45"); - my @buff = split(//,substr($msg,0,10)); - my $crc_check = substr($msg,10,2); - my $mask = 0x7C; - my $checksum = 0x64; - my $data; - my $nibbleCount; - for ( $nibbleCount=0; $nibbleCount < scalar @buff; $nibbleCount+=2) { - my $bitCnt; - if ($nibbleCount+1 = 0 ; $bitCnt-- ) { - my $bit; - # Rotate mask right - $bit = $mask & 1; - $mask = ($mask >> 1 ) | ($mask << 7) & 0xFF; - if ( $bit ) { - $mask ^= 0x18 & 0xFF; - } - # XOR mask into checksum if data bit is 1 - if ( $data & 0x80 ) { - $checksum ^= $mask & 0xFF; - } - $data <<= 1 & 0xFF; - } - } - if ($checksum == hex($crc_check)) { - return 1; - } else { - Log3 $name, 3, "$name: SD_WS_58 Parse msg $msg - ERROR checksum $checksum != " . hex($crc_check); - return 0; - } - }, - id => sub {my (undef,$bitData) = @_; return SD_WS_binaryToNumber($bitData,8,15); }, # random id - bat => sub {my (undef,$bitData) = @_; return SD_WS_binaryToNumber($bitData,16) eq "1" ? "low" : "ok";}, # bat? - channel => sub {my (undef,$bitData) = @_; return (SD_WS_binaryToNumber($bitData,17,19) + 1 ); }, # channel - temp => sub {my (undef,$bitData) = @_; return round((SD_WS_binaryToNumber($bitData,20,31)-720)*0.0556,1); }, # temp - hum => sub {my ($rawData,$bitData) = @_; return substr($rawData,1,1) eq "5" ? (SD_WS_binaryToNumber($bitData,32,39)) : 0;}, # hum - } , - 84 => - { - # Protokollbeschreibung: Funk Wetterstation Auriol IAN 283582 (Lidl) - # ------------------------------------------------------------------------ - # 0 4 | 8 12 | 16 20 | 24 28 | 32 36 - # 1111 1100 | 0001 0110 | 0001 0000 | 0011 0111 | 0100 1001 - # iiii iiii | hhhh hhhh | bscc tttt | tttt tttt | ???? ???? - # i: 8 bit id (?) - no change after battery change, i have seen two IDs: 0x03 and 0xfe - # h: 8 bit relative humidity percentage - # b: 1 bit battery indicator (0=>OK, 1=>LOW) - # s: 1 bit sendmode 1=manual (button pressed) 0=auto - # c: 2 bit channel valid channels are 0-2 (1-3) - # t: 12 bit signed temperature scaled by 10 - # ?: unknown - # Sensor sends approximately every 30 seconds - sensortype => 'Auriol IAN 283582, TV-4848', - model => 'SD_WS_84_TH', - prematch => sub {my $msg = shift; return 1 if ($msg =~ /^[0-9A-F]{4}[01245689ACDE]{1}[0-9A-F]{5,6}$/); }, # valid channel only 0-2 - id => sub {my (undef,$bitData) = @_; return SD_WS_binaryToNumber($bitData,0,7); }, - hum => sub {my (undef,$bitData) = @_; return SD_WS_binaryToNumber($bitData,8,15); }, - bat => sub {my (undef,$bitData) = @_; return substr($bitData,16,1) eq "0" ? "ok" : "low";}, - sendmode => sub {my (undef,$bitData) = @_; return substr($bitData,17,1) eq "1" ? "manual" : "auto"; }, - channel => sub {my (undef,$bitData) = @_; return (SD_WS_binaryToNumber($bitData,18,19)+1 ); }, - temp => sub { my (undef,$bitData) = @_; - my $tempraw = SD_WS_binaryToNumber($bitData,20,31); - $tempraw -= 4096 if ($tempraw > 1023); # negative - $tempraw /= 10.0; - return $tempraw; - }, - crcok => sub {return 1;}, # crc test method is so far unknown - } , - 85 => - { - # Protokollbeschreibung: Kombisensor TFA 30.3222.02 fuer Wetterstation TFA 35.1140.01 - # ----------------------------------------------------------------------------------- - # 0 4 | 8 12 | 16 20 | 24 28 | 32 36 | 40 44 | 48 52 | 56 60 | 64 - # 0000 1001 | 0001 0110 | 0001 0000 | 0000 0111 | 0100 1001 | 0100 0000 | 0100 1001 | 0100 1001 | 1 - # ???? iiii | iiii iiii | iiii iiii | b??? ??yy | tttt tttt | tttt ???? | hhhh hhhh | ???? ???? | ? message 1 - # ???? iiii | iiii iiii | iiii iiii | b?cc ??yy | wwww wwww | wwww ???? | 0000 0000 | ???? ???? | ? message 2 - # i: 20 bit random id (changes on power-loss) - # b: 1 bit battery indicator (0=>OK, 1=>LOW) - # c: 2 bit channel valid channels are (always 00 stands for channel 1) - # y: 2 bit typ, 01 - thermo/hygro (message 1), 10 - wind (message 2) - # t: 12 bit unsigned temperature, offset 500, scaled by 10 - if message 1 - # h: 8 bit relative humidity percentage - if message 1 - # w: 12 bit unsigned windspeed, scaled by 10 - if message 2 - # ?: unknown - # The sensor sends at intervals of about 30 seconds - sensortype => 'TFA 30.3222.02', - model => 'SD_WS_85_THW', - prematch => sub {my $msg = shift; return 1 if ($msg =~ /^[0-9A-F]{16}/); }, # min 16 nibbles - crcok => sub {return 1;}, # crc test method is so far unknown - id => sub {my (undef,$bitData) = @_; return substr($rawData,1,5); }, # 0952CF012B1021DF0 - bat => sub {my (undef,$bitData) = @_; return substr($bitData,24,1) eq "0" ? "ok" : "low";}, - channel => sub {my (undef,$bitData) = @_; return (SD_WS_binaryToNumber($bitData,26,27) + 1 ); }, # unknown - temp => sub {my (undef,$bitData) = @_; - if (substr($bitData,30,2) eq "01") { # message 1 thermo/hygro - return ((SD_WS_binaryToNumber($bitData,32,43) - 500) / 10.0); - } else { - return undef; - } - }, - hum => sub {my (undef,$bitData) = @_; - if (substr($bitData,30,2) eq "01") { # message 1 thermo/hygro - return SD_WS_binaryToNumber($bitData,48,55); - } else { - return undef; - } - }, - windspeed => sub {my (undef,$bitData) = @_; - if (substr($bitData,30,2) eq "10") { # message 2 windspeed - return (SD_WS_binaryToNumber($bitData,32,43) / 10.0); - } else { - return undef; - } - }, - } , - 89 => - { - # Protokollbeschreibung: Temperatur-/Feuchtesensor TFA 30.3221.02 fuer Wetterstation TFA 35.1140.01 - # ------------------------------------------------------------------------------------------------- - # 0 4 | 8 12 | 16 20 | 24 28 | 32 36 - # 0000 1001 | 0001 0110 | 0001 0000 | 0000 0111 | 0100 1001 - # iiii iiii | bscc tttt | tttt tttt | hhhh hhhh | ???? ???? - # i: 8 bit random id (changes on power-loss) - # b: 1 bit battery indicator (0=>OK, 1=>LOW) - # s: 1 bit sendmode (0=>auto, 1=>manual) - # c: 2 bit channel valid channels are 0-2 (1-3) - # t: 12 bit unsigned temperature, offset 500, scaled by 10 - # h: 8 bit relative humidity percentage - # ?: 8 bit unknown - # The sensor sends 3 repetitions at intervals of about 60 seconds - sensortype => 'TFA 30.3221.02', - model => 'SD_WS_89_TH', - prematch => sub {my $msg = shift; return 1 if ($msg =~ /^[0-9A-F]{2}[01245689ACDE]{1}[0-9A-F]{7}$/); }, # valid channel only 0-2 - id => sub {my (undef,$bitData) = @_; return substr($rawData,0,2); }, - bat => sub {my (undef,$bitData) = @_; return substr($bitData,8,1) eq "0" ? "ok" : "low";}, - sendmode => sub {my (undef,$bitData) = @_; return substr($bitData,9,1) eq "1" ? "manual" : "auto"; }, - channel => sub {my (undef,$bitData) = @_; return (SD_WS_binaryToNumber($bitData,10,11) + 1); }, - temp => sub {my (undef,$bitData) = @_; return ((SD_WS_binaryToNumber($bitData,12,23) - 500) / 10.0); }, - hum => sub {my (undef,$bitData) = @_; return SD_WS_binaryToNumber($bitData,24,31); }, - crcok => sub {return 1;}, # crc test method is so far unknown - } , - 94 => { - # Sensor sends Bit 0 as "0", Bit 1 as "110" - # Protocol after conversion bits (Length varies from minimum 24 to maximum 32 bits.) - # ------------------------------------------------------------------------ - # 0 4 | 8 12 | 16 20 | 24 28 - # 1111 1100 | 0000 0110 | 0001 0000 | 0011 0111 - # iiii iiii | ??s? tttt | tttt tttt | ???? ???? - # i: 8 bit id - # s: 1 bit sign (0 = temperature positive, 1 = temperature negative - # t: 12 bit temperature (MSB-first, BCD, 12 bit unsigned celsius scaled by 10) - # ?: unknown - sensortype => 'Atech', - model => 'SD_WS_94_T', - prematch => sub { return 1; }, # no precheck known - id => sub { # change 110 to 1 in ref bitdata and return id - ($_[1] = $_[1]) =~ s/110/1/g; - return sprintf('%02X', SD_WS_bin2dec(substr($_[1],0,8))); - }, - temp => sub { - my $rawtemp100 = SD_WS_binaryToNumber($_[1],12,15); - my $rawtemp10 = SD_WS_binaryToNumber($_[1],16,19); - my $rawtemp1 = SD_WS_binaryToNumber($_[1],20,23); - if ($rawtemp100 > 9 || $rawtemp10 > 9 || $rawtemp1 > 9) { - Log3 $iohash, 3, "$name: SD_WS_Parse $model ERROR - BCD of temperature ($rawtemp100 $rawtemp10 $rawtemp1)"; - return ""; - }; - my $temp = ($rawtemp100 * 10 + $rawtemp10 + $rawtemp1 / 10) * ( substr($_[1],10,1) == 1 ? -1.0 : 1.0); - }, - crcok => sub {return 1;}, # crc test method is so far unknown - }, - ); - - Log3 $name, 4, "$name: SD_WS_Parse protocol $protocol, rawData $rawData"; - - if ($protocol eq "37") { # Bresser 7009994 - # Protokollbeschreibung: - # https://github.com/merbanan/rtl_433_tests/tree/master/tests/bresser_3ch - # The data is grouped in 5 bytes / 10 nibbles - # ------------------------------------------------------------------------ - # 0 | 8 12 | 16 | 24 | 32 - # 1111 1100 | 0001 0110 | 0001 0000 | 0011 0111 | 0101 1001 0 65.1 F 55 % - # iiii iiii | bscc tttt | tttt tttt | hhhh hhhh | xxxx xxxx - # i: 8 bit random id (changes on power-loss) - # b: battery indicator (0=>OK, 1=>LOW) - # s: Test/Sync (0=>Normal, 1=>Test-Button pressed / Sync) - # c: Channel (MSB-first, valid channels are 1-3) - # t: Temperature (MSB-first, Big-endian) - # 12 bit unsigned fahrenheit offset by 90 and scaled by 10 - # h: Humidity (MSB-first) 8 bit relative humidity percentage - # x: checksum (byte1 + byte2 + byte3 + byte4) % 256 - # Check with e.g. (byte1 + byte2 + byte3 + byte4 - byte5) % 256) = 0 - $model = "SD_WS37_TH"; - $SensorTyp = "Bresser 7009994"; - my $checksum = (SD_WS_binaryToNumber($bitData,0,7) + SD_WS_binaryToNumber($bitData,8,15) + SD_WS_binaryToNumber($bitData,16,23) + SD_WS_binaryToNumber($bitData,24,31)) & 0xFF; - if ($checksum != SD_WS_binaryToNumber($bitData,32,39)) { - Log3 $name, 4, "$name: SD_WS37 ERROR - checksum $checksum != ".SD_WS_binaryToNumber($bitData,32,39); - return ""; - } else { - Log3 $name, 4, "$name: SD_WS37 checksum ok $checksum = ".SD_WS_binaryToNumber($bitData,32,39); - $id = substr($rawData,0,2); - $bat = int(substr($bitData,8,1)) eq "0" ? "ok" : "low"; # Batterie-Bit konnte nicht geprueft werden - $channel = SD_WS_binaryToNumber($bitData,10,11); - $rawTemp = SD_WS_binaryToNumber($bitData,12,23); - $hum = SD_WS_binaryToNumber($bitData,24,31); - my $tempFh = $rawTemp / 10 - 90; # Grad Fahrenheit - $temp = (($tempFh - 32) * 5 / 9); # Grad Celsius - $temp = sprintf("%.1f", $temp + 0.05); # round - Log3 $name, 4, "$name: SD_WS37 tempraw = $rawTemp, temp = $tempFh F, temp = $temp C, Hum = $hum"; - Log3 $name, 4, "$name: SD_WS37 decoded protocol = $protocol ($SensorTyp), sensor id = $id, channel = $channel"; - } - } - elsif ($protocol eq "44" || $protocol eq "44x") # BresserTemeo - { - # 0 4 8 12 20 24 28 32 36 40 44 52 56 60 - # 0101 0111 1001 00010101 0010 0100 0001 1010 1000 0110 11101010 1101 1011 1110 110110010 - # hhhh hhhh ?bcc viiiiiii sttt tttt tttt xxxx xxxx ?BCC VIIIIIII Syyy yyyy yyyy - - # - h humidity / -x checksum - # - t temp / -y checksum - # - c Channel / -C checksum - # - V sign / -V checksum - # - i 7 bit random id (aendert sich beim Batterie- und Kanalwechsel) / - I checksum - # - b battery indicator (0=>OK, 1=>LOW) / - B checksum - # - s Test/Sync (0=>Normal, 1=>Test-Button pressed) / - S checksum - - $model= "BresserTemeo"; - $SensorTyp = "BresserTemeo"; - - #my $binvalue = unpack("B*" ,pack("H*", $rawData)); - my $binvalue = $bitData; - - if (length($binvalue) != 72) { - Log3 $iohash, 4, "$name: SD_WS_Parse BresserTemeo length error (72 bits expected)!!!"; - return ""; - } - - # Check what Humidity Prefix (*sigh* Bresser!!!) - if ($protocol eq "44") - { - $binvalue = "0".$binvalue; - Log3 $iohash, 4, "$name: SD_WS_Parse BresserTemeo Humidity <= 79 Flag"; - } - else - { - $binvalue = "1".$binvalue; - Log3 $iohash, 4, "$name: SD_WS_Parse BresserTemeo Humidity > 79 Flag"; - } - - Log3 $iohash, 4, "$name: SD_WS_Parse BresserTemeo new bin $binvalue"; - - my $checksumOkay = 1; - - my $hum1Dec = SD_WS_binaryToNumber($binvalue, 0, 3); - my $hum2Dec = SD_WS_binaryToNumber($binvalue, 4, 7); - my $checkHum1 = SD_WS_binaryToNumber($binvalue, 32, 35) ^ 0b1111; - my $checkHum2 = SD_WS_binaryToNumber($binvalue, 36, 39) ^ 0b1111; - - if ($checkHum1 != $hum1Dec || $checkHum2 != $hum2Dec) - { - Log3 $iohash, 4, "$name: SD_WS_Parse BresserTemeo checksum error in Humidity"; - } - else - { - $hum = $hum1Dec.$hum2Dec; - if ($hum < 1 || $hum > 100) - { - Log3 $iohash, 4, "$name: SD_WS_Parse BresserTemeo Humidity Error. Humidity=$hum"; - return ""; - } - } - - my $temp1Dec = SD_WS_binaryToNumber($binvalue, 21, 23); - my $temp2Dec = SD_WS_binaryToNumber($binvalue, 24, 27); - my $temp3Dec = SD_WS_binaryToNumber($binvalue, 28, 31); - my $checkTemp1 = SD_WS_binaryToNumber($binvalue, 53, 55) ^ 0b111; - my $checkTemp2 = SD_WS_binaryToNumber($binvalue, 56, 59) ^ 0b1111; - my $checkTemp3 = SD_WS_binaryToNumber($binvalue, 60, 63) ^ 0b1111; - $temp = $temp1Dec.$temp2Dec.".".$temp3Dec; - $temp +=0; # remove leading zeros - if ($checkTemp1 != $temp1Dec || $checkTemp2 != $temp2Dec || $checkTemp3 != $temp3Dec) - { - Log3 $iohash, 4, "$name: SD_WS_Parse BresserTemeo checksum error in Temperature"; - $checksumOkay = 0; - } - if ($temp > 60) - { - Log3 $iohash, 4, "$name: SD_WS_Parse BresserTemeo Temperature Error. temp=$temp"; - return ""; - } - - my $sign = substr($binvalue,12,1); - my $checkSign = substr($binvalue,44,1) ^ 0b1; - - if ($sign != $checkSign) - { - Log3 $iohash, 4, "$name: SD_WS_Parse BresserTemeo checksum error in Sign"; - $checksumOkay = 0; - } - else - { - if ($sign) - { - $temp = 0 - $temp - } - } - - $bat = substr($binvalue,9,1); - my $checkBat = substr($binvalue,41,1) ^ 0b1; - - if ($bat != $checkBat) - { - Log3 $iohash, 4, "$name: SD_WS_Parse BresserTemeo checksum error in Bat"; - $bat = undef; - } - else - { - $bat = ($bat == 0) ? "ok" : "low"; - } - - $channel = SD_WS_binaryToNumber($binvalue, 10, 11); - my $checkChannel = SD_WS_binaryToNumber($binvalue, 42, 43) ^ 0b11; - $id = SD_WS_binaryToNumber($binvalue, 13, 19); - my $checkId = SD_WS_binaryToNumber($binvalue, 45, 51) ^ 0b1111111; - - if ($channel != $checkChannel || $id != $checkId) - { - Log3 $iohash, 4, "$name: SD_WS_Parse BresserTemeo checksum error in Channel or Id"; - $checksumOkay = 0; - } - - if ($checksumOkay == 0) - { - Log3 $iohash, 4, "$name:SD_WS_Parse BresserTemeo checksum error!!! These Values seem incorrect: temp=$temp, channel=$channel, id=$id"; - return ""; - } - - $id = sprintf('%02X', $id); # wandeln nach hex - Log3 $iohash, 4, "$name: SD_WS_Parse model=$model, temp=$temp, hum=$hum, channel=$channel, id=$id, bat=$bat"; - - } elsif ($protocol eq "64") # WH2 - { - #* Fine Offset Electronics WH2 Temperature/Humidity sensor protocol - #* aka Agimex Rosenborg 66796 (sold in Denmark) - #* aka ClimeMET CM9088 (Sold in UK) - #* aka TFA Dostmann/Wertheim 30.3157 (Temperature only!) (sold in Germany) - #* aka ... - #* - #* The sensor sends two identical packages of 48 bits each ~48s. The bits are PWM modulated with On Off Keying - # * The data is grouped in 6 bytes / 12 nibbles - #* [pre] [pre] [type] [id] [id] [temp] [temp] [temp] [humi] [humi] [crc] [crc] - #* - #* pre is always 0xFF - #* type is always 0x4 (may be different for different sensor type?) - #* id is a random id that is generated when the sensor starts - #* temp is 12 bit signed magnitude scaled by 10 celcius - #* humi is 8 bit relative humidity percentage - #* Based on reverse engineering with gnu-radio and the nice article here: - #* http://lucsmall.com/2012/04/29/weather-station-hacking-part-2/ - # 0x4A/74 0x70/112 0xEF/239 0xFF/255 0x97/151 | Sensor ID: 0x4A7 | 255% | 239 | OK - #{ Dispatch($defs{sduino}, "W64#FF48D0C9FFBA", undef) } - - #* Message Format: - #* .- [0] -. .- [1] -. .- [2] -. .- [3] -. .- [4] -. - #* | | | | | | | | | | - #* SSSS.DDDD DDN_.TTTT TTTT.TTTT WHHH.HHHH CCCC.CCCC - #* | | | || | | | | | | || | | | - #* | | | || | | | | | | || | `--------- CRC - #* | | | || | | | | | | |`-------- Humidity - #* | | | || | | | | | | | - #* | | | || | | | | | | `---- weak battery - #* | | | || | | | | | | - #* | | | || | | | | `----- Temperature T * 0.1 - #* | | | || | | | | - #* | | | || | | `---------- Temperature T * 1 - #* | | | || | | - #* | | | || `--------------- Temperature T * 10 - #* | | | | `--- new battery - #* | | `---------- ID - #* `---- START = 9 - #* - #*/ - $msg = substr($msg,0,16); - my (undef ,$rawData) = split("#",$msg); - my $hlen = length($rawData); - my $blen = $hlen * 4; - my $msg_vor ="W64#"; - my $bitData20; - my $sign = 0; - my $rr2; - my $vorpre = -1; - my $bitData = unpack("B$blen", pack("H$hlen", $rawData)); - - my $temptyp = substr($bitData,0,8); - if( $temptyp eq '11111110' ) { - $rawData = SD_WS_WH2SHIFT($rawData); - $msg = $msg_vor.$rawData; - $bitData = unpack("B$blen", pack("H$hlen", $rawData)); - Log3 $iohash, 4, "$name: SD_WS_WH2_1 msg=$msg length:".length($bitData) ; - Log3 $iohash, 4, "$name: SD_WS_WH2_1 bitdata: $bitData" ; - } else{ - if ( $temptyp eq '11111101' ) { - $rawData = SD_WS_WH2SHIFT($rawData); - $rawData = SD_WS_WH2SHIFT($rawData); - $msg = $msg_vor.$rawData; - $bitData = unpack("B$blen", pack("H$hlen", $rawData)); - Log3 $iohash, 4, "$name: SD_WS_WH2_2 msg=$msg length:".length($bitData) ; - Log3 $iohash, 4, "$name: SD_WS_WH2_2 bitdata: $bitData" ; - } - } - - if( $temptyp eq '11111111' ) { - $vorpre = 8; - }else{ - Log3 $iohash, 4, "$name: SD_WS_WH2_4 Error kein WH2: Typ: $temptyp" ; - return ""; - } - - my $rc = eval - { - require Digest::CRC; - Digest::CRC->import(); - 1; - }; - - if($rc) - { - # Digest::CRC loaded and imported successfully - Log3 $iohash, 4, "$name: SD_WS_WH2_1 msg: $msg raw: $rawData " ; - $rr2 = SD_WS_WH2CRCCHECK($rawData); - if ($rr2 == 0 ){ - # 1.CRC OK - Log3 $iohash, 4, "$name: SD_WS_WH2_1 CRC_OK : CRC=$rr2 msg: $msg check:".$rawData ; - }else{ - Log3 $iohash, 4, "$name: SD_WS_WH2_4 CRC_Error: CRC=$rr2 msg: $msg check:".$rawData ; - return ""; - } - }else { - Log3 $iohash, 1, "$name: SD_WS_WH2_3 CRC_not_load: Modul Digest::CRC fehlt" ; - return ""; - } - - $bitData = unpack("B$blen", pack("H$hlen", $rawData)); - Log3 $iohash, 4, "$name: converted to bits WH2 " . $bitData; - $model = "SD_WS_WH2"; - $SensorTyp = "WH2"; - $id = SD_WS_bin2dec(substr($bitData,$vorpre + 4,6)); - $id = sprintf('%03X', $id); - $channel = 0; - $bat = SD_WS_binaryToNumber($bitData,$vorpre + 20) eq "1" ? "low" : "ok"; - - $sign = SD_WS_bin2dec(substr($bitData,$vorpre + 12,1)); - - if ($sign == 0) { - # Temp positiv - $temp = (SD_WS_bin2dec(substr($bitData,$vorpre + 13,11))) / 10; - }else{ - # Temp negativ - $temp = -(SD_WS_bin2dec(substr($bitData,$vorpre + 13,11))) / 10; - } - Log3 $iohash, 4, "$name: decoded protocolid $protocol ($SensorTyp) sensor id=$id, Data:".substr($bitData,$vorpre + 12,12)." temp=$temp"; - $hum = SD_WS_bin2dec(substr($bitData,$vorpre + 24,8)); # TFA 30.3157 nur Temp, Hum = 255 - Log3 $iohash, 4, "$name: SD_WS_WH2_8 $protocol ($SensorTyp) sensor id=$id, Data:".substr($bitData,$vorpre + 24,8)." hum=$hum"; - Log3 $iohash, 4, "$name: SD_WS_WH2_9 $protocol ($SensorTyp) sensor id=$id, channel=$channel, temp=$temp, hum=$hum"; - - } - - elsif (defined($decodingSubs{$protocol})) # durch den hash decodieren - { - $SensorTyp=$decodingSubs{$protocol}{sensortype}; - if (!$decodingSubs{$protocol}{prematch}->( $rawData )) { - Log3 $iohash, 4, "$name: SD_WS_Parse $rawData protocolid $protocol ($SensorTyp) - ERROR prematch" ; - return ""; - } - my $retcrc=$decodingSubs{$protocol}{crcok}->( $rawData,$bitData ); - if (!$retcrc) { - Log3 $iohash, 4, "$name: SD_WS_Parse $rawData protocolid $protocol ($SensorTyp) - ERROR CRC"; - return ""; - } - $id=$decodingSubs{$protocol}{id}->( $rawData,$bitData ); - $temp=$decodingSubs{$protocol}{temp}->( $rawData,$bitData ) if (exists($decodingSubs{$protocol}{temp})); - $hum=$decodingSubs{$protocol}{hum}->( $rawData,$bitData ) if (exists($decodingSubs{$protocol}{hum})); - $windspeed=$decodingSubs{$protocol}{windspeed}->( $rawData,$bitData ) if (exists($decodingSubs{$protocol}{windspeed})); - $channel=$decodingSubs{$protocol}{channel}->( $rawData,$bitData ) if (exists($decodingSubs{$protocol}{channel})); - $model = $decodingSubs{$protocol}{model}; - $bat = $decodingSubs{$protocol}{bat}->( $rawData,$bitData ) if (exists($decodingSubs{$protocol}{bat})); - $batChange = $decodingSubs{$protocol}{batChange}->( $rawData,$bitData ) if (exists($decodingSubs{$protocol}{batChange})); - $rawRainCounter = $decodingSubs{$protocol}{rawRainCounter}->( $rawData,$bitData ) if (exists($decodingSubs{$protocol}{rawRainCounter})); - $rain_total = $decodingSubs{$protocol}{rain_total}->( $rawData,$bitData ) if (exists($decodingSubs{$protocol}{rain_total})); - $sendCounter = $decodingSubs{$protocol}{sendCounter}->( $rawData,$bitData ) if (exists($decodingSubs{$protocol}{sendCounter})); - $beep = $decodingSubs{$protocol}{beep}->( $rawData,$bitData ) if (exists($decodingSubs{$protocol}{beep})); - if ($model eq "SD_WS_33_T" || $model eq "SD_WS_58_T") { # for SD_WS_33 or SD_WS_58 discrimination T - TH - $model = $decodingSubs{$protocol}{model}."H" if $hum != 0; # for models with Humidity - } - $sendmode = $decodingSubs{$protocol}{sendmode}->( $rawData,$bitData ) if (exists($decodingSubs{$protocol}{sendmode})); - $trend = $decodingSubs{$protocol}{trend}->( $rawData,$bitData ) if (exists($decodingSubs{$protocol}{trend})); - - Log3 $iohash, 4, "$name: SD_WS_Parse decoded protocol-id $protocol ($SensorTyp), sensor-id $id"; - } - else { - Log3 $iohash, 2, "$name: SD_WS_Parse unknown message, please report. converted to bits: $bitData"; - return undef; - } - - if (!defined($model)) { - return undef; - } - - my $deviceCode; - - my $longids = AttrVal($ioname,'longids',0); - if (($longids ne "0") && ($longids eq "1" || $longids eq "ALL" || (",$longids," =~ m/,$model,/))) - { - $deviceCode = $model . '_' . $id; # for sensors without channel - $deviceCode .= $channel if (defined $channel); # old form of longid - if (!defined($modules{SD_WS}{defptr}{$deviceCode})) { - $deviceCode = $model . '_' . $id; # for sensors without channel - $deviceCode .= '_' . $channel if (defined $channel); # new form of longid - } - Log3 $iohash,4, "$name: using longid for $longids device $deviceCode"; - } else { - $deviceCode = $model; # for sensors without channel - $deviceCode .= '_' . $channel if (defined $channel); - } - #print Dumper($modules{SD_WS}{defptr}); - - my $def = $modules{SD_WS}{defptr}{$deviceCode}; - $def = $modules{SD_WS}{defptr}{$deviceCode} if(!$def); - - if(!$def) { - Log3 $iohash, 1, "$name: SD_WS_Parse UNDEFINED sensor $model detected, code $deviceCode"; - return "UNDEFINED $deviceCode SD_WS $deviceCode"; - } - - my $hash = $def; - $name = $hash->{NAME}; - return "" if(IsIgnored($name)); - - if (defined $temp) { - if ($temp < -30 || $temp > 70) { - Log3 $iohash, 3, "$ioname: SD_WS_Parse $deviceCode - ERROR temperature $temp"; - return ""; - } - } - if (defined $hum) { - if ($hum > 100) { - Log3 $iohash, 3, "$ioname: SD_WS_Parse $deviceCode - ERROR humidity $hum"; - return ""; - } - } - - # Sanity checks - if($def) { - my $timeSinceLastUpdate = abs(ReadingsAge($name, "state", 0)); - # temperature - if (defined($temp) && defined(ReadingsVal($name, "temperature", undef))) { - my $diffTemp = 0; - my $oldTemp = ReadingsVal($name, "temperature", undef); - my $maxdeviation = AttrVal($name, "max-deviation-temp", 1); # default 1 K - if ($temp > $oldTemp) { - $diffTemp = ($temp - $oldTemp); - } else { - $diffTemp = ($oldTemp - $temp); - } - $diffTemp = sprintf("%.1f", $diffTemp); - Log3 $name, 4, "$ioname: $name old temp $oldTemp, age $timeSinceLastUpdate, new temp $temp, diff temp $diffTemp"; - my $maxDiffTemp = $timeSinceLastUpdate / 60 + $maxdeviation; # maxdeviation + 1.0 Kelvin/Minute - $maxDiffTemp = sprintf("%.1f", $maxDiffTemp + 0.05); # round 0.1 - Log3 $name, 4, "$ioname: $name max difference temperature $maxDiffTemp K"; - if ($diffTemp > $maxDiffTemp) { - Log3 $name, 3, "$ioname: $name ERROR - Temp diff too large (old $oldTemp, new $temp, diff $diffTemp)"; - return ""; - } - } - # humidity - if (defined($hum) && defined(ReadingsVal($name, "humidity", undef))) { - my $diffHum = 0; - my $oldHum = ReadingsVal($name, "humidity", undef); - my $maxdeviation = AttrVal($name, "max-deviation-hum", 1); # default 1 % - if ($hum > $oldHum) { - $diffHum = ($hum - $oldHum); - } else { - $diffHum = ($oldHum - $hum); - } - $diffHum = sprintf("%.1f", $diffHum); - Log3 $name, 4, "$ioname: $name old hum $oldHum, age $timeSinceLastUpdate, new hum $hum, diff hum $diffHum"; - my $maxDiffHum = $timeSinceLastUpdate / 60 + $maxdeviation; # $maxdeviation + 1.0 %/Minute - $maxDiffHum = sprintf("%1.f", $maxDiffHum + 0.5); # round 1 - Log3 $name, 4, "$ioname: $name max difference humidity $maxDiffHum %"; - if ($diffHum > $maxDiffHum) { - Log3 $name, 3, "$ioname: $name ERROR - Hum diff too large (old $oldHum, new $hum, diff $diffHum)"; - return ""; - } - } - } - - Log3 $name, 4, "$ioname: SD_WS_Parse $name ($rawData)"; - - $hash->{lastReceive} = time(); - $hash->{lastMSG} = $rawData; - if (defined($bitData2)) { - $hash->{bitMSG} = $bitData2; - } else { - $hash->{bitMSG} = $bitData; - } - - #my $state = (($temp > -60 && $temp < 70) ? "T: $temp":"T: xx") . (($hum > 0 && $hum < 100) ? " H: $hum":""); - my $state = ""; - if (defined($temp)) { - $state .= "T: $temp" - } - if (defined($hum) && ($hum > 0 && $hum < 100)) { - $state .= " H: $hum" - } - if (defined($windspeed)) { - $state .= " " if (length($state) > 0); - $state .= "W: $windspeed" - } - if (defined($rain_total)) { - $state .= "R: $rain_total" - } - ### protocol 33 has different bits per sensor type - if ($protocol eq "33") { - if (AttrVal($name,'model',0) eq "S522") { # Conrad S522 - $bat = substr($bitData,36,1) eq "0" ? "ok" : "low"; - } elsif (AttrVal($name,'model',0) eq "E0001PA") { # renkforce E0001PA - $bat = substr($bitData,35,1) eq "0" ? "ok" : "low"; - $sendmode = substr($bitData,34,1) eq "1" ? "manual" : "auto"; - } elsif (AttrVal($name,'model',0) eq "TX-EZ6") { # TZS First Austria TX-EZ6 - $bat = substr($bitData,35,1) eq "0" ? "ok" : "low"; - $sendmode = substr($bitData,34,1) eq "1" ? "manual" : "auto"; - $trendTemp = ('consistent', 'rising', 'falling', 'unknown')[SD_WS_binaryToNumber($bitData,10,11)]; - $trendHum = ('consistent', 'rising', 'falling', 'unknown')[SD_WS_binaryToNumber($bitData,36,37)]; - } - } - - readingsBeginUpdate($hash); - readingsBulkUpdate($hash, "state", $state); - readingsBulkUpdate($hash, "temperature", $temp) if (defined($temp) && ($temp > -60 && $temp < 70 )); - readingsBulkUpdate($hash, "humidity", $hum) if (defined($hum) && ($hum > 0 && $hum < 100 )) ; - readingsBulkUpdate($hash, "windspeed", $windspeed) if (defined($windspeed)) ; - readingsBulkUpdate($hash, "batteryState", $bat) if (defined($bat) && length($bat) > 0) ; - readingsBulkUpdate($hash, "batteryChanged", $batChange) if (defined($batChange) && length($batChange) > 0 && $batChange eq "1") ; - readingsBulkUpdate($hash, "channel", $channel, 0) if (defined($channel)&& length($channel) > 0); - readingsBulkUpdate($hash, "trend", $trend) if (defined($trend) && length($trend) > 0); - readingsBulkUpdate($hash, "temperatureTrend", $trendTemp) if (defined($trendTemp) && length($trendTemp) > 0); - readingsBulkUpdate($hash, "humidityTrend", $trendHum) if (defined($trendHum) && length($trendHum) > 0); - readingsBulkUpdate($hash, "sendmode", $sendmode) if (defined($sendmode) && length($sendmode) > 0); - readingsBulkUpdate($hash, "type", $SensorTyp, 0) if (defined($SensorTyp)); - readingsBulkUpdate($hash, "beep", $beep) if (defined($beep)); - readingsBulkUpdate($hash, "rawRainCounter", $rawRainCounter) if (defined($rawRainCounter)); - readingsBulkUpdate($hash, "rain_total", $rain_total) if (defined($rain_total)); - readingsBulkUpdate($hash, "sendCounter", $sendCounter) if (defined($sendCounter)); - readingsEndUpdate($hash, 1); # Notify is done by Dispatch - - return $name; - -} - # Pruefsummenberechnung "reverse Galois LFSR with byte reflection" # Wird nur fuer TFA Drop Protokoll benoetigt # TFA Drop Protokoll benoetigt als gen 0x31, als key 0xf4 -sub SD_WS_LFSR_digest8_reflect($$$$) -{ - my ($bytes, $gen, $key, $rawData) = @_; - my $sum = 0; - my $k = 0; - my $i = 0; - my $data = 0; - for ( $k = $bytes - 1; $k >= 0; $k = $k - 1 ) { - $data = hex(substr($rawData, $k*2, 2)); - for ( $i = 0; $i < 8; $i = $i + 1 ) { - if ( ($data >> $i) & 0x01) { - $sum = $sum^$key; - } - if ( $key & 0x80 ) { - $key = ( $key << 1) ^ $gen; - } else { - $key = ( $key << 1); - } - } - } - $sum = $sum & 0xff; - return $sum; +sub SD_WS_LFSR_digest8_reflect { + my ($bytes, $gen, $key, $rawData) = @_; + carp "SD_WS_LFSR_digest8_reflect, too few arguments ($bytes, $gen, $key, $rawData)" if @_ < 4; + my $sum = 0; + my $k = 0; + my $i = 0; + my $data = 0; + for ( $k = $bytes - 1; $k >= 0; $k = $k - 1 ) { + $data = hex(substr($rawData, $k*2, 2)); + for ( $i = 0; $i < 8; $i = $i + 1 ) { + if ( ($data >> $i) & 0x01) { + $sum = $sum^$key; + } + if ( $key & 0x80 ) { + $key = ( $key << 1) ^ $gen; + } else { + $key = ( $key << 1); + } + } + } + $sum = $sum & 0xff; + return $sum; } -sub SD_WS_bin2dec($) - { - my $h = shift; - my $int = unpack("N", pack("B32",substr("0" x 32 . $h, -32))); - return sprintf("%d", $int); - } - - -sub SD_WS_binaryToNumber -{ - my $binstr=shift; - my $fbit=shift; - my $lbit=$fbit; - $lbit=shift if @_; - return oct("0b".substr($binstr,$fbit,($lbit-$fbit)+1)); +############################# +sub SD_WS_bin2dec { + my $h = shift // return; + my $int = unpack("N", pack("B32",substr("0" x 32 . $h, -32))); + return sprintf("%d", $int); } - sub SD_WS_WH2CRCCHECK($) { - my $rawData = shift; - my $datacheck1 = pack( 'H*', substr($rawData,2,length($rawData)-2) ); - my $crcmein1 = Digest::CRC->new(width => 8, poly => 0x31); - my $rr3 = $crcmein1->add($datacheck1)->hexdigest; - $rr3 = sprintf("%d", hex($rr3)); - Log3 "SD_WS_CRCCHECK", 4, "SD_WS_WH2CRCCHECK : raw:$rawData CRC=$rr3 " ; - return $rr3 ; - } -sub SD_WS_WH2SHIFT($){ - my $rawData = shift; - my $hlen = length($rawData); - my $blen = $hlen * 4; - my $bitData = unpack("B$blen", pack("H$hlen", $rawData)); - my $bitData2 = '1'.unpack("B$blen", pack("H$hlen", $rawData)); - my $bitData20 = substr($bitData2,0,length($bitData2)-1); - $blen = length($bitData20); - $hlen = $blen / 4; - $rawData = uc(unpack("H$hlen", pack("B$blen", $bitData20))); - $bitData = $bitData20; - Log3 "SD_WS_WH2SHIFT", 4, "SD_WS_WH2SHIFT_0 raw: $rawData length:".length($bitData) ; - Log3 "SD_WS_WH2SHIFT", 4, "SD_WS_WH2SHIFT_1 bitdata: $bitData" ; - return $rawData; - } +############################# +sub SD_WS_binaryToNumber { + carp 'SD_WS_binaryToNumber, too few arguments' if @_ < 2; + my $binstr=shift; + my $fbit=shift; + my $lbit=$fbit; + $lbit = shift // $lbit; + return oct("0b".substr($binstr,$fbit,($lbit-$fbit)+1)); +} + +############################# +sub SD_WS_WH2CRCCHECK { + my $rawData = shift // return; + my $datacheck1 = pack( 'H*', substr($rawData,2,length($rawData)-2) ); + my $crcmein1 = Digest::CRC->new(width => 8, poly => 0x31); + my $rr3 = $crcmein1->add($datacheck1)->hexdigest; + $rr3 = sprintf("%d", hex($rr3)); + Log3 "SD_WS_CRCCHECK", 4, "SD_WS_WH2CRCCHECK : raw:$rawData CRC=$rr3 " ; + return $rr3 ; +} + +############################# +sub SD_WS_WH2SHIFT { + my $rawData = shift // return; + my $hlen = length($rawData); + my $blen = $hlen * 4; + my $bitData = unpack("B$blen", pack("H$hlen", $rawData)); + my $bitData2 = '1'.unpack("B$blen", pack("H$hlen", $rawData)); + my $bitData20 = substr($bitData2,0,length($bitData2)-1); + $blen = length($bitData20); + $hlen = $blen / 4; + $rawData = uc(unpack("H$hlen", pack("B$blen", $bitData20))); + $bitData = $bitData20; + Log3 "SD_WS_WH2SHIFT", 4, "SD_WS_WH2SHIFT_0 raw: $rawData length:".length($bitData) ; + Log3 "SD_WS_WH2SHIFT", 4, "SD_WS_WH2SHIFT_1 bitdata: $bitData" ; + return $rawData; +} 1; =pod +=encoding utf8 =item summary Supports various weather stations =item summary_DE Unterstützt verschiedene Funk Wetterstationen =begin html @@ -1215,31 +1734,44 @@ sub SD_WS_WH2SHIFT($){ The SD_WS module processes the messages from various environmental sensors received from an IO device (CUL, CUN, SIGNALDuino, SignalESP etc.).

Known models:
    +
  • ADE WS1907 Weather station with rain gauge
  • Atech wireless weather station
    • -
  • Bresser 7009994
    • -
  • BresserTemeo
    • +
  • BBQ temperature sensor GT-TMBBQ-01s (transmitter), GT-TMBBQ-01e (receiver)
    • +
  • Bresser 5-in-1 and 6-in-1 Comfort Weather Center, 7009994, Professional rain gauge, Temeo
  • Conrad S522
  • EuroChron EFTH-800, EFS-3110A (temperature and humidity sensor)
    • +
  • Fine Offset WH51, aka ECOWITT WH51, aka Froggit DP100, aka MISOL/1 (soil moisture sensor)
    • +
  • Fine Offset WH57, aka Froggit DP60, aka Ambient Weather WH31L (thunder and lightning sensor)
    • +
  • Fody E42 (temperature and humidity sensor)
  • NC-3911, NC-3912 refrigerator thermometer
    • -
  • Opus XT300
    • +
  • Opus XT300
  • PV-8644 infactory Poolthermometer
  • Renkforce E0001PA
    • -
  • Regenmesser DROP TFA 47.3005.01 mit Regensensor TFA 30.3233.01
    • -
  • TECVANCE TV-4848
    • -
  • Thermometer TFA 30.3228.02, TFA 30.3229.02, FT007T, FT007TP, F007T, F007TP
    • -
  • Thermo-Hygrometer TFA 30.3208.02, FT007TH, F007TH
    • -
  • TX-EZ6 for Weatherstation TZS First Austria
    • -
  • WH2 (TFA Dostmann/Wertheim 30.3157 (sold in Germany), Agimex Rosenborg 66796 (sold in Denmark),ClimeMET CM9088 (Sold in UK)
    • -
  • Weatherstation Auriol IAN 283582 Version 06/2017 (Lidl), Modell-Nr.: HG02832D
    • -
  • Weatherstation Auriol AHFL 433 B2, IAN 314695 (Lidl)
    • -
  • Weatherstation TFA 35.1140.01 with temperature / humidity sensor TFA 30.3221.02 and temperature / humidity / windspeed sensor TFA 30.3222.02
    • +
  • Rain gauge DROP TFA 47.3005.01 with rain sensor TFA 30.3233.01
    • +
  • TECVANCE TV-4848
    • +
  • Thermometer TFA 30.3228.02, TFA 30.3229.02, FT007T, FT007TP, F007T, F007TP
    • +
  • Thermo-Hygrometer TFA 30.3208.02, FT007TH, F007TH
    • +
  • TS-FT002 Water tank level monitor with temperature
    • +
  • TX-EZ6 for Weatherstation TZS First Austria
    • +
  • WH2, WH2A (TFA Dostmann/Wertheim 30.3157 (sold in Germany), Agimex Rosenborg 66796 (sold in Denmark),ClimeMET CM9088 (Sold in UK)
    • +
  • Weatherstation Auriol IAN 283582 Version 06/2017 (Lidl), Modell-Nr.: HG02832D
    • +
  • Weatherstation Auriol AHFL 433 B2, IAN 314695 (Lidl)
    • +
  • Weatherstation TFA 35.1140.01 with temperature / humidity sensor TFA 30.3221.02 and temperature / humidity / windspeed sensor TFA 30.3222.02
    • +
  • Wireless Grill Thermometer, Model name: GFGT 433 B1


Define

    - Newly received sensors are usually automatically created in FHEM via autocreate.
    - It is also possible to set up the devices manually with the following command:

    + Newly received sensors are usually automatically created in FHEM via autocreate.
    + Sensors that support a channel number are created, for example, in the following form:
    + SD_WS_33_1
    + The 1 indicates that the sensor with channel 1 was created. + Sensors that do not offer a channel selection are created without a channel number, such as:
    + SD_WS_108
    + If several sensors with no or the same channel number are received, + so you can set the attribute "longids" with the SIGNALduino. + It is also possible to set up the devices manually with the following command:

    define <name> SD_WS <code>

    <code> is the channel or individual identifier used to identify the sensor.


@@ -1247,20 +1779,29 @@ sub SD_WS_WH2SHIFT($){ Generated readings:

    - Some devices may not support all readings, so they will not be presented
    -
+ Some devices may not support all readings, so they will not be presented
+
    -
  • batteryChanged (1)
    • +
  • adc (raw value from analog to digital converter)
    • +
  • batteryChanged (1)
  • batteryState (low or ok)
    • +
  • batteryVoltage (battery voltage in volts)
    • +
  • batteryPercent (battery level in %)
  • channel (number of channel
    • -
  • humidity (humidity (1-100 % only if available)
    • -
  • humidityTrend (consistent, rising, falling)
    • -
  • sendmode (automatic or manual)
    • -
  • rain_total (l/m²))
    • -
  • state (T: H: W: R:)
    • +
  • distance (distance in cm (protocol 111) or km (protocol 116)
    • +
  • humidity (humidity (1-100 % only if available)
    • +
  • humidityTrend (consistent, rising, falling)
    • +
  • sendmode (automatic or manual)
    • +
  • rain (l/m²))
    • +
  • rain_total (l/m²))
    • +
  • state (T: H: W: R:)
  • temperature (°C)
    • -
  • temperatureTrend (consistent, rising, falling)
    • -
  • type (type of sensor)
    • +
  • temperatureTrend (consistent, rising, falling)
    • +
  • type (type of sensor)
    • +
  • windDirectionDegree (Wind direction, grad)
    • +
  • windDirectionText (Wind direction, N, NNE, NE, ENE, E, ESE, SE, SSE, S, SSW, SW, WSW, W, WNW, NW, NNW)
    • +
  • windGust (Gust of wind, m/s)
    • +
  • windSpeed (Wind speed, m/s)


@@ -1269,42 +1810,42 @@ sub SD_WS_WH2SHIFT($){
  • do_not_notify

  • ignore

  • max-deviation-hum
    - (Default: 1, allowed values: 1,2,3,4,5,6,7,8,9,10,15,20,25,30,35,40,45,50)
    - - Maximum permissible deviation of the measured humidity from the previous value in percent.
    - Since many of the sensors handled in the module do not have checksums, etc. send, it can easily come to the reception of implausible values. - To intercept these, a maximum deviation from the last correctly received value can be set. - Greater deviations are then ignored and result in an error message in the log file, such as an error message like this:
    - SD_WS_TH_84 ERROR - Hum diff too large (old 60, new 68, diff 8)
    - In addition to the set value, a value dependent on the difference of the reception times is added. - This is 1.0% relative humidity per minute. - This means e.g. if a difference of 8 is set and the time interval of receipt of the messages is 3 minutes, the maximum allowable difference is 11.
    - Instead of the max-deviation-hum and max-deviation-temp attributes, - the doubleMsgCheck_IDs attribute of the SIGNALduino can also be used if the sensor is well received. - An update of the readings is only executed if the same values ??have been received at least twice. - + (Default: 1, allowed values: 1,2,3,4,5,6,7,8,9,10,15,20,25,30,35,40,45,50)
    + + Maximum permissible deviation of the measured humidity from the previous value in percent.
    + Since many of the sensors handled in the module do not have checksums, etc. send, it can easily come to the reception of implausible values. + To intercept these, a maximum deviation from the last correctly received value can be set. + Greater deviations are then ignored and result in an error message in the log file, such as an error message like this:
    + SD_WS_TH_84 ERROR - Hum diff too large (old 60, new 68, diff 8)
    + In addition to the set value, a value dependent on the difference of the reception times is added. + This is 1.0% relative humidity per minute. + This means e.g. if a difference of 8 is set and the time interval of receipt of the messages is 3 minutes, the maximum allowable difference is 11.
    + Instead of the max-deviation-hum and max-deviation-temp attributes, + the doubleMsgCheck_IDs attribute of the SIGNALduino can also be used if the sensor is well received. + An update of the readings is only executed if the same values ??have been received at least twice. +

  • max-deviation-temp
    - (Default: 1, allowed values: 1,2,3,4,5,6,7,8,9,10,15,20,25,30,35,40,45,50)
    - - Maximum permissible deviation of the measured temperature from the previous value in Kelvin.
    - Explanation see attribute "max-deviation-hum". - + (Default: 1, allowed values: 1,2,3,4,5,6,7,8,9,10,15,20,25,30,35,40,45,50)
    + + Maximum permissible deviation of the measured temperature from the previous value in Kelvin.
    + Explanation see attribute "max-deviation-hum". +

  • model
    - (Default: other, currently supported sensors: E0001PA, S522)
    - - The sensors of the "SD_WS_33 series" use different positions for the battery bit and different readings. - If the battery bit is detected incorrectly (low instead of ok), then you can possibly adjust with the model selection of the sensor.
    - So far, 3 variants are known. All sensors are created by Autocreate as model "other". - If you receive a Conrad S522, Renkforce E0001PA or TX-EZ6, then set the appropriate model for the proper processing of readings. - -

    • + (Default: other, currently supported sensors: E0001PA, S522 and TX-EZ6)
    + + The sensors of the "SD_WS_33 series" use different positions for the battery bit and different readings. + If the battery bit is detected incorrectly (low instead of ok), then you can possibly adjust with the model selection of the sensor.
    + So far, 3 variants are known. All sensors are created by Autocreate as model "other". + If you receive a Conrad S522, Renkforce E0001PA or TX-EZ6, then set the appropriate model for the proper processing of readings. + +
  • readingFnAttributes

    • -
  • showtime

    • +
  • showtime


    • Set -
      N/A

    +
      N/A

    =end html @@ -1318,32 +1859,46 @@ sub SD_WS_WH2SHIFT($){
    Unterstützte Modelle:

      +
    • ADE WS1907 Wetterstation mit Regenmesser
    • Atech Wetterstation
      • -
    • Bresser 7009994
      • -
    • BresserTemeo
      • +
    • BBQ Temperatur Sensor GT-TMBBQ-01s (Sender), GT-TMBBQ-01e (Empfaenger)
      • +
    • Bresser 5-in-1 und 6-in-1 Comfort Wetter Center, 7009994, Profi Regenmesser, Temeo
    • Conrad S522
    • EuroChron EFTH-800, EFS-3110A (Temperatur- und Feuchtigkeitssensor)
      • +
    • Fine Offset WH51, aka ECOWITT WH51, aka Froggit DP100, aka MISOL/1 (Bodenfeuchtesensor)
      • +
    • Fine Offset WH57, aka Froggit DP60, aka Ambient Weather WH31L (Gewittersensor)
      • +
    • Fody E42 (Temperatur- und Feuchtigkeitssensor)
      • +
    • Kabelloses Grillthermometer, Modellname: GFGT 433 B1
    • NC-3911, NC-3912 digitales Kuehl- und Gefrierschrank-Thermometer
      • -
    • Opus XT300
      • +
    • Opus XT300
    • PV-8644 infactory Poolthermometer
      • -
    • Regenmesser DROP TFA 47.3005.01 mit Regensensor TFA 30.3233.01
      • +
    • Regenmesser DROP TFA 47.3005.01 mit Regensensor TFA 30.3233.01
    • Renkforce E0001PA
      • -
    • TECVANCE TV-4848
      • -
    • Temperatur-Sensor TFA 30.3228.02, TFA 30.3229.02, FT007T, FT007TP, F007T, F007TP
      • -
    • Temperatur/Feuchte-Sensor TFA 30.3208.02, FT007TH, F007TH
      • -
    • TX-EZ6 fuer Wetterstation TZS First Austria
      • -
    • WH2 (TFA Dostmann/Wertheim 30.3157 (Deutschland), Agimex Rosenborg 66796 (Denmark), ClimeMET CM9088 (UK)
      • -
    • Wetterstation Auriol IAN 283582 Version 06/2017 (Lidl), Modell-Nr.: HG02832D
      • -
    • Wetterstation Auriol AHFL 433 B2, IAN 314695 (Lidl)
      • -
    • Wetterstation TFA 35.1140.01 mit Temperatur-/Feuchtesensor TFA 30.3221.02 und Temperatur-/Feuchte- und Windsensor TFA 30.3222.02
      • -
    +
  • TECVANCE TV-4848
    • +
  • Temperatur-Sensor TFA 30.3228.02, TFA 30.3229.02, FT007T, FT007TP, F007T, F007TP
    • +
  • Temperatur/Feuchte-Sensor TFA 30.3208.02, FT007TH, F007TH
    • +
  • TS-FT002 Wassertank Füllstandswächter mit Temperatur
    • +
  • TX-EZ6 fuer Wetterstation TZS First Austria
    • +
  • WH2, WH2A (TFA Dostmann/Wertheim 30.3157 (Deutschland), Agimex Rosenborg 66796 (Denmark), ClimeMET CM9088 (UK)
    • +
  • Wetterstation Auriol IAN 283582 Version 06/2017 (Lidl), Modell-Nr.: HG02832D
    • +
  • Wetterstation Auriol AHFL 433 B2, IAN 314695 (Lidl)
    • +
  • Wetterstation TFA 35.1140.01 mit Temperatur-/Feuchtesensor TFA 30.3221.02 und Temperatur-/Feuchte- und Windsensor TFA 30.3222.02
    • +

    Define

      - Neu empfangene Sensoren werden in FHEM normalerweise per autocreate automatisch angelegt.
      - Es ist auch möglich, die Geräte manuell mit folgendem Befehl einzurichten:

      + Neu empfangene Sensoren werden in FHEM normalerweise per autocreate automatisch angelegt.
      + Sensoren, die eine Kanalnummer unterstützen, werden z.B. in folgender Form angelegt:
      + SD_WS_33_1
      + Dabei kennzeichnet die 1 das der Sensor mit Kanal 1 angelegt wurde. + Sensoren, die keine Kanalauswahl bieten, werden ohne Kanalnummer angelegt, wie z.B.:
      + SD_WS_108
      + Sollten mehrere Sensoren ohne oder mit gleicher Kanalnummer empfangen werden, + so kann man beim SIGNALduino das Attribut "longids" setzen. + Jeder Sensor bekommt dann eine eindeutige Ident zugeordnet, die sich allerdings beim Batteriewechsel oder Neustart ändern kann.
      + Es ist auch möglich, die Geräte manuell mit folgendem Befehl einzurichten:

      define <name> SD_WS <code>

      <code> ist der Kanal oder eine individuelle Ident, mit dem der Sensor identifiziert wird.
    @@ -1353,17 +1908,26 @@ sub SD_WS_WH2SHIFT($){ Generierte Readings:

      (verschieden, je nach Typ des Sensors)
      -
    • batteryChanged (1)
      • -
    • batteryState (low oder ok)
      • +
    • adc (Roh-Wert vom Analog-Digital-Wandler)
      • +
    • batteryChanged (1)
      • +
    • batteryState (low oder ok)
      • +
    • batteryVoltage (Batteriespannung in Volt)
      • +
    • batteryPercent (Batteriestand in %)
    • channel (Sensor-Kanal)
      • -
    • humidity (Luftfeuchte (1-100 %)
      • -
    • humidityTrend (gleichbleibend, steigend, fallend)
      • -
    • rain_total (l/m²))
      • -
    • sendmode (Der Sendemodus, automatic oder manuell mittels Taster am Sender)
      • -
    • state (T: H: W: R:)
      • -
    • temperature (°C)
      • -
    • temperatureTrend (gleichbleibend, steigend, fallend)
      • -
    • type (Sensortyp)
      • +
    • distance (Entfernung in cm (Protokoll 111) oder km (Protokoll 116)
      • +
    • humidity (Luft-/Bodenfeuchte, 1-100 %)
      • +
    • humidityTrend (Trend Luftfeuchte, gleichbleibend, steigend, fallend)
      • +
    • rain (Regenmenge l/m²))
      • +
    • rain_total (Regenmenge l/m²))
      • +
    • sendmode (Sendemodus, automatic oder manuell mittels Taster am Sender)
      • +
    • state (T: H: W: R:)
      • +
    • temperature (Temperatur °C)
      • +
    • temperatureTrend (Trend Temperatur gleichbleibend, steigend, fallend)
      • +
    • type (Sensortypen)
      • +
    • windDirectionDegree (Windrichtung, Grad)
      • +
    • windDirectionText (Windrichtung, N, NNE, NE, ENE, E, ESE, SE, SSE, S, SSW, SW, WSW, W, WNW, NW, NNW)
      • +
    • windGust (Windboe, m/s)
      • +
    • windSpeed (Windgeschwindigkeit, m/s)


    @@ -1373,41 +1937,41 @@ sub SD_WS_WH2SHIFT($){
  • do_not_notify

  • ignore

  • max-deviation-hum
    - (Standard: 1, erlaubte Werte: 1,2,3,4,5,6,7,8,9,10,15,20,25,30,35,40,45,50)
    - - Maximal erlaubte Abweichung der gemessenen Feuchte zum vorhergehenden Wert in Prozent. -
    Da viele der in dem Modul behandelten Sensoren keine Checksummen o.ä. senden, kann es leicht zum Empfang von unplausiblen Werten kommen. - Um diese abzufangen, kann eine maximale Abweichung zum letzten korrekt empfangenen Wert festgelegt werden. - Größere Abweichungen werden dann ignoriert und führen zu einer Fehlermeldung im Logfile, wie z.B. dieser:
    - SD_WS_TH_84 ERROR - Hum diff too large (old 60, new 68, diff 8)
    - Zusätzlich zum eingestellten Wert wird ein von der Differenz der Empfangszeiten abhängiger Wert addiert. - Dieser beträgt 1.0 % relative Feuchte pro Minute. Das bedeutet z.B. wenn eine Differenz von 8 eingestellt ist - und der zeitliche Abstand des Empfangs der Nachrichten beträgt 3 Minuten, ist die maximal erlaubte Differenz 11. -
    Anstelle der Attribute max-deviation-hum und max-deviation-temp kann bei gutem Empfang des Sensors - auch das Attribut doubleMsgCheck_IDs des SIGNALduino verwendet werden. Dabei wird ein Update der Readings erst - ausgeführt, wenn mindestens zweimal die gleichen Werte empfangen wurden. - + (Standard: 1, erlaubte Werte: 1,2,3,4,5,6,7,8,9,10,15,20,25,30,35,40,45,50)
    + + Maximal erlaubte Abweichung der gemessenen Feuchte zum vorhergehenden Wert in Prozent. +
    Da viele der in dem Modul behandelten Sensoren keine Checksummen o.ä. senden, kann es leicht zum Empfang von unplausiblen Werten kommen. + Um diese abzufangen, kann eine maximale Abweichung zum letzten korrekt empfangenen Wert festgelegt werden. + Größere Abweichungen werden dann ignoriert und führen zu einer Fehlermeldung im Logfile, wie z.B. dieser:
    + SD_WS_TH_84 ERROR - Hum diff too large (old 60, new 68, diff 8)
    + Zusätzlich zum eingestellten Wert wird ein von der Differenz der Empfangszeiten abhängiger Wert addiert. + Dieser beträgt 1.0 % relative Feuchte pro Minute. Das bedeutet z.B. wenn eine Differenz von 8 eingestellt ist + und der zeitliche Abstand des Empfangs der Nachrichten beträgt 3 Minuten, ist die maximal erlaubte Differenz 11. +
    Anstelle der Attribute max-deviation-hum und max-deviation-temp kann bei gutem Empfang des Sensors + auch das Attribut doubleMsgCheck_IDs des SIGNALduino verwendet werden. Dabei wird ein Update der Readings erst + ausgeführt, wenn mindestens zweimal die gleichen Werte empfangen wurden. +

  • max-deviation-temp
    - (Standard: 1, erlaubte Werte: 1,2,3,4,5,6,7,8,9,10,15,20,25,30,35,40,45,50)
    - - Maximal erlaubte Abweichung der gemessenen Temperatur zum vorhergehenden Wert in Kelvin.
    - Erklärung siehe Attribut "max-deviation-hum". - + (Standard: 1, erlaubte Werte: 1,2,3,4,5,6,7,8,9,10,15,20,25,30,35,40,45,50)
    + + Maximal erlaubte Abweichung der gemessenen Temperatur zum vorhergehenden Wert in Kelvin.
    + Erklärung siehe Attribut "max-deviation-hum". +

  • model
    - - (Standard: other, zur Zeit unterstützte Sensoren: E0001PA, S522, TX-EZ6)
    - Die Sensoren der "SD_WS_33 - Reihe" verwenden unterschiedliche Positionen für das Batterie-Bit und unterstützen verschiedene Readings. - Sollte das Batterie-Bit falsch erkannt werden (low statt ok), so kann man mit der Modelauswahl des Sensors das evtl. anpassen.
    - Bisher sind 3 Varianten bekannt. Alle Sensoren werden durch Autocreate als Model "other" angelegt. - Empfangen Sie einen Sensor vom Typ Conrad S522, Renkforce E0001PA oder TX-EZ6, so stellen Sie das jeweilige Modell für die richtige Verarbeitung der Readings ein. - -

    • + + (Standard: other, zur Zeit unterstützte Sensoren: E0001PA, S522, TX-EZ6)
    + Die Sensoren der "SD_WS_33 - Reihe" verwenden unterschiedliche Positionen für das Batterie-Bit und unterstützen verschiedene Readings. + Sollte das Batterie-Bit falsch erkannt werden (low statt ok), so kann man mit der Modelauswahl des Sensors das evtl. anpassen.
    + Bisher sind 3 Varianten bekannt. Alle Sensoren werden durch Autocreate als Model "other" angelegt. + Empfangen Sie einen Sensor vom Typ Conrad S522, Renkforce E0001PA oder TX-EZ6, so stellen Sie das jeweilige Modell für die richtige Verarbeitung der Readings ein. + +
  • readingFnAttributes

    • -
  • showtime

    • +
  • showtime

    • -
    +
    Set
      N/A