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

TRX: Lacrosse TX3 humdidity added

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@1390 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
wherzig 2012-03-26 19:01:33 +00:00
parent a070fa016d
commit 79cc282bf4
2 changed files with 55 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

56
fhem/FHEM/46_TRX_WEATHER.pm
View File

@ -50,7 +50,7 @@
# 4: log unknown protocols
# 5: log decoding hexlines for debugging
#
# $Id$
# $Id: $
package main;
use strict;
@ -145,6 +145,11 @@ my %types =
{
part => 'TEMP', method => \&common_temp,
},
# HYDRO
type_length_key(0x51, 0x08) =>
{
part => 'HYDRO', method => \&common_hydro,
},
# TEMP HYDRO
type_length_key(0x52, 0x0a) =>
{
@ -387,7 +392,7 @@ sub common_temp {
0x02 => "THGR132N", # was THGR228N,
0x03 => "THWR800",
0x04 => "RTHN318",
0x05 => "TX3_T",
0x05 => "TX3_T", # LaCrosse TX3
);
if (exists $devname{$bytes->[1]}) {
@ -423,6 +428,51 @@ sub common_temp {
return @res;
}
# -----------------------------
sub common_hydro {
my $type = shift;
my $longids = shift;
my $bytes = shift;
my $subtype = sprintf "%02x", $bytes->[1];
#Log 1,"subtype=$subtype";
my $dev_type;
my %devname =
( # HEXSTRING => "NAME"
0x01 => "TX3_H", # LaCrosse TX3
);
if (exists $devname{$bytes->[1]}) {
$dev_type = $devname{$bytes->[1]};
} else {
Log 1,"RFX_WEATHER: common_hydro error undefined subtype=$subtype";
my @res = ();
return @res;
}
my $dev_str = $dev_type;
if (use_longid($longids,$dev_type)) {
$dev_str .= $DOT.sprintf("%02x", $bytes->[3]);
}
if ($bytes->[4] > 0) {
$dev_str .= $DOT.sprintf("%d", $bytes->[4]);
}
#Log 1,"dev_str=$dev_str";
my @res = ();
# hexline debugging
if ($TRX_HEX_debug) {
my $hexline = ""; for (my $i=0;$i<@$bytes;$i++) { $hexline .= sprintf("%02x",$bytes->[$i]);}
push @res, { device => $dev_str, type => 'hexline', current => $hexline, units => 'hex', };
}
humidity($bytes, $dev_str, \@res, 5);
simple_battery($bytes, $dev_str, \@res, 7);
return @res;
}
# -----------------------------
sub common_temphydro {
my $type = shift;
@ -448,7 +498,7 @@ sub common_temphydro {
if (exists $devname{$bytes->[1]}) {
$dev_type = $devname{$bytes->[1]};
} else {
Log 1,"RFX_WEATHER: common_temp error undefined subtype=$subtype";
Log 1,"RFX_WEATHER: common_temphydro error undefined subtype=$subtype";
my @res = ();
return @res;
}

2
fhem/FHEM/98_autocreate.pm
View File

@ -55,6 +55,8 @@ my %flogpar = (
# TX3 temperature sensors received by RFXTRX
"TX3_T.*"
=> { GPLOT => "temp4:Temp,", FILTER => "%NAME" },
"TX3_H.*"
=> { GPLOT => "temp4hum4:Temp/Hum,", FILTER => "%NAME" },
# USB-WDE1