From dcd4d93d0c1c5760298a909e42a41c2f691ae536 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Tue, 15 Mar 2011 16:27:31 +0000
Subject: [PATCH] RSSI fixed

git-svn-id: https://svn.fhem.de/fhem/trunk@865 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/00_HMLAN.pm | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/fhem/FHEM/00_HMLAN.pm b/fhem/FHEM/00_HMLAN.pm
index b78bebf1c..6d5ae56e1 100755
--- a/fhem/FHEM/00_HMLAN.pm
+++ b/fhem/FHEM/00_HMLAN.pm
@@ -255,21 +255,21 @@ HMLAN_Parse($$)
 {
   my ($hash, $rmsg) = @_;
   my $name = $hash->{NAME};
-  my $rssi;
   my $ll5 = GetLogLevel($name,5);
+  my ($src, $status, $msec, $d2, $rssi, $msg);
 
   my $dmsg = $rmsg;
 
   Log $ll5, "HMLAN $rmsg";
   if($rmsg =~ m/^E(......),(....),(........),(..),(....),(.*)/) {
-    my ($src, $d1, $msec, $d2, $rssi, $msg) =
-       ($1,   $2,  $3,    $4,  $5,    $6);
+    ($src, $status, $msec, $d2, $rssi, $msg) =
+    ($1,   $2,      $3,    $4,  $5,    $6);
     $dmsg = sprintf("A%02X%s", length($msg)/2, uc($msg));
     $hash->{uptime} = HMLAN_uptime($msec);
 
   } elsif($rmsg =~ m/^R(........),(....),(........),(..),(....),(.*)/) {
-    my ($src, $status, $msec, $d2, $rssi, $msg) =
-       ($1,   $2,      $3,    $4,  $5,    $6);
+    ($src, $status, $msec, $d2, $rssi, $msg) =
+    ($1,   $2,      $3,    $4,  $5,    $6);
 
     $dmsg = sprintf("A%02X%s", length($msg)/2, uc($msg));
     $dmsg .= "NACK" if($status !~ m/...1/);
@@ -301,6 +301,7 @@ HMLAN_Parse($$)
   $hash->{RAWMSG} = $rmsg;
   my %addvals = (RAWMSG => $rmsg);
   if(defined($rssi)) {
+    $rssi = hex($rssi)-65536;
     $hash->{RSSI} = $rssi;
     $addvals{RSSI} = $rssi;
   }