From a8b579992da67f723dfab71baab0a948ef5870a1 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Fri, 22 Dec 2017 22:03:42 +0000
Subject: [PATCH] 10_FBDECT.pm: add alarmSensor (Forum #76613)

git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@15670 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 FHEM/10_FBDECT.pm | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/FHEM/10_FBDECT.pm b/FHEM/10_FBDECT.pm
index 14007be1c..d4beae533 100644
--- a/FHEM/10_FBDECT.pm
+++ b/FHEM/10_FBDECT.pm
@@ -2,6 +2,7 @@
 # $Id$
 package main;
 
+# See also https://avm.de/fileadmin/user_upload/Global/Service/Schnittstellen/AHA-HTTP-Interface.pdf
 use strict;
 use warnings;
 use SetExtensions;
@@ -13,7 +14,7 @@ sub FBDECT_Cmd($$@);
 
 sub FBDECT_decodePayload($$$);
 
-my @fbdect_models = qw(Powerline546E Dect200 CometDECT);
+my @fbdect_models = qw(Powerline546E Dect200 CometDECT HAN-FUN);
 
 my %fbdect_payload = (
    7 => { n=>"connected" },
@@ -248,8 +249,12 @@ FBDECT_ParseHttp($$$)
   my $ain = $h{identifier};
   $ain =~ s/[-: ]/_/g;
 
-  my %ll = (6=>"actuator", 7=>"powerMeter", 8=>"tempSensor",
-            9=>"switch", 10=>"repeater");
+  my %ll = (4=>"alarmSensor",
+            6=>"actuator",
+            7=>"powerMeter",
+            8=>"tempSensor",
+            9=>"switch",
+           10=>"repeater");
   my $lsn = int($h{functionbitmask});
   my @fb;
   map { push @fb, $ll{$_} if((1<<$_) & $lsn) } sort keys %ll;