FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-08 13:24:56 +00:00
Code Issues Releases Wiki Activity

14_CUL_TCM97001: Add Ventus W155, bugfixing

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@18090 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
bjoernh 2018-12-30 07:24:59 +00:00
parent 3762ea690f
commit 56514d58d7
3 changed files with 206 additions and 190 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
fhem/CHANGED
View File

@ -1,5 +1,6 @@
# Add changes at the top of the list. Keep it in ASCII, and 80-char wide. # 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. # Do not insert empty lines here, update check depends on it.
- feature: 14_CUL_TCM97001: Add Ventus W155, bugfixing
- feature: 89_FULLY: Support for HTTPS added - feature: 89_FULLY: Support for HTTPS added
- change: DOIFtools: add DOIF's weekday 9 to next timer - change: DOIFtools: add DOIF's weekday 9 to next timer
- feature: 34_ESPEasy: improved deepsleep support - feature: 34_ESPEasy: improved deepsleep support

10
fhem/FHEM/10_IT.pm
View File

@ -82,7 +82,8 @@ my %bintotristate=(
my %bintotristateV3=( my %bintotristateV3=(
"10" => "1", "10" => "1",
"01" => "0", "01" => "0",
"00" => "D" "00" => "D",
"11" => "2"
); );
my %bintotristateHE=( my %bintotristateHE=(
"10" => "1", "10" => "1",
@ -952,7 +953,12 @@ IT_Parse($$)
} }
$bin = $bin1;# . $bin3; $bin = $bin1;# . $bin3;
} else { # IT } else { # IT
$bin=sprintf("%024b",hex(substr($msg,1,length($msg)-1))); if (length($msg) > 10) {
Log3 $hash,4,"$ioname IT: Wrong IT message received: $msg";
return undef;
} else {
$bin=sprintf("%024b",hex(substr($msg,1,length($msg)-1)));
}
} }
if ((length($bin) % 2) != 0) { if ((length($bin) % 2) != 0) {

385
fhem/FHEM/14_CUL_TCM97001.pm
View File

@ -39,6 +39,8 @@
# 04.07.2017 PFR-130 rain pejonp # 04.07.2017 PFR-130 rain pejonp
# 04.07.2017 TFA 30.3161 temp/rain pejonp # 04.07.2017 TFA 30.3161 temp/rain pejonp
# 22.10.2017 W174 rain elektron-bbs/HomeAutoUser # 22.10.2017 W174 rain elektron-bbs/HomeAutoUser
# 06.02.2018 W044 Ventus W155 Temp/Hum pejonp
# 06.02.2018 W132 Ventus W155 Wind/Speed/Direction pejonp
############################################## ##############################################
package main; package main;
@ -69,6 +71,8 @@ my %models = (
"KW9010" => 'KW9010', "KW9010" => 'KW9010',
"Unknown" => 'Unknown', "Unknown" => 'Unknown',
"W174" => 'W174', "W174" => 'W174',
"W044" => 'W044',
"W132" => 'W132',
); );
sub sub
@ -103,7 +107,9 @@ CUL_TCM97001_Initialize($)
"PFR_130.*" => { ATTR => "event-min-interval:.*:300 event-on-change-reading:.*", GPLOT => "temp4hum4:Temp/Hum,", FILTER => "%NAME", autocreateThreshold => "2:180"}, "PFR_130.*" => { ATTR => "event-min-interval:.*:300 event-on-change-reading:.*", GPLOT => "temp4hum4:Temp/Hum,", FILTER => "%NAME", autocreateThreshold => "2:180"},
"KW9010.*" => { ATTR => "event-min-interval:.*:300 event-on-change-reading:.*", GPLOT => "temp4hum4:Temp/Hum,", FILTER => "%NAME", autocreateThreshold => "2:180"}, "KW9010.*" => { ATTR => "event-min-interval:.*:300 event-on-change-reading:.*", GPLOT => "temp4hum4:Temp/Hum,", FILTER => "%NAME", autocreateThreshold => "2:180"},
"TCM97001.*" => { ATTR => "event-on-change-reading:.*", GPLOT => "temp4hum4:Temp/Hum,", FILTER => "%NAME", autocreateThreshold => "2:340"}, "TCM97001.*" => { ATTR => "event-on-change-reading:.*", GPLOT => "temp4hum4:Temp/Hum,", FILTER => "%NAME", autocreateThreshold => "2:340"},
"W174.*" => { ATTR => "event-min-interval:.*:300 event-on-change-reading:.*", GPLOT => "rain4:Rain,", FILTER => "%NAME", autocreateThreshold => "2:180"}, "W174.*" => { ATTR => "event-min-interval:.*:300 event-on-change-reading:.*", GPLOT => "rain4:Rain,", FILTER => "%NAME", autocreateThreshold => "2:180"},
"W044.*" => { ATTR => "event-min-interval:.*:300 event-on-change-reading:.*", GPLOT => "temp4hum4:Temp/Hum,", FILTER => "%NAME", autocreateThreshold => "2:180"},
"W132.*" => { ATTR => "event-min-interval:.*:300 event-on-change-reading:.*", GPLOT => "temp4hum4:Temp/Hum,", FILTER => "%NAME", autocreateThreshold => "2:180"},
"Unknown_.*" => { autocreateThreshold => "2:10"} "Unknown_.*" => { autocreateThreshold => "2:10"}
}; };
} }
@ -163,6 +169,32 @@ sub checksum_W174 {
} }
} }
### inserted by pejonp 3.2.2018 Ventus W132/W044
# Checksum for Temp/Hum/Wind Ventus W132/W0044 Protocol Auriol
# n8 = ( 0xf - n0 - n1 - n2 - n3 - n4 - n5 - n6 - n7 ) & 0xf
sub checksum_W155 {
my $msg = shift;
Log3 "CUL_TCM97001 ", 5 , "CUL_TCM97001 W155 checksum calc for: $msg";
my @a = split("", $msg);
my $bitReverse = undef;
my $x = undef;
foreach $x (@a) {
my $bin3=sprintf("%04b",hex($x));
$bitReverse = $bitReverse . reverse($bin3);
}
my $hexReverse = unpack("H*", pack ("B*", $bitReverse));
my @aReverse = split("", $hexReverse); # Split reversed a again
my $CRC = (0xF - hex($aReverse[0])- hex($aReverse[1]) - hex($aReverse[2]) - hex($aReverse[3]) - hex($aReverse[4]) - hex($aReverse[5]) - hex($aReverse[6]) - hex($aReverse[7])) & 0xF;
if ($CRC == hex($aReverse[8])) {
Log3 "CUL_TCM97001 ", 5 , "CUL_TCM97001 W155 checksum ok $CRC == ".hex($aReverse[8]);
return TRUE;
} else {
return FALSE;
}
}
# #
# CRC Check for TCM 21.... # CRC Check for TCM 21....
# #
@ -309,6 +341,10 @@ sub checkCRC_Type1 {
sub checkValues { sub checkValues {
my $temp = shift; my $temp = shift;
my $humidy = shift; my $humidy = shift;
if (!defined($temp)) {
return FALSE;
}
if (!defined($humidy)) { if (!defined($humidy)) {
$humidy = 50; $humidy = 50;
} }
@ -389,7 +425,8 @@ CUL_TCM97001_Parse($$)
my $humidity=undef; my $humidity=undef;
my $channel = undef; my $channel = undef;
# für zusätzliche Sensoren # für zusätzliche Sensoren
my @winddir_name=("N","NNE","NE","ENE","E","ESE","SE","SSE","S","SSW","SW","WSW","W","WNW","NW","NNW"); #my @winddir_name=("N","NNE","NE","ENE","E","ESE","SE","SSE","S","SSW","SW","WSW","W","WNW","NW","NNW");
my @winddir_name=("N","N","NE","E","SE","S","SW","W","NW"); #W132 Only these values were seen:0 (N), 45 (NE), 90 (E), 135 (SE), 180 (S), 225 (SW), 270 (W), 315 (NW).
my $windSpeed = 0; my $windSpeed = 0;
my $windDirection = 0 ; my $windDirection = 0 ;
my $windDirectionText = "N"; my $windDirectionText = "N";
@ -513,7 +550,6 @@ CUL_TCM97001_Parse($$)
} }
my $deviceCode; my $deviceCode;
if (!defined($modules{CUL_TCM97001}{defptr}{$tcm97id})) if (!defined($modules{CUL_TCM97001}{defptr}{$tcm97id}))
{ {
if ( $enableLongIDs == TRUE || (($longids != "0") && ($longids eq "1" || $longids eq "ALL" || (",$longids," =~ m/,$model,/)))) if ( $enableLongIDs == TRUE || (($longids != "0") && ($longids eq "1" || $longids eq "ALL" || (",$longids," =~ m/,$model,/))))
@ -531,8 +567,6 @@ CUL_TCM97001_Parse($$)
$name = $def->{NAME}; $name = $def->{NAME};
} }
if(!$def) { if(!$def) {
Log3 $name, 2, "$iodev: CUL_TCM97001 Unknown device $deviceCode, please define it"; Log3 $name, 2, "$iodev: CUL_TCM97001 Unknown device $deviceCode, please define it";
return "UNDEFINED $model" . substr($deviceCode, rindex($deviceCode,"_")) . " CUL_TCM97001 $deviceCode"; return "UNDEFINED $model" . substr($deviceCode, rindex($deviceCode,"_")) . " CUL_TCM97001 $deviceCode";
@ -544,8 +578,7 @@ CUL_TCM97001_Parse($$)
} }
} }
} elsif (length($msg) == 10) { } elsif (length($msg) == 10) {
#Log3 $name, 2, "CUL_TCM97001 10er msg: " . $msg; my $idType2 = hex($a[1] . $a[2]);
my $idType2 = hex($a[1] . $a[2]);
my $deviceCode = $idType2; my $deviceCode = $idType2;
$def = $modules{CUL_TCM97001}{defptr}{$deviceCode}; # test for already defined devices use old naming convention $def = $modules{CUL_TCM97001}{defptr}{$deviceCode}; # test for already defined devices use old naming convention
if(!$def) { if(!$def) {
@ -640,8 +673,7 @@ CUL_TCM97001_Parse($$)
} }
$readedModel = AttrVal($name, "model", "Unknown"); $readedModel = AttrVal($name, "model", "Unknown");
if (($readedModel eq "AURIOL" || $readedModel eq "Unknown")&& (length($msg) == 10)) {
if (($readedModel eq "AURIOL" || $readedModel eq "Unknown")) {
# Implementation from Femduino # Implementation from Femduino
# AURIOL (Lidl Version: 09/2013) # AURIOL (Lidl Version: 09/2013)
# /--------------------------------- Channel, changes after every battery change # /--------------------------------- Channel, changes after every battery change
@ -858,7 +890,9 @@ CUL_TCM97001_Parse($$)
$hasbatcheck = TRUE; $hasbatcheck = TRUE;
my $rainticks = hex($aReverse[4]) + hex($aReverse[5]) * 16 + hex($aReverse[6]) * 256 + hex($aReverse[7]) * 4096; my $rainticks = hex($aReverse[4]) + hex($aReverse[5]) * 16 + hex($aReverse[6]) * 256 + hex($aReverse[7]) * 4096;
Log3 $hash,5, "$iodev: CUL_TCM97001 $name rain gauge swing count: $rainticks"; Log3 $hash,5, "$iodev: CUL_TCM97001 $name rain gauge swing count: $rainticks";
$rain = ($rainticks + ($rainticks & 1)) / 4; # 1 tick = 0,5 l/qm #$rain = ($rainticks + ($rainticks & 1)) / 4; # 1 tick = 0,5 l/qm
# pejonp 3.2.2018 0,25mm Schritte nicht 0,5
$rain = $rainticks * 0.25;
$model="W174"; $model="W174";
$hasrain = TRUE; $hasrain = TRUE;
# Sanity check # Sanity check
@ -898,7 +932,8 @@ CUL_TCM97001_Parse($$)
} }
} }
if (checkCRC($msg) == TRUE && ($readedModel eq "Unknown" || $readedModel eq "TCM21....")) { ### inserted by pejonp 3.2.2018 Ventus W132/W044
if (checksum_W155($msg) == TRUE && ($readedModel eq "Unknown" || $readedModel eq "W044" || $readedModel eq "W132")) {
# Long with tmp # Long with tmp
# All nibbles must be reversed # All nibbles must be reversed
# e.g. 154E800480 0001 0101 0100 1110 1000 0000 0000 0100 1000 0000 # e.g. 154E800480 0001 0101 0100 1110 1000 0000 0000 0100 1000 0000
@ -908,83 +943,55 @@ CUL_TCM97001_Parse($$)
# D+E+F Temp # D+E+F Temp
# G+H Hum # G+H Hum
# I CRC # I CRC
#/* Documentation also at http://www.tfd.hu/tfdhu/files/wsprotocol/auriol_protocol_v20.pdf #/* Documentation also at http://www.tfd.hu/tfdhu/files/wsprotocol/auriol_protocol_v20.pdf
# * Message Format: (9 nibbles, 36 bits): # * Message Format: (9 nibbles, 36 bits):
# * Please note that bytes need to be reversed before processing! # * Please note that bytes need to be reversed before processing!
# * # *
# * Format for Temperature Humidity # * Format for Temperature Humidity
# * AAAAAAAA BBBB CCCC CCCC CCCC DDDDDDDD EEEE # * AAAAAAAA BBBB CCCC CCCC CCCC DDDDDDDD EEEE
# * RC Type Temperature___ Humidity Checksum # * RC Type Temperature___ Humidity Checksum
# * A = Rolling Code / Device ID # * A = Rolling Code / Device ID
# * Device ID: AAAABBAA BB is used for channel, base channel is 01 # * Device ID: AAAABBAA BB is used for channel, base channel is 01
# * When channel selector is used, channel can be 10 (2) and 11 (3) # * When channel selector is used, channel can be 10 (2) and 11 (3)
# * B = Message type (xyyz = temp/humidity if yy <> '11') else wind/rain sensor # * B = Message type (xyyz = temp/humidity if yy <> '11') else wind/rain sensor
# * x indicates battery status (0 normal, 1 voltage is below ~2.6 V) # * x indicates battery status (0 normal, 1 voltage is below ~2.6 V)
# * z 0 indicates regular transmission, 1 indicates requested by pushbutton # * z 0 indicates regular transmission, 1 indicates requested by pushbutton
# * C = Temperature (two's complement) # * C = Temperature (two's complement)
# * D = Humidity BCD format # * D = Humidity BCD format
# * E = Checksum # * E = Checksum
# *
# * Format for Rain
# * AAAAAAAA BBBB CCCC DDDD DDDD DDDD DDDD EEEE
# * RC Type Rain Checksum
# * A = Rolling Code /Device ID
# * B = Message type (xyyx = NON temp/humidity data if yy = '11')
# * C = fixed to 1100 (C)
# * D = Rain (bitvalue * 0.25 mm)
# * E = Checksum
# *
# * Format for Windspeed
# * AAAAAAAA BBBB CCCC CCCC CCCC DDDDDDDD EEEE
# * RC Type Windspd Checksum
# * A = Rolling Code
# * B = Message type (xyyx = NON temp/humidity data if yy = '11')
# * C = Fixed to 1000 0000 0000 (8)
# * D = Windspeed (bitvalue * 0.2 m/s, correction for webapp = 3600/1000 * 0.2 * 100 = 72)
# * E = Checksum
# *
# * Format for Winddirection & Windgust
# * AAAAAAAA BBBB CCCD DDDD DDDD EEEEEEEE FFFF
# * RC Type Winddir Windgust Checksum
# * A = Rolling Code
# * B = Message type (xyyx = NON temp/humidity data if yy = '11')
# * C = Fixed to 111 (E)
# * D = Wind direction
# * E = Windgust (bitvalue * 0.2 m/s, correction for webapp = 3600/1000 * 0.2 * 100 = 72)
# * F = Checksum
# *********************************************************************************************
# */
my @a = split("", $msg); my @a = split("", $msg);
my $bitReverse = undef; my $bitReverse = undef;
my $bitUnreverse = undef; my $bitUnreverse = undef;
my $x = undef; my $x = undef;
my $bin3; my $bin3;
my $hlen = length($msg);
my $blen = $hlen * 4;
my $bitData = unpack("B$blen", pack("H$hlen", $msg));
foreach $x (@a) { foreach $x (@a) {
$bin3=sprintf("%024b",hex($x)); $bin3=sprintf("%024b",hex($x));
$bitReverse = $bitReverse . substr(reverse($bin3),0,4); $bitReverse = $bitReverse . substr(reverse($bin3),0,4);
$bitUnreverse = $bitUnreverse . sprintf( "%b", hex( substr($bin3,0,4) ) ); $bitUnreverse = $bitUnreverse . sprintf( "%b", hex( substr($bin3,0,4) ) );
} }
my $hexReverse = unpack("H*", pack ("B*", $bitReverse)); my $hexReverse = uc(unpack("H*", pack ("B*", $bitReverse)));
#Split reversed a again
my @aReverse = split("", $hexReverse); my @aReverse = split("", $hexReverse);
Log3 $hash,4, "$iodev: CUL_TCM97001 hex:$hexReverse msg:$msg aR:@aReverse "; my @amsg = split("", $msg);
my $msgt = substr($bitData,9,2);
# Message type (xyyz = temp/humidity if yy <> '11') else wind/rain sensor Log3 $hash,5, "$iodev: CUL_TCM97001_01: msg:$msg typ:$msgt";
# Message type (xyyx = NON temp/humidity data if yy = '11') Log3 $hash,5, "$iodev: CUL_TCM97001_01: aR:$hexReverse";
$msgtype = substr(sprintf( "%04b", hex( substr( $msg,2,1))),1,2); Log3 $hash,5, "$iodev: CUL_TCM97001_01: bitData:$bitData ";
Log3 $hash,4, "$iodev: CUL_TCM97001 nib2:$msgtype aRev: $aReverse[2]"; $channel = oct("0b".substr( $bitData,4,2));
$haschannel = TRUE;
$msgtype = substr(sprintf( "%04b", hex( $aReverse[2])),1,2); $batbit = substr($bitData,8,1);
Log3 $hash,4, "$iodev: CUL_TCM97001 nib2R:$msgtype hexR: $hexReverse"; $batbit = $batbit ? 0 : 1; # Bat bit umdrehen
$hasbatcheck = TRUE;
# Temp/Hum
if ( $msgtype ne "11") { if ( $msgt ne "11") {
Log3 $hash,4, "$iodev: CUL_TCM97001 Temp/Hum Msgype: $msgtype nib3:$aReverse[3] "; $mode = substr($bitData,11,1);
$hasmode = TRUE;
if (hex($aReverse[5]) > 3) { if (hex($aReverse[5]) > 3) {
# negative temp # negative temp
$temp = ((hex($aReverse[3]) + hex($aReverse[4]) * 16 + hex($aReverse[5]) * 256)); $temp = ((hex($aReverse[3]) + hex($aReverse[4]) * 16 + hex($aReverse[5]) * 256));
$temp = (~$temp & 0x03FF) + 1; $temp = (~$temp & 0x03FF) + 1;
$temp = -$temp/10; $temp = -$temp/10;
@ -992,68 +999,92 @@ CUL_TCM97001_Parse($$)
# positive temp # positive temp
$temp = (hex($aReverse[3]) + hex($aReverse[4]) * 16 + hex($aReverse[5]) * 256)/10; $temp = (hex($aReverse[3]) + hex($aReverse[4]) * 16 + hex($aReverse[5]) * 256)/10;
} }
$humidity = hex($aReverse[7]).hex($aReverse[6]); $humidity = hex($aReverse[7]).hex($aReverse[6]);
$hashumidity = TRUE; $hashumidity = TRUE;
$model="W044";
Log3 $hash,5, "$iodev: CUL_TCM97001_02: $model CH:$channel Bat:$batbit Mode:$mode T:$temp H:$humidity ";
$packageOK = TRUE;
} else { } else {
# Wind/Rain/Guest # Wind/Rain/Guest
Log3 $hash,4, "$iodev: CUL_TCM97001 Wind/Rain/Guest Msgype: $msgtype nib3:$aReverse[3] "; # C = Fixed to 1000 0000 0000 Reverse 0001 0000 0000
# C = Fixed to 1000 0000 0000 Reverse 0001 0000 0000 # * Format for Windspeed
if ((hex($aReverse[3])== 0x1) && (hex($aReverse[4])== 0x0)) { # Windspeed # * AAAAAAAA BBBB CCCC CCCC CCCC DDDDDDDD EEEE
$windSpeed = hex($aReverse[6]) + hex($aReverse[7]); # * RC Type Windspd Checksum
# * A = Rolling Code
# * B = Message type (xyyx = NON temp/humidity data if yy = '11')
# * C = Fixed to 1000 0000 0000 (8)
# * D = Windspeed (bitvalue * 0.2 m/s, correction for webapp = 3600/1000 * 0.2 * 100 = 72)
# * E = Checksum
if ((hex($a[3])== 0x8) && (hex($a[4])== 0x0)&& (hex($a[5])== 0x0)) { # Windspeed
$windSpeed = (hex($aReverse[6]) + hex($aReverse[7])) * 0.2;
$haswindspeed = TRUE; $haswindspeed = TRUE;
Log3 $hash,4, "$iodev: CUL_TCM97001 windSpeed: $windSpeed "; $model="W132";
Log3 $hash,5, "$iodev: CUL_TCM97001_03: $model windSpeed: $windSpeed aR: $aReverse[6] $aReverse[7]";
} }
# * Format for Winddirection & Windgust
if ((hex($aReverse[3])== 0xF)) { # Windguest Reverse # * AAAAAAAA BBBB CCCD DDDD DDDD EEEEEEEE FFFF
$windGuest = hex($aReverse[6]) + hex($aReverse[7]); # * RC Type Winddir Windgust Checksum
$windDirection = hex($aReverse[4]) + hex($aReverse[5]) ; # * A = Rolling Code
# * B = Message type (xyyx = NON temp/humidity data if yy = '11')
# * C = Fixed to 111 (E)
# * D = Wind direction
# * E = Windgust (bitvalue * 0.2 m/s, correction for webapp = 3600/1000 * 0.2 * 100 = 72)
# * F = Checksum
if ((hex($amsg[3])== 0xE)|| (hex($amsg[3])== 0xF)) { # Windguest
$windGuest = (hex($aReverse[6]) + hex($aReverse[7])) * 0.2;
$windDirection = (hex($a[5]) >> 1) | (hex($a[4]) & 0x1);
$windDirectionText = $winddir_name[$windDirection]; $windDirectionText = $winddir_name[$windDirection];
$haswind = TRUE; $haswind = TRUE;
Log3 $hash,4, "$iodev: CUL_TCM97001 windGuest: $windGuest "; $model="W132";
Log3 $hash,4, "$iodev: CUL_TCM97001_04: $model windGuest: $windGuest aR: $aReverse[6] $aReverse[7] winddir:$windDirection aR:$aReverse[4] $aReverse[5] txt:$windDirectionText";
} }
if ((hex($aReverse[3])== 0x3)) { # Rain # * Format for Rain
$rain = (hex($aReverse[4]) + hex($aReverse[5]) + hex($aReverse[6]) + hex($aReverse[7])) * 0.25; # * AAAAAAAA BBBB CCCC DDDD DDDD DDDD DDDD EEEE
# * RC Type Rain Checksum
# * A = Rolling Code /Device ID
# * B = Message type (xyyx = NON temp/humidity data if yy = '11')
# * C = fixed to 1100 (C)
# * D = Rain (bitvalue * 0.25 mm)
# * E = Checksum
if ((hex($amsg[3])== 0xC)) { # Rain
$rain = (hex($amsg[4]) + hex($amsg[5]) + hex($amsg[6]) + hex($amsg[7])) * 0.25;
$hasrain = TRUE; $hasrain = TRUE;
Log3 $hash,4, "$iodev: CUL_TCM97001 rain: $rain "; $model="W174";
Log3 $hash,4, "$iodev: CUL_TCM97001_05: $model rain: $rain ";
} }
} }
if ( checkValues($temp, $hashumidity) || $haswindspeed ||$haswind || $hasrain || $haschannel || $hasbatcheck ) {
my $deviceCode;
### edited by @HomeAutoUser if (!defined($modules{CUL_TCM97001}{defptr}{$idType1}))
if (checkValues($temp, $humidity) == TRUE) { # unplausibel Werte sonst teilweise {
$batbit = (hex($a[2]) & 0x8) >> 3; if ( $enableLongIDs == TRUE || (($longids != "0") && ($longids eq "1" || $longids eq "ALL" || (",$longids," =~ m/,$model,/))))
#$mode = (hex($a[2]) & 0x4) >> 2; {
$model="TCM21...."; $deviceCode="CUL_TCM97001_".$idType1;
if ($deviceCode ne $idType1) # new naming convention Log3 $hash,4, "$iodev: CUL_TCM97001_06: model: $model $deviceCode";
{ } else {
if ( $enableLongIDs == TRUE || (($longids != "0") && ($longids eq "1" || $longids eq "ALL" || (",$longids," =~ m/,$model,/)))) $deviceCode="CUL_TCM97001_" . $model . "_" . $channel;
{ Log3 $hash,4, "$iodev: CUL_TCM97001_07: model: $model $deviceCode";
Log3 $hash,4, "$iodev: CUL_TCM97001 using longid: $longids model: $model"; }
} else { } else { # Fallback for already defined devices use old naming convention
$deviceCode="$iodev: CUL_TCM97001_" . $model . "_" . $channel; $deviceCode=$idType1;
} }
} $def = $modules{CUL_TCM97001}{defptr}{$deviceCode};
if($def) {
$def = $modules{CUL_TCM97001}{defptr}{$deviceCode}; $name = $def->{NAME};
if($def) { }
$name = $def->{NAME}; if(!$def) {
} Log3 $name, 2, "$iodev: CUL_TCM97001_08: Unknown device $deviceCode, please define it";
if(!$def) { return "UNDEFINED $model" . substr($deviceCode, rindex($deviceCode,"_")) . " CUL_TCM97001 $deviceCode";
Log3 $name, 2, "$iodev: CUL_TCM97001 Unknown device $deviceCode, please define it";
return "UNDEFINED $model" . substr($deviceCode, rindex($deviceCode,"_")) . " CUL_TCM97001 $deviceCode";
}
$packageOK = TRUE;
$hasbatcheck = TRUE;
$readedModel=$model;
} else {
$name = "Unknown";
} }
$hasbatcheck = TRUE;
} $packageOK = TRUE;
$readedModel=$model;
Log3 $hash,5, "$iodev: CUL_TCM97001_09: model:$model Rmodel:$readedModel Mode:$hasmode P:$packageOK ";
Log3 $hash,5, "$iodev: CUL_TCM97001_10: Channel:$channel B:$hasbatcheck BAT:$batbit W:$haswindspeed Wind: $windDirection ";
} else {
$name = "Unknown";
}
}
if (checkCRC_GTWT02($msg) == TRUE && ($readedModel eq "GT_WT_02" || $readedModel eq "Type1" || $readedModel eq "Unknown") if (checkCRC_GTWT02($msg) == TRUE && ($readedModel eq "GT_WT_02" || $readedModel eq "Type1" || $readedModel eq "Unknown")
|| checkCRC_Type1($msg) == TRUE && ($readedModel eq "Type1" || $readedModel eq "GT_WT_02" || $readedModel eq "Unknown")) { || checkCRC_Type1($msg) == TRUE && ($readedModel eq "Type1" || $readedModel eq "GT_WT_02" || $readedModel eq "Unknown")) {
@ -1392,7 +1423,7 @@ CUL_TCM97001_Parse($$)
} }
} }
if ( (isRain($msg)!=TRUE) && ($readedModel eq "AURIOL" || $readedModel eq "Unknown") && ($readedModel ne "PFR_130")) { if ( (isRain($msg)!=TRUE) && ($readedModel eq "Unknown") && ($readedModel ne "PFR_130") && length($msg) == 10) {
# Implementation from Femduino # Implementation from Femduino
# AURIOL (Lidl Version: 09/2013) # AURIOL (Lidl Version: 09/2013)
# /--------------------------------- Channel, changes after every battery change # /--------------------------------- Channel, changes after every battery change
@ -1622,32 +1653,9 @@ CUL_TCM97001_Parse($$)
Log3 $name, 5, "$iodev: CUL_TCM97001 2. $lastDay : $lastHour : $rainSumDay : $rainSumHour"; Log3 $name, 5, "$iodev: CUL_TCM97001 2. $lastDay : $lastHour : $rainSumDay : $rainSumHour";
$state="$state RainH: $rainSumHour RainD: $rainSumDay R: $rainticks Rmm: $rainMM"; $state="$state RainH: $rainSumHour RainD: $rainSumDay R: $rainticks Rmm: $rainMM";
Log3 $name, 5, "$iodev: CUL_TCM97001 $msgtype $name $id3 state: $state"; Log3 $name, 5, "$iodev: CUL_TCM97001 $msgtype $name $id3 state: $state";
} else {
### edited by elektron-bbs
# W174 has no temperature
if ($model ne "W174") {
$msgtype = "temperature";
$val = sprintf("%2.1f", ($temp) );
$state="T: $val";
# if ($hashumidity == TRUE) {
# if ($model eq "Prologue") {
# # plausibility check
# my $oldhumidity = ReadingsVal($name, "humidity", "unknown");
# if ($oldhumidity eq "unknown" || ($humidity+15 > $oldhumidity && $humidity-15 < $oldhumidity)) {
# $hashumidity = TRUE;
# } else {
# $hashumidity = FALSE;
# }
# }
# }
}
} }
#zusätzlich Daten für Wetterstation #zusätzlich Daten für Wetterstation
if ($hasrain == TRUE) { if ($hasrain == TRUE) {
### inserted by elektron-bbs ### inserted by elektron-bbs
#my $rain_old = ReadingsVal($name, "rain", "unknown"); #my $rain_old = ReadingsVal($name, "rain", "unknown");
my $rain_old = ReadingsVal($name, "rain", 0); my $rain_old = ReadingsVal($name, "rain", 0);
@ -1659,39 +1667,30 @@ CUL_TCM97001_Parse($$)
readingsBulkUpdate($def, "rain", $rain ); readingsBulkUpdate($def, "rain", $rain );
$state = "R: $rain"; $state = "R: $rain";
$hasrain = FALSE; $hasrain = FALSE;
} }
if ($haswind == TRUE) {
if ($haswind == TRUE) {
readingsBulkUpdate($def, "windGust", $windGuest ); readingsBulkUpdate($def, "windGust", $windGuest );
readingsBulkUpdate($def, "windDirection", $windDirection ); readingsBulkUpdate($def, "windDirection", $windDirection );
#readingsBulkUpdate($def, "windDirectionDegree", $windDirection * 360 / 16); #readingsBulkUpdate($def, "windDirectionDegree", $windDirection * 360 / 16);
readingsBulkUpdate($def, "windDirectionText", $windDirectionText ); readingsBulkUpdate($def, "windDirectionText", $windDirectionText );
$state = "Wg: $windGuest "." Wd: $windDirectionText "; $state = "Wg: $windGuest "." Wd: $windDirectionText ";
$haswind = FALSE; $haswind = FALSE;
} }
if ($haswindspeed == TRUE) {
if ($haswindspeed == TRUE) {
readingsBulkUpdate($def, "windSpeed", $windSpeed ); readingsBulkUpdate($def, "windSpeed", $windSpeed );
$state = "Ws: $windSpeed "; $state = "Ws: $windSpeed ";
$haswindspeed = FALSE; $haswindspeed = FALSE;
} }
if ($hashumidity == TRUE) { if ($hashumidity == TRUE) {
$msgtypeH = "humidity"; $msgtypeH = "humidity";
$valH = $humidity; $valH = $humidity;
$state="$state H: $valH"; $state="$state H: $valH";
Log3 $name, 4, "$iodev: CUL_TCM97001 $msgtype $name $id3 T: $val H: $valH"; Log3 $name, 4, "$iodev: CUL_TCM97001 $msgtype $name $id3 T: $val H: $valH";
} else { } else {
if ($model eq "W174") { $msgtype = "other";
$msgtype = "other";
}
Log3 $name, 4, "$iodev: CUL_TCM97001 $msgtype $name $id3"; Log3 $name, 4, "$iodev: CUL_TCM97001 $msgtype $name $id3";
#Log3 $name, 4, "CUL_TCM97001 $msgtype $name $id3 "; #Log3 $name, 4, "CUL_TCM97001 $msgtype $name $id3 ";
} }
if($hastrend) { if($hastrend) {
my $readTrend = ReadingsVal($name, "trend", "unknown"); my $readTrend = ReadingsVal($name, "trend", "unknown");
if ($trend == 1) { if ($trend == 1) {
@ -1707,6 +1706,7 @@ CUL_TCM97001_Parse($$)
} else { } else {
if ($battery ne "low") { readingsBulkUpdate($def, "battery", "low"); } if ($battery ne "low") { readingsBulkUpdate($def, "battery", "low"); }
} }
$hasbatcheck = FALSE;
} }
if ($hasmode) { if ($hasmode) {
my $modeVal = ReadingsVal($name, "mode", "unknown"); my $modeVal = ReadingsVal($name, "mode", "unknown");
@ -1715,6 +1715,7 @@ CUL_TCM97001_Parse($$)
} else { } else {
if ($modeVal ne "normal") { readingsBulkUpdate($def, "mode", "normal"); } if ($modeVal ne "normal") { readingsBulkUpdate($def, "mode", "normal"); }
} }
$hasmode = FALSE;
} }
if ($haschannel) { if ($haschannel) {
my $readChannel = ReadingsVal($name, "channel", ""); my $readChannel = ReadingsVal($name, "channel", "");
@ -1797,7 +1798,7 @@ CUL_TCM97001_Parse($$)
=pod =pod
=item summary This module interprets temperature sensor messages. =item summary This module interprets temperature sensor messages.
=item summary_DE Module verarbeitet empfangene Nachrichten von Temp-Sensoren. =item summary_DE Module verarbeitet empfangene Nachrichten von Temp-Sensoren & Wettersensoren.
=begin html =begin html
<a name="CUL_TCM97001"></a> <a name="CUL_TCM97001"></a>
@ -1818,9 +1819,8 @@ CUL_TCM97001_Parse($$)
<li>PFR-130 (rain)</li> <li>PFR-130 (rain)</li>
<li>Prologue</li> <li>Prologue</li>
<li>Rubicson</li> <li>Rubicson</li>
<li>W155 (wind/rain)</li> <li>Ventus W155(Auriol): W044(temp/hum) W132(wind) W174(rain)</li>
<li>W174 (rain)</li> </ul>
</ul>
<br> <br>
New received device packages are add in fhem category CUL_TCM97001 with autocreate. New received device packages are add in fhem category CUL_TCM97001 with autocreate.
<br><br> <br><br>
@ -1834,11 +1834,17 @@ CUL_TCM97001_Parse($$)
<a name="CUL_TCM97001 Events"></a> <a name="CUL_TCM97001 Events"></a>
<b>Generated events:</b> <b>Generated events:</b>
<ul> <ul>
<li>temperature: The temperature</li> <li>temperature: The temperature</li>
<li>humidity: The humidity (if available)</li> <li>humidity: The humidity (if available)</li>
<li>battery: The battery state: low or ok (if available)</li> <li>battery: The battery state: low or ok (if available)</li>
<li>channel: The Channelnumber (if available)</li> <li>channel: The Channelnumber (if available)</li>
<li>trend: The temperature trend (if available)</li> <li>trend: The temperature trend (if available)</li>
<li>israining: Statement rain between two measurements (if available)</li>
<li>rain: The rain value, a consecutive number until the battery is changed (if available)</li>
<li>winddir: The current wind direction</li>
<li>windgrad: The current wind direction in degrees</li>
<li>windspeed: The current wind speed</li>
<li>windgust: windguest</li>
</ul> </ul>
<br> <br>
<b>Attributes</b> <b>Attributes</b>
@ -1851,7 +1857,7 @@ CUL_TCM97001_Parse($$)
</li> </li>
<li><a href="#do_not_notify">do_not_notify</a></li> <li><a href="#do_not_notify">do_not_notify</a></li>
<li><a href="#ignore">ignore</a></li> <li><a href="#ignore">ignore</a></li>
<li><a href="#model">model</a> (ABS700, AURIOL, GT_WT_02, KW9010, NC_WS, PFR-130, Prologue, Rubicson, TCM21...., TCM97…, Unknown, W174)</li> <li><a href="#model">model</a> (ABS700, AURIOL, GT_WT_02, KW9010, NC_WS, PFR-130, Prologue, Rubicson, TCM21...., TCM97…, Unknown, W044, W132, W174)</li>
<li>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)</li> <li>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)</li>
<li><a href="#showtime">showtime</a></li> <li><a href="#showtime">showtime</a></li>
<li><a href="#readingFnAttributes">readingFnAttributes</a></li> <li><a href="#readingFnAttributes">readingFnAttributes</a></li>
@ -1882,9 +1888,8 @@ CUL_TCM97001_Parse($$)
<li>PFR-130 (rain)</li> <li>PFR-130 (rain)</li>
<li>Prologue</li> <li>Prologue</li>
<li>Rubicson</li> <li>Rubicson</li>
<li>W155 (wind/rain)</li> <li>Ventus W155(Auriol): W044(temp/hum) W132(wind) W174(rain)</li>
<li>W174 (rain)</li> </ul>
</ul>
<br> <br>
Neu empfangene Sensoren werden in der fhem Kategory CUL_TCM97001 per autocreate angelegt. Neu empfangene Sensoren werden in der fhem Kategory CUL_TCM97001 per autocreate angelegt.
<br><br> <br><br>
@ -1898,13 +1903,17 @@ CUL_TCM97001_Parse($$)
<a name="CUL_TCM97001 Events"></a> <a name="CUL_TCM97001 Events"></a>
<b>Generierte Events:</b> <b>Generierte Events:</b>
<ul> <ul>
<li>temperature: Die aktuelle Temperatur</li> <li>temperature: Die aktuelle Temperatur</li>
<li>humidity: Die aktuelle Luftfeutigkeit (falls verfügbar)</li> <li>humidity: Die aktuelle Luftfeutigkeit (falls verfügbar)</li>
<li>battery: Der Batteriestatus: low oder ok (falls verfügbar)</li> <li>battery: Der Batteriestatus: low oder ok (falls verfügbar)</li>
<li>channel: Kanalnummer (falls verfügbar)</li> <li>channel: Kanalnummer (falls verfügbar)</li>
<li>trend: Der Temperaturtrend (falls verfügbar)</li> <li>trend: Der Temperaturtrend (falls verfügbar)</li>
<li>israining: Aussage Regen zwichen zwei Messungen (falls verfügbar)</li> <li>israining: Aussage Regen zwichen zwei Messungen (falls verfügbar)</li>
<li>rain: Der Regenwert, eine fortlaufende Zahl bis zum Batteriewechsel (falls verfügbar)</li> <li>rain: Der Regenwert, eine fortlaufende Zahl bis zum Batteriewechsel (falls verfügbar)</li>
<li>winddir: Die aktuelle Windrichtung</li>
<li>windgrad: Die aktuelle Windrichtung in Grad</li>
<li>windspeed: Die aktuelle Windgeschwindigkeit</li>
<li>windgust: Windb&ouml;e</li>
</ul> </ul>
<br> <br>
<b>Attribute</b> <b>Attribute</b>
@ -1915,7 +1924,7 @@ CUL_TCM97001_Parse($$)
</li> </li>
<li><a href="#do_not_notify">do_not_notify</a></li> <li><a href="#do_not_notify">do_not_notify</a></li>
<li><a href="#ignore">ignore</a></li> <li><a href="#ignore">ignore</a></li>
<li><a href="#model">model</a> (ABS700, AURIOL, GT_WT_02, KW9010, NC_WS, PFR-130, Prologue, Rubicson, TCM21...., TCM97…, Unknown, W174)</li> <li><a href="#model">model</a> (ABS700, AURIOL, GT_WT_02, KW9010, NC_WS, PFR-130, Prologue, Rubicson, TCM21...., TCM97…, Unknown, W044, W132, W174)</li>
<li>max-deviation-temp: (Default:1, erlaubte Werte: 1,2,3,4,5,6,7,8,9,10,15,20,25,30,35,40,45,50)<br> <li>max-deviation-temp: (Default:1, erlaubte Werte: 1,2,3,4,5,6,7,8,9,10,15,20,25,30,35,40,45,50)<br>
Maximal erlaubte Abweichung der gemessenen Temperatur zum vorhergehenden Wert in Kelvin.<br></li> Maximal erlaubte Abweichung der gemessenen Temperatur zum vorhergehenden Wert in Kelvin.<br></li>
<li><a href="#showtime">showtime</a></li> <li><a href="#showtime">showtime</a></li>