From c941664ad78f75fb58de4b97bedef05e73ba0c0b Mon Sep 17 00:00:00 2001
From: rudolfkoenig <rudolfkoenig@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Thu, 16 Nov 2017 08:48:48 +0000
Subject: [PATCH] 00_FBAHAHTTP.pm: add deletefn (Forum #79617) 00_FBABA.pm:
 mention FBAHAHTTP as successor in the doc

git-svn-id: https://svn.fhem.de/fhem/trunk@15437 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/00_FBAHA.pm     | 10 ++++++++--
 fhem/FHEM/00_FBAHAHTTP.pm | 12 +++++++++++-
 2 files changed, 19 insertions(+), 3 deletions(-)

diff --git a/fhem/FHEM/00_FBAHA.pm b/fhem/FHEM/00_FBAHA.pm
index a183af2c7..83f28fc32 100644
--- a/fhem/FHEM/00_FBAHA.pm
+++ b/fhem/FHEM/00_FBAHA.pm
@@ -410,6 +410,9 @@ FBAHA_Ready($)
 <a name="FBAHA"></a>
 <h3>FBAHA</h3>
 <ul>
+  <br>Note: Fritz!OS 6.90 and later does not offer the AHA service needed by
+  this module. Use the successor FBAHAHTTP instead of this module.</b><br>
+
   This module connects to the AHA server (AVM Home Automation) on a FRITZ!Box.
   It serves as the "physical" counterpart to the <a href="#FBDECT">FBDECT</a>
   devices. Note: you have to enable the access to this feature in the FRITZ!Box
@@ -492,10 +495,13 @@ FBAHA_Ready($)
 <a name="FBAHA"></a>
 <h3>FBAHA</h3>
 <ul>
+  <br>Achtung: ab Fritz!OS 6.90 ist der ben&ouml;tigte Dienst deaktiviert,
+  bitte den Nachfolger FBAHAHTTP verwenden.</b><br>
+
   Dieses Modul verbindet sich mit dem AHA (AVM Home Automation) Server auf
   einem FRITZ!Box. Es dient als "physikalisches" Gegenst&uuml;ck zum <a
-  href="#FBDECT">FBDECT</a> Modul. Achtung: als erstes muss der Zugang zu
-  diesen Daten in der FRITZ!Box Web-Oberfl&auml;che aktiviert werden.
+  href="#FBDECT">FBDECT</a> Modul. Als erstes muss der Zugang zu diesen Daten
+  in der FRITZ!Box Web-Oberfl&auml;che aktiviert werden.
   <br><br>
   <a name="FBAHAdefine"></a>
   <b>Define</b>
diff --git a/fhem/FHEM/00_FBAHAHTTP.pm b/fhem/FHEM/00_FBAHAHTTP.pm
index 9b7612c63..f108a269e 100644
--- a/fhem/FHEM/00_FBAHAHTTP.pm
+++ b/fhem/FHEM/00_FBAHAHTTP.pm
@@ -19,6 +19,7 @@ FBAHAHTTP_Initialize($)
   $hash->{AttrFn}   = "FBAHAHTTP_Attr";
   $hash->{ReadyFn}  = "FBAHAHTTP_Ready";
   $hash->{RenameFn} = "FBAHAHTTP_RenameFn";
+  $hash->{DeleteFn} = "FBAHAHTTP_Delete";
   $hash->{AttrList} = "dummy:1,0 fritzbox-user polltime async_delay ".
                       "disable:0,1 disabledForIntervals";
 }
@@ -54,6 +55,15 @@ FBAHAHTTP_Define($$)
   return undef;
 }
 
+#####################################
+sub
+FBAHAHTTP_Delete($)
+{
+  my ($hash) = @_;
+  my $name = $hash->{NAME};
+  my ($err, $fb_pw) = setKeyValue("FBAHAHTTP_PASSWORD_$name", undef);
+}
+
 sub
 FBAHAHTTP_connect($)
 {
@@ -168,7 +178,7 @@ FBAHAHTTP_Attr($@)
     return "Cannot delete fritzbox-user" if($type eq "del");
     if($init_done) {
       delete($hash->{".SID"});
-      FBAHAHTTP_Poll($hash);
+      InternalTimer(1, sub { FBAHAHTTP_Poll($hash); }, 0);
     }
   }
   return undef;