Public/fhem-mirror
1
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2024-06-17 05:40:11 +00:00
Code Issues Packages Projects Releases Wiki Activity

00_Schellenberg.pm: timer improved

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@22716 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
herrmannj 2020-09-02 19:37:55 +00:00
parent b217504287
commit 55f129ea92
1 changed files with 13 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
FHEM/00_Schellenberg.pm
View File

@ -129,6 +129,8 @@ sub Schellenberg_Init {
sub Schellenberg_Undef {
my ($hash) = @_;
RemoveInternalTimer($hash, \&SSchellenberg_ResetPairTimer);
DevIo_CloseDev($hash);
return undef;
};
@ -143,21 +145,24 @@ sub Schellenberg_Set {
} elsif ($cmd eq 'pair') {
my $t = $args[0] || 60;
return 'missing time (seconds)' if ($t !~ m/[0-9]+/);
my sub resetPairTimer {
delete $hash->{'PAIRING'};
return;
};
$hash->{'PAIRING'} = 1;
InternalTimer(Time::HiRes::time() + $t, \&resetPairTimer, {});
InternalTimer(Time::HiRes::time() + $t, \&Schellenberg_ResetPairTimer, $hash);
};
return;
};
sub Schellenberg_ResetPairTimer {
my ($hash) = @_;
delete $hash->{'PAIRING'};
return;
};
sub Schellenberg_Ready {
my ($hash) = @_;
return DevIo_OpenDev($hash, 1, "Schellenberg_Init");
my ($hash) = @_;
return DevIo_OpenDev($hash, 1, "Schellenberg_Init");
};