From 42d04c629115d7b8b17aab6e29365e20644f2cac Mon Sep 17 00:00:00 2001
From: rudolfkoenig <rudolfkoenig@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Sat, 2 Mar 2013 16:57:40 +0000
Subject: [PATCH] Added undocumented listen call

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

diff --git a/fhem/FHEM/00_FBAHA.pm b/fhem/FHEM/00_FBAHA.pm
index 864bcb425..6aa5fb75c 100755
--- a/fhem/FHEM/00_FBAHA.pm
+++ b/fhem/FHEM/00_FBAHA.pm
@@ -36,8 +36,6 @@ FBAHA_Initialize($)
   $hash->{AttrList}= "dummy:1,0 loglevel:0,1,2,3,4,5,6 ";
 }
 
-my %gets = ("devList"=>1);
-my %sets = ("createDevs"=>1);
 
 #####################################
 sub
@@ -71,6 +69,7 @@ FBAHA_Set($@)
 {
   my ($hash, @a) = @_;
   my $name = shift @a;
+  my %sets = ("createDevs"=>1, "listen"=>1 );
 
   return "set $name needs at least one parameter" if(@a < 1);
   my $type = shift @a;
@@ -87,6 +86,9 @@ FBAHA_Set($@)
       }
     }
   }
+  if($type eq "listen") {
+    FBAHA_Write($hash, "03", "0000028200000000");  # LISTEN
+  }
 
   return undef;
 }
@@ -97,6 +99,7 @@ FBAHA_Get($@)
 {
   my ($hash, @a) = @_;
   my $name = shift @a;
+  my %gets = ("devList"=>1);
 
   return "get $name needs at least one parameter" if(@a < 1);
   my $type = shift @a;