FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-01-31 18:59:33 +00:00
Code Issues Releases Wiki Activity

00_FBAHAHTTP.pm: add readyFn, disabled attributes (Forum #55221)

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@11753 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2016-07-06 17:51:00 +00:00
parent 093c5bcb43
commit 8699cc427d
1 changed files with 28 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
fhem/FHEM/00_FBAHAHTTP.pm
View File

@ -17,7 +17,9 @@ FBAHAHTTP_Initialize($)
$hash->{DefFn} = "FBAHAHTTP_Define";
$hash->{SetFn} = "FBAHAHTTP_Set";
$hash->{AttrFn} = "FBAHAHTTP_Attr";
$hash->{AttrList} = "dummy:1,0 fritzbox-user polltime async_delay";
$hash->{ReadyFn} = "FBAHAHTTP_Ready";
$hash->{AttrList} = "dummy:1,0 fritzbox-user polltime async_delay ".
"disable:0,1 disabledForIntervals";
}
@ -57,6 +59,9 @@ FBAHAHTTP_Poll($)
{
my ($hash) = @_;
my $name = $hash->{NAME};
my $dev = $hash->{DEF};
return if(IsDisabled($name));
my $dr = sub {
$hash->{STATE} = $_[0];
@ -73,9 +78,14 @@ FBAHAHTTP_Poll($)
return $dr->("MISSING: set $name password") if(!$fb_pw);
my $sid = FB_doCheckPW($hash->{DEF}, $fb_user, $fb_pw);
return $dr->("$name error: cannot get SID, ".
if(!$sid) {
$hash->{NEXT_OPEN} = time()+60;
$readyfnlist{"$name.$dev"} = $hash;
return $dr->("$name error: cannot get SID, ".
"check connection/hostname/fritzbox-user/password")
if(!$sid);
}
delete($readyfnlist{"$name.$dev"});
$hash->{".SID"} = $sid;
$hash->{STATE} = "connected";
}
@ -111,6 +121,16 @@ FBAHAHTTP_Poll($)
return;
}
#####################################
sub
FBAHAHTTP_Ready($)
{
my ($hash) = @_;
return if($hash->{NEXT_OPEN} && time() < $hash->{NEXT_OPEN});
FBAHAHTTP_Poll($hash);
}
#####################################
sub
FBAHAHTTP_Attr($@)
@ -192,6 +212,9 @@ FBAHAHTTP_Write($$$)
{
my ($hash,$fn,$msg) = @_;
my $name = $hash->{NAME};
return if(IsDisabled($name));
my $sid = $hash->{".SID"};
if(!$sid) {
Log 1, "$name: Not connected, wont execute $msg";
@ -258,6 +281,8 @@ FBAHAHTTP_Write($$$)
<a name="FBAHAHTTPattr"></a>
<b>Attributes</b>
<ul>
<li><a href="#disable">disable</a></li>
<li><a href="#disabledForIntervals">disabledForIntervals</a></li>
<li><a href="#dummy">dummy</a></li>
<li><a href="#fritzbox-user">fritzbox-user</a></li>
<li><a name="#polltime">polltime</a><br>