mhop/fhem
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

36_LaCrosse.pm: Removed battery2 reading and prevent warnings when receiving truncated data

Browse Source 
git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@9678 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
hcs-svn
2015-10-25 21:44:41 +00:00
parent 8a61ad84f8
commit ddab27aceb
1 changed files with 28 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
fhem/FHEM/36_LaCrosse.pm
View File

@@ -180,8 +180,8 @@ sub LaCrosse_Parse($$) {
if( $msg =~ m/^OK 9/ ) { if( $msg =~ m/^OK 9/ ) {
# Temperature sensor - Format: # Temperature sensor - Format:
# 0 1 3 3 4 # 0 1 2 3 4
# ---------------------- # -------------------------
# OK 9 56 1 4 156 37 ID = 56 T: 18.0 H: 37 no NewBatt # OK 9 56 1 4 156 37 ID = 56 T: 18.0 H: 37 no NewBatt
# OK 9 49 1 4 182 54 ID = 49 T: 20.6 H: 54 no NewBatt # OK 9 49 1 4 182 54 ID = 49 T: 20.6 H: 54 no NewBatt
# OK 9 55 129 4 192 56 ID = 55 T: 21.6 H: 56 WITH NewBatt # OK 9 55 129 4 192 56 ID = 55 T: 21.6 H: 56 WITH NewBatt
@@ -201,6 +201,8 @@ sub LaCrosse_Parse($$) {
@bytes = split( ' ', substr($msg, 5) ); @bytes = split( ' ', substr($msg, 5) );
return "" if(@bytes != 5);
$addr = sprintf( "%02X", $bytes[0] ); $addr = sprintf( "%02X", $bytes[0] );
$battery_new = ($bytes[1] & 0x80) >> 7; $battery_new = ($bytes[1] & 0x80) >> 7;
$battery_low = ($bytes[4] & 0x80) >> 7; $battery_low = ($bytes[4] & 0x80) >> 7;
@@ -244,6 +246,8 @@ sub LaCrosse_Parse($$) {
@bytes = split( ' ', substr($msg, 5) ); @bytes = split( ' ', substr($msg, 5) );
return "" if(@bytes < 14);
$addr = sprintf( "%02X", $bytes[0] ); $addr = sprintf( "%02X", $bytes[0] );
$typeNumber = $bytes[1]; $typeNumber = $bytes[1];
@@ -431,7 +435,10 @@ sub LaCrosse_Parse($$) {
} }
# Battery state # Battery state
readingsBulkUpdate($rhash, "battery$channel", $battery_low?"low":"ok"); if (defined ($rhash->{READINGS}{battery2})) {
delete $rhash->{READINGS}{battery2}
}
readingsBulkUpdate($rhash, "battery", $battery_low? "low" : "ok");
# Calculate dewpoint # Calculate dewpoint
my $dewpoint; my $dewpoint;