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($)
FBAHA
+
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.
+
This module connects to the AHA server (AVM Home Automation) on a FRITZ!Box.
It serves as the "physical" counterpart to the FBDECT
devices. Note: you have to enable the access to this feature in the FRITZ!Box
@@ -492,10 +495,13 @@ FBAHA_Ready($)
FBAHA
+
Achtung: ab Fritz!OS 6.90 ist der benötigte Dienst deaktiviert,
+ bitte den Nachfolger FBAHAHTTP verwenden.
+
Dieses Modul verbindet sich mit dem AHA (AVM Home Automation) Server auf
einem FRITZ!Box. Es dient als "physikalisches" Gegenstück zum FBDECT Modul. Achtung: als erstes muss der Zugang zu
- diesen Daten in der FRITZ!Box Web-Oberfläche aktiviert werden.
+ href="#FBDECT">FBDECT Modul. Als erstes muss der Zugang zu diesen Daten
+ in der FRITZ!Box Web-Oberfläche aktiviert werden.
Define
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;