FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-03 16:56:54 +00:00
Code Issues Releases Wiki Activity

14_CUL_TCM: implement new sensor types. Fix some wrong interpretations. Add additional readings.

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@9434 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
dancer0705 2015-10-11 12:32:46 +00:00
parent 4fbe4e4f21
commit 8592be19a0
2 changed files with 273 additions and 61 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
fhem/CHANGED
View File

@ -1,5 +1,7 @@
# 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.
- change: 14_CUL_TCM: implement new sensor types. Fix some wrong
interpretations. Add additional readings.
- feature: on/off-till-overnight (SetExtensions.pm) - feature: on/off-till-overnight (SetExtensions.pm)
- bugfix: 73_km200: Bugfix for freeze in "Sounding" - bugfix: 73_km200: Bugfix for freeze in "Sounding"
- change: 93_DbLog: changed min/max val 999999 to system specific (~0 >> 1) - change: 93_DbLog: changed min/max val 999999 to system specific (~0 >> 1)

332
fhem/FHEM/14_CUL_TCM97001.pm
View File

@ -11,6 +11,7 @@
# - "NC_WS" # - "NC_WS"
# - "GT-WT-02" # - "GT-WT-02"
# - "AURIOL" # - "AURIOL"
# - "EAS800"
# #
# Unsupported models are saved in a device named CUL_TCM97001_Unknown # Unsupported models are saved in a device named CUL_TCM97001_Unknown
# #
@ -54,6 +55,9 @@ my %models = (
"NC_WS" => 'NC_WS', "NC_WS" => 'NC_WS',
"GT-WT-02" => 'GT-WT-02', "GT-WT-02" => 'GT-WT-02',
"AURIOL" => 'AURIOL', "AURIOL" => 'AURIOL',
"Type1" => 'Type1',
"Mebus" => 'Mebus',
"EAS800" => 'EAS800',
"Unknown" => 'Unknown', "Unknown" => 'Unknown',
); );
@ -71,7 +75,9 @@ CUL_TCM97001_Initialize($)
"model:".join(",", sort keys %models); "model:".join(",", sort keys %models);
$hash->{AutoCreate}= $hash->{AutoCreate}=
{ "CUL_TCM97001.*" => { GPLOT => "temp4hum4:Temp/Hum,", FILTER => "%NAME" } }; { "CUL_TCM97001.*" => { GPLOT => "temp4hum4:Temp/Hum,", FILTER => "%NAME" },
"CUL_TCM97001_Unknown.*" => { GPLOT => "", FILTER => "%NAME" }
};
} }
############################# #############################
@ -130,6 +136,22 @@ sub checkCRC {
return FALSE; return FALSE;
} }
#
# CRC Check for Mebus
#
sub checkCRC_Mebus {
my $msg = shift;
my @a = split("", $msg);
my $CRC = ((hex($a[1])+hex($a[2])+hex($a[3])
+hex($a[4])+hex($a[5])+hex($a[6])) -1) & 15;
my $CRCCHECKVAL= (hex($a[0]));
if ($CRC == $CRCCHECKVAL) {
return TRUE;
}
return FALSE;
}
# #
# CRC Check for GT-WT-02 # CRC Check for GT-WT-02
# #
@ -146,6 +168,22 @@ sub checkCRC_GTWT02 {
return FALSE; return FALSE;
} }
#
# CRC Check for Sensor-Type1
#
sub checkCRC_Type1 {
my $msg = shift;
my @a = split("", $msg);
my $CRC = (hex($a[0])+hex($a[1])+hex($a[2])+hex($a[3])
+hex($a[4])+hex($a[5])+hex($a[6])+hex($a[7]));
my $CRCCHECKVAL= (hex($a[7].$a[8].$a[9]) & 0x1F8) >> 3;
if ($CRC == $CRCCHECKVAL) {
return TRUE;
}
return FALSE;
}
sub checkValues { sub checkValues {
my $temp = shift; my $temp = shift;
my $humidy = shift; my $humidy = shift;
@ -168,20 +206,18 @@ CUL_TCM97001_Parse($$)
my @a = split("", $msg); my @a = split("", $msg);
my $id3 = hex($a[0] . $a[1]); my $id3 = hex($a[0] . $a[1]);
my $idType2 = hex($a[1] . $a[2]);
#my $id4 = hex($a[0] . $a[1] . $a[2] . (hex($a[3]) & 0x3)); #my $id4 = hex($a[0] . $a[1] . $a[2] . (hex($a[3]) & 0x3));
my $def = $modules{CUL_TCM97001}{defptr}{$id3}; my $def = $modules{CUL_TCM97001}{defptr}{$id3};
#my $def2 = $modules{CUL_TCM97001}{defptr}{$id4}; #my $def2 = $modules{CUL_TCM97001}{defptr}{$idType2};
my $now = time(); my $now = time();
my $name = "Unknown"; my $name = "Unknown";
if($def) { if($def) {
$name = $def->{NAME}; $name = $def->{NAME};
#} elsif($def2) { }
# $name = $def2->{NAME};
}
my $readedModel = AttrVal($name, "model", "Unknown"); my $readedModel = AttrVal($name, "model", "Unknown");
@ -210,6 +246,7 @@ CUL_TCM97001_Parse($$)
my $hasbatcheck = FALSE; my $hasbatcheck = FALSE;
my $hastrend = FALSE; my $hastrend = FALSE;
my $haschannel = FALSE; my $haschannel = FALSE;
my $hasmode = FALSE;
my $model="Unknown"; my $model="Unknown";
my $temp = undef; my $temp = undef;
my $humidity=undef; my $humidity=undef;
@ -224,7 +261,8 @@ CUL_TCM97001_Parse($$)
if($def) { if($def) {
$name = $def->{NAME}; $name = $def->{NAME};
} }
$readedModel = AttrVal($name, "model", "Unknown");
$readedModel = AttrVal($name, "model", "Unknown");
if ($readedModel eq "Unknown" || $readedModel eq "TCM97...") { if ($readedModel eq "Unknown" || $readedModel eq "TCM97...") {
$def = $modules{CUL_TCM97001}{defptr}{$tcm97id}; $def = $modules{CUL_TCM97001}{defptr}{$tcm97id};
@ -258,13 +296,14 @@ CUL_TCM97001_Parse($$)
Log3 $name, 5, "CUL_TCM97001 Unknown Bit: $unknown"; Log3 $name, 5, "CUL_TCM97001 Unknown Bit: $unknown";
} }
if (checkValues($temp, 50)) { if (checkValues($temp, $humidity)) {
if(!$def) { if(!$def) {
Log3 $name, 2, "CUL_TCM97001 Unknown device $tcm97id, please define it"; Log3 $name, 2, "CUL_TCM97001 Unknown TCM97001 device $tcm97id, please define it";
return "UNDEFINED CUL_TCM97001_$tcm97id CUL_TCM97001 $tcm97id"; return "UNDEFINED CUL_TCM97001_$tcm97id CUL_TCM97001 $tcm97id";
} }
$packageOK = TRUE; $packageOK = TRUE;
$hasbatcheck = TRUE; $hasbatcheck = TRUE;
$hasmode = TRUE;
$model="TCM97..."; $model="TCM97...";
$readedModel=$model; $readedModel=$model;
} }
@ -282,21 +321,76 @@ CUL_TCM97001_Parse($$)
} }
$batbit = ((hex($a[4]) & 0x8) != 0x8); $batbit = ((hex($a[4]) & 0x8) != 0x8);
$mode = (hex($a[4]) & 0x4) >> 2; $mode = (hex($a[4]) & 0x4) >> 2;
if (checkValues($temp, 50)) { if (checkValues($temp, $humidity)) {
if(!$def) { if(!$def) {
Log3 $name, 2, "CUL_TCM97001 Unknown device $tcm97id, please define it"; Log3 $name, 2, "CUL_TCM97001 Unknown ABS700 device $tcm97id, please define it";
return "UNDEFINED CUL_TCM97001_$tcm97id CUL_TCM97001 $tcm97id"; return "UNDEFINED CUL_TCM97001_$tcm97id CUL_TCM97001 $tcm97id";
} }
$hasbatcheck = TRUE; $hasbatcheck = TRUE;
$packageOK = TRUE; $packageOK = TRUE;
$hasmode = TRUE;
$model="ABS700"; $model="ABS700";
$readedModel=$model; $readedModel=$model;
} }
} }
} elsif (length($msg) == 10) {
my $idType2 = hex($a[1] . $a[2]);
$def = $modules{CUL_TCM97001}{defptr}{$idType2};
if($def) {
$name = $def->{NAME};
}
$readedModel = AttrVal($name, "model", "Unknown");
if (checkCRC_Mebus($msg) == TRUE && ($readedModel eq "Unknown" || $readedModel eq "Mebus")) {
# Protocol prologue start everytime with 1001
# Sync bit 9700ms, bit 0 = 350ms, bit 1 = 2000ms
# e.g. 8250ED70 1000 0010 0101 0000 1110 1101 0111
# A B C D E F G
# A = CRC ((B+C+D+E+F+G)-1)
# B+C = Random Address
# D+E+F temp (/10)
# G Bit 4,3 = Channel, Bit 2 = Battery, Bit 1 = Force sending
$def = $modules{CUL_TCM97001}{defptr}{$idType2};
if($def) {
$name = $def->{NAME};
}
$temp = (hex($a[3].$a[4].$a[5])) & 0x3FF;
my $negative = (hex($a[3])) & 0xC;
if ($negative == 0xC) {
$temp = (~$temp & 0x03FF) + 1;
$temp = -$temp;
}
$temp = $temp / 10;
$batbit = (hex($a[6]) & 0x2) >> 1;
#$batbit = ~$batbit & 0x1; # Bat bit umdrehen
$mode = (hex($a[6]) & 0x1);
$channel = (hex($a[6]) & 0xC) >> 2;
if (checkValues($temp, $humidity)) {
if(!$def) {
Log3 $name, 2, "CUL_TCM97001 Unknown Mebus device $idType2, please define it";
return "UNDEFINED CUL_TCM97001_$idType2 CUL_TCM97001 $idType2" if(!$def);
}
$packageOK = TRUE;
$model="Mebus";
$readedModel=$model;
$hasmode = TRUE;
$hasbatcheck = TRUE;
$haschannel = TRUE;
$id3 = $idType2
} else {
$name = "Unknown";
}
}
} elsif (length($msg) == 12) { } elsif (length($msg) == 12) {
my $bin = undef; my $bin = undef;
my $idType1 = hex($a[0] . $a[1]); my $idType1 = hex($a[0] . $a[1]);
#my $idType2 = hex($a[0] . $a[1] . $a[2]); #my $idType2 = hex($a[1] . $a[2]);
#my $idType3 = hex($a[0] . $a[1] . $a[2] . (hex($a[3]) & 0x3)); #my $idType3 = hex($a[0] . $a[1] . $a[2] . (hex($a[3]) & 0x3));
$def = $modules{CUL_TCM97001}{defptr}{$idType1}; $def = $modules{CUL_TCM97001}{defptr}{$idType1};
@ -310,14 +404,14 @@ CUL_TCM97001_Parse($$)
#} elsif($def3) { #} elsif($def3) {
# $def = $def3; # $def = $def3;
# $name = $def->{NAME}; # $name = $def->{NAME};
} }
$readedModel = AttrVal($name, "model", "Unknown");
Log3 $name, 4, "CUL_TCM97001 Define Name: $name Model defined: $readedModel";
if (checkCRC($msg) == TRUE && ($readedModel eq "Unknown" || $readedModel eq "TCM21....")) { if (checkCRC($msg) == TRUE && ($readedModel eq "Unknown" || $readedModel eq "TCM21....")) {
# 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
# A B C D E F G H I # A B C D E F G H I
# A+B = Addess # A+B = Addess
# C Bit 1 Battery # C Bit 1 Battery
@ -353,10 +447,11 @@ CUL_TCM97001_Parse($$)
$humidity = hex($aReverse[7]).hex($aReverse[6]); $humidity = hex($aReverse[7]).hex($aReverse[6]);
$batbit = (hex($a[2]) & 0x8) >> 3; $batbit = (hex($a[2]) & 0x8) >> 3;
#$mode = (hex($a[2]) & 0x4) >> 2;
if (checkValues($temp, $humidity)) { if (checkValues($temp, $humidity)) {
if(!$def) { if(!$def) {
Log3 $name, 2, "CUL_TCM97001 Unknown device $idType1, please define it"; Log3 $name, 2, "CUL_TCM97001 Unknown TCM21.... device $idType1, please define it";
return "UNDEFINED CUL_TCM97001_$idType1 CUL_TCM97001 $idType1"; return "UNDEFINED CUL_TCM97001_$idType1 CUL_TCM97001 $idType1";
} }
$hashumidity = TRUE; $hashumidity = TRUE;
@ -369,7 +464,8 @@ CUL_TCM97001_Parse($$)
} }
} }
if (checkCRC_GTWT02($msg) == TRUE && ($readedModel eq "GT-WT-02" || $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")) {
# F F 0 0 F 9 5 5 F # F F 0 0 F 9 5 5 F
# 1111 1111 0000 0000 1111 1001 0101 0101 1111 # 1111 1111 0000 0000 1111 1001 0101 0101 1111
# A B C D E F G H I # A B C D E F G H I
@ -383,7 +479,9 @@ CUL_TCM97001_Parse($$)
if($def) { if($def) {
$name = $def->{NAME}; $name = $def->{NAME};
} }
$channel = (hex($a[2])) & 0x3; $channel = (hex($a[2])) & 0x3;
$batbit = (hex($a[2]) & 0x8) >> 3;
$mode = (hex($a[2]) & 0x4) >> 2;
$temp = (hex($a[3].$a[4].$a[5])) & 0x3FF; $temp = (hex($a[3].$a[4].$a[5])) & 0x3FF;
my $negative = (hex($a[3])) & 0xC; my $negative = (hex($a[3])) & 0xC;
if ($negative == 0xC) { if ($negative == 0xC) {
@ -395,16 +493,76 @@ CUL_TCM97001_Parse($$)
if (checkValues($temp, $humidity)) { if (checkValues($temp, $humidity)) {
if(!$def) { if(!$def) {
Log3 $name, 2, "CUL_TCM97001 Unknown device $idType1, please define it"; Log3 $name, 2, "CUL_TCM97001 Unknown device GT-WT-02 $idType1, please define it";
return "UNDEFINED CUL_TCM97001_$idType1 CUL_TCM97001 $idType1"; return "UNDEFINED CUL_TCM97001_$idType1 CUL_TCM97001 $idType1";
} }
if ($humidity >= 20) { if ($humidity >= 20) {
$hashumidity = TRUE; $hashumidity = TRUE;
} }
$hasbatcheck = TRUE; $hasbatcheck = TRUE;
$haschannel = TRUE; $haschannel = TRUE;
$hasmode = TRUE;
$packageOK = TRUE; $packageOK = TRUE;
$model="GT-WT-02"; if (checkCRC_Type1($msg) == TRUE) {
$model="GT-WT-02";
} else {
$model="Type1";
}
$readedModel=$model;
} else {
$name = "Unknown";
}
}
if (($readedModel eq "EAS800" || (hex($a[6]) == 0xF && $readedModel eq "Unknown"))) {
# EAS 800
# G is every time 1111
#
# 0100 1110 1001 0000 1010 0001 1111 0100 1001
# A B C D E F G H I
#
# A+B = ID = 4E
# C Bit 0 = Bat (1) OK
# C Bit 1-3 = Channel 001 = 1
# D-F = Temp (0000 1010 0001) = 161 ~ 16,1°
# G = Unknown
# H+I = hum (0100 1001) = 73
$def = $modules{CUL_TCM97001}{defptr}{$idType1};
if($def) {
$name = $def->{NAME};
}
$temp = (hex($a[3].$a[4].$a[5])) & 0x7FF;
my $negative = (hex($a[3])) & 0x8;
if ($negative == 0x8) {
$temp = (~$temp & 0x07FF) + 1;
$temp = -$temp;
}
$temp = $temp / 10;
$batbit = (hex($a[2]) & 0x8) >> 3;
$batbit = ~$batbit & 0x1; # Bat bit umdrehen
$mode = (hex($a[2]) & 0x4) >> 2;
$channel = (hex($a[2])) & 0x3;
$humidity = hex($a[7].$a[8]) & 0x7F;
$trend = (hex($a[7]) & 0x3);
if (checkValues($temp, 50)) {
if(!$def) {
Log3 $name, 2, "CUL_TCM97001 Unknown EAS800 device $idType1, please define it";
return "UNDEFINED CUL_TCM97001_$idType1 CUL_TCM97001 $idType1" if(!$def);
}
if (defined($humidity)) {
if ($humidity >= 20) {
$hashumidity = TRUE;
}
}
$hasbatcheck = TRUE;
$haschannel = TRUE;
$hastrend = TRUE;
$packageOK = TRUE;
$hasmode = TRUE;
$model="EAS800";
$readedModel=$model; $readedModel=$model;
} else { } else {
$name = "Unknown"; $name = "Unknown";
@ -414,7 +572,7 @@ CUL_TCM97001_Parse($$)
# Check for Prologue # Check for Prologue
if ($readedModel eq "Prologue" || (hex($a[0]) == 0x9 && $readedModel eq "Unknown")) { if ($readedModel eq "Prologue" || (hex($a[0]) == 0x9 && $readedModel eq "Unknown")) {
# Protocol prologue start everytime with 1001 # Protocol prologue start everytime with 1001
# e.g. 91080F614C 1001 0001 0000 1000 0000 1111 0110 0001 0100 1100 # e.g. 91080F614C 1001 0001 0000 1000 0000 1111 0110 0001 0100 1100
# A B C D E F G H I # A B C D E F G H I
# A = Startbit 1001 # A = Startbit 1001
# B+C = Random Address # B+C = Random Address
@ -435,16 +593,18 @@ CUL_TCM97001_Parse($$)
} }
$temp = $temp / 10; $temp = $temp / 10;
if (hex($a[7]) != 0xC && hex($a[8]) != 0xC) { if (!(hex($a[7]) == 0xC && hex($a[8]) == 0xC)) {
$humidity = hex($a[7].$a[8]); $humidity = hex($a[7].$a[8]);
} }
$channel = (hex($a[3])) & 0x3; $channel = (hex($a[3])) & 0x3;
$batbit = (hex($a[3]) & 0x8) >> 3; $batbit = (hex($a[3]) & 0x8) >> 3;
$mode = (hex($a[3]) & 0x4) >> 2; $mode = (hex($a[3]) & 0x4) >> 2;
if (checkValues($temp, $humidity)) { if (checkValues($temp, $humidity)) {
if(!$def) { if(!$def) {
Log3 $name, 2, "CUL_TCM97001 Unknown device $idType1, please define it"; Log3 $name, 2, "CUL_TCM97001 Unknown Prologue device $idType1, please define it";
return "UNDEFINED CUL_TCM97001_$idType1 CUL_TCM97001 $idType1"; return "UNDEFINED CUL_TCM97001_$idType1 CUL_TCM97001 $idType1";
} }
if (defined($humidity)) { if (defined($humidity)) {
@ -453,6 +613,7 @@ CUL_TCM97001_Parse($$)
} }
} }
$hasbatcheck = TRUE; $hasbatcheck = TRUE;
$hasmode = TRUE;
$packageOK = TRUE; $packageOK = TRUE;
$haschannel = TRUE; $haschannel = TRUE;
$model="Prologue"; $model="Prologue";
@ -494,17 +655,19 @@ CUL_TCM97001_Parse($$)
$humidity = hex($a[7].$a[8]) & 0x7F; $humidity = hex($a[7].$a[8]) & 0x7F;
$batbit = (hex($a[3]) & 0x8) >> 3; $batbit = (hex($a[3]) & 0x8) >> 3;
$mode = (hex($a[3]) & 0x4) >> 2;
$batbit = ~$batbit & 0x1; # Bat bit umdrehen $batbit = ~$batbit & 0x1; # Bat bit umdrehen
$mode = (hex($a[3]) & 0x4) >> 2; $mode = (hex($a[3]) & 0x4) >> 2;
if (checkValues($temp, $humidity)) { if (checkValues($temp, $humidity)) {
if(!$def) { if(!$def) {
#Log3 $name, 2, "CUL_TCM97001 Unknown device $idType3, please define it"; #Log3 $name, 2, "CUL_TCM97001 Unknown device $idType3, please define it";
#return "UNDEFINED CUL_TCM97001_$idType3 CUL_TCM97001 $idType3" if(!$def); #return "UNDEFINED CUL_TCM97001_$idType3 CUL_TCM97001 $idType3" if(!$def);
Log3 $name, 2, "CUL_TCM97001 Unknown device $idType1, please define it"; Log3 $name, 2, "CUL_TCM97001 Unknown NC_WS device $idType1, please define it";
return "UNDEFINED CUL_TCM97001_$idType1 CUL_TCM97001 $idType1" if(!$def); return "UNDEFINED CUL_TCM97001_$idType1 CUL_TCM97001 $idType1" if(!$def);
} }
$hashumidity = TRUE; $hashumidity = TRUE;
$hasbatcheck = TRUE; $hasbatcheck = TRUE;
$hasmode = TRUE;
$packageOK = TRUE; $packageOK = TRUE;
$haschannel = TRUE; $haschannel = TRUE;
$model="NC_WS"; $model="NC_WS";
@ -537,7 +700,7 @@ CUL_TCM97001_Parse($$)
if (checkValues($temp, $humidity)) { if (checkValues($temp, $humidity)) {
if(!$def) { if(!$def) {
Log3 $name, 2, "CUL_TCM97001 Unknown device $idType1, please define it"; Log3 $name, 2, "CUL_TCM97001 Unknown Rubicson device $idType1, please define it";
return "UNDEFINED CUL_TCM97001_$idType1 CUL_TCM97001 $idType1" if(!$def); return "UNDEFINED CUL_TCM97001_$idType1 CUL_TCM97001 $idType1" if(!$def);
} }
$packageOK = TRUE; $packageOK = TRUE;
@ -573,18 +736,20 @@ CUL_TCM97001_Parse($$)
} }
$temp = $temp / 10; $temp = $temp / 10;
$batbit = (hex($a[3]) & 0x8) >> 3; $batbit = (hex($a[2]) & 0x8) >> 3;
$batbit = ~$batbit & 0x1; # Bat bit umdrehen $batbit = ~$batbit & 0x1; # Bat bit umdrehen
$mode = (hex($a[2]) & 0x4) >> 2;
$trend = (hex($a[7]) & 0x3); $trend = (hex($a[7]) & 0x3);
if (checkValues($temp, 50)) { if (checkValues($temp, 50)) {
if(!$def) { if(!$def) {
Log3 $name, 2, "CUL_TCM97001 Unknown device $idType1, please define it"; Log3 $name, 2, "CUL_TCM97001 Unknown AURIOL device $idType1, please define it";
return "UNDEFINED CUL_TCM97001_$idType1 CUL_TCM97001 $idType1" if(!$def); return "UNDEFINED CUL_TCM97001_$idType1 CUL_TCM97001 $idType1" if(!$def);
} }
$hasbatcheck = TRUE; $hasbatcheck = TRUE;
$hastrend = TRUE; $hastrend = TRUE;
$packageOK = TRUE; $packageOK = TRUE;
$hasmode = TRUE;
$model="AURIOL"; $model="AURIOL";
$readedModel=$model; $readedModel=$model;
} else { } else {
@ -597,11 +762,23 @@ CUL_TCM97001_Parse($$)
if ($packageOK == TRUE) { if ($packageOK == TRUE) {
if($def) { if($def) {
$def->{lastT} = $now; $def->{lastT} = $now;
} }
readingsBeginUpdate($def);
my ($val, $valH, $state); my ($val, $valH, $state);
$msgtype = "temperature"; $msgtype = "temperature";
$val = sprintf("%2.1f", ($temp) ); $val = sprintf("%2.1f", ($temp) );
$state="T: $val"; $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;
}
}
}
if ($hashumidity == TRUE) { if ($hashumidity == TRUE) {
$msgtypeH = "humidity"; $msgtypeH = "humidity";
$valH = $humidity; $valH = $humidity;
@ -611,7 +788,7 @@ CUL_TCM97001_Parse($$)
Log3 $name, 4, "CUL_TCM97001 $msgtype $name $id3 T: $val"; Log3 $name, 4, "CUL_TCM97001 $msgtype $name $id3 T: $val";
} }
readingsBeginUpdate($def);
if($hastrend) { if($hastrend) {
@ -624,59 +801,90 @@ CUL_TCM97001_Parse($$)
} }
if ($hasbatcheck) { if ($hasbatcheck) {
my $battery = ReadingsVal($name, "battery", "unknown"); my $battery = ReadingsVal($name, "battery", "unknown");
if ($batbit) { if ($battery) {
if ($battery ne "low") { readingsBulkUpdate($def, "battery", "low"); }
} else {
if ($battery ne "ok") { readingsBulkUpdate($def, "battery", "ok"); } if ($battery ne "ok") { readingsBulkUpdate($def, "battery", "ok"); }
} else {
if ($battery ne "low") { readingsBulkUpdate($def, "battery", "low"); }
}
}
if ($hasmode) {
my $modeVal = ReadingsVal($name, "mode", "unknown");
if ($mode) {
if ($modeVal ne "forced") { readingsBulkUpdate($def, "mode", "forced"); }
} else {
if ($modeVal ne "normal") { readingsBulkUpdate($def, "mode", "normal"); }
} }
} }
if ($haschannel) { if ($haschannel) {
my $readChannel = ReadingsVal($name, "channel", ""); my $readChannel = ReadingsVal($name, "channel", "");
if (defined($readChannel) && $readChannel ne $channel) { readingsBulkUpdate($def, "channel", $channel); } if (defined($readChannel) && $readChannel ne $channel) { readingsBulkUpdate($def, "channel", $channel); }
} }
readingsBulkUpdate($def, $msgtype, $val); if ($model eq "Prologue") {
# plausibility check
my $oldtemp = ReadingsVal($name, "temperature", "unknown");
if ($oldtemp eq "unknown" || ($val+5 > $oldtemp && $val-5 < $oldtemp)) {
readingsBulkUpdate($def, $msgtype, $val);
}
} else {
readingsBulkUpdate($def, $msgtype, $val);
}
if ($hashumidity == TRUE) { if ($hashumidity == TRUE) {
readingsBulkUpdate($def, $msgtypeH, $valH); readingsBulkUpdate($def, $msgtypeH, $valH);
} }
readingsBulkUpdate($def, "state", $state); readingsBulkUpdate($def, "state", $state);
# for testing only
#my $rawlen = length($msg);
#my $rawVal = substr($msg, 0, $rawlen-2);
#readingsBulkUpdate($def, "RAW", $rawVal);
readingsEndUpdate($def, 1); readingsEndUpdate($def, 1);
if(defined($rssi)) { if(defined($rssi)) {
$def->{RSSI} = $rssi; $def->{RSSI} = $rssi;
} }
$attr{$name}{model} = $model; $attr{$name}{model} = $model;
return $name; return $name;
} else { } else {
my $defUnknown = $modules{CUL_TCM97001}{defptr}{"Unknown"}; if (length($msg) == 8 || length($msg) == 10 || length($msg) == 12) {
my $defUnknown = $modules{CUL_TCM97001}{defptr}{"Unknown"};
if (!$defUnknown) {
Log3 "Unknown", 2, "CUL_TCM97001 Unknown device Unknown, please define it"; if (!$defUnknown) {
return "UNDEFINED CUL_TCM97001_Unknown CUL_TCM97001 Unknown"; Log3 "Unknown", 2, "CUL_TCM97001 Unknown device Unknown, please define it";
} return "UNDEFINED CUL_TCM97001_Unknown CUL_TCM97001 Unknown";
$name = $defUnknown->{NAME}; }
Log3 $name, 4, "CUL_TCM97001 Device not implemented yet name Unknown msg $msg"; $name = $defUnknown->{NAME};
Log3 $name, 4, "CUL_TCM97001 Device not implemented yet name Unknown msg $msg";
my $state="Code: $msg"; my $rawlen = length($msg);
my $rawVal = substr($msg, 0, $rawlen-2);
my $state="Code: $rawVal";
if ($defUnknown) { if ($defUnknown) {
$defUnknown->{lastT} = $now; $defUnknown->{lastT} = $now;
}
$attr{$name}{model} = $model;
readingsBeginUpdate($defUnknown);
readingsBulkUpdate($defUnknown, "state", $state);
# for testing only
#readingsBulkUpdate($defUnknown, "RAW", $rawVal);
readingsEndUpdate($defUnknown, 1);
if(defined($rssi)) {
$defUnknown->{RSSI} = $rssi;
}
#my $defSvg = $defs{"SVG_CUL_TCM97001_Unknown"};
#if ($defSvg) {
# CommandDelete(undef, $defSvg->{NAME});
#}
return $name;
} }
$attr{$name}{model} = $model;
readingsBeginUpdate($defUnknown);
readingsBulkUpdate($defUnknown, "state", $state);
readingsEndUpdate($defUnknown, 1);
if(defined($rssi)) {
$defUnknown->{RSSI} = $rssi;
}
my $defSvg = $defs{"SVG_CUL_TCM97001_Unknown"};
if ($defSvg) {
CommandDelete(undef, $defSvg->{NAME});
}
return $name;
} }
@ -704,6 +912,7 @@ CUL_TCM97001_Parse($$)
<li>NC_WS</li> <li>NC_WS</li>
<li>GT-WT-02</li> <li>GT-WT-02</li>
<li>AURIOL</li> <li>AURIOL</li>
<li>EAS800</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.
@ -767,6 +976,7 @@ CUL_TCM97001_Parse($$)
<li>NC_WS</li> <li>NC_WS</li>
<li>GT-WT-02</li> <li>GT-WT-02</li>
<li>AURIOL</li> <li>AURIOL</li>
<li>EAS800</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.