From f6b1008bf31387303dac12e48b6e99757139f28c Mon Sep 17 00:00:00 2001
From: rudolfkoenig <rudolfkoenig@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Tue, 14 Oct 2014 18:37:52 +0000
Subject: [PATCH] FBAHA: adapt for new clientId (by me@fhem, Forum #25398)

git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@6766 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/00_FBAHA.pm | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/fhem/FHEM/00_FBAHA.pm b/fhem/FHEM/00_FBAHA.pm
index 6904a83d6..9aa8c988e 100644
--- a/fhem/FHEM/00_FBAHA.pm
+++ b/fhem/FHEM/00_FBAHA.pm
@@ -174,9 +174,11 @@ sub
 FBAHA_configInd($$)
 {
   my ($data, $onlyId) = @_;
-
+  #my $off = 288; #for old Client Id
+  my $off = 304;
   my @answer;
-  while(length($data) >= 288) {
+
+  while(length($data) >= $off) {
     my $id  = hex(substr($data,  0, 4)); 
     my $act = hex(substr($data,  4, 2));
     my $typ = hex(substr($data,  8, 8));
@@ -191,7 +193,7 @@ FBAHA_configInd($$)
     my %ll = (7=>"powerMeter",9=>"switch");
     $lsn = join ",", map { $ll{$_} if((1 << $_) & $lsn) } sort keys %ll;
 
-    my $dlen = hex(substr($data, 280, 8))*2; # DATA MSG
+    my $dlen = hex(substr($data, $off-8, 8))*2; # DATA MSG
 
     push @answer, "NAME:$nam, ID:$id, $act, TYPE:$typ PROP:$lsn"
       if(!$onlyId || $onlyId == $id);
@@ -203,10 +205,10 @@ FBAHA_configInd($$)
       push @answer, "  MANUF:$mnf";
       push @answer, "  UniqueID:$idf";
       push @answer, "  Firmware:$frm";
-      push @answer, substr($data, 288+$dlen);
+      push @answer, substr($data, $off, $dlen);
       return @answer;
     }
-    $data = substr($data, 288+$dlen); # rest
+    $data = substr($data, $off+$dlen); # rest
   }
   return @answer;
 }