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
This commit is contained in:
rudolfkoenig
2017-11-16 08:48:48 +00:00
parent ef0aec1ad9
commit c941664ad7
2 changed files with 19 additions and 3 deletions

View File

@@ -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>

View File

@@ -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;