FHEM/mod-AutoShuttersControl
1
0
Fork 0
Code Issues 12 Pull Requests Releases 9 Wiki Activity

fix InternalTimer Bug

Browse Source
This commit is contained in:
Marko Oldenburg 2018-08-29 08:19:50 +02:00
parent 4ae6551013
commit 08db0be4d1
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
73_AutoShuttersControl.pm
View File

@ -41,7 +41,7 @@ use warnings;
my $version = "0.0.26"; my $version = "0.0.29";
sub AutoShuttersControl_Initialize($) { sub AutoShuttersControl_Initialize($) {
@ -581,11 +581,12 @@ sub CreateSunRiseSetShuttersTimer($$) {
my %arg = ('h' => $hash, 'd' => $shuttersDev); my %arg = ('h' => $hash, 'd' => $shuttersDev);
my $arg = \%arg; my $arg = \%arg;
## aktueller fehler - Undefined subroutine &main::SunSetShuttersTimerFn called at fhem.pl line 3112
RemoveInternalTimer($arg,'AutoShuttersControl::SunSetShuttersTimerFn'); RemoveInternalTimer($arg,'AutoShuttersControl::SunSetShuttersAfterTimerFn');
RemoveInternalTimer($arg,'AutoShuttersControl::SunRiseShuttersTimerFn'); RemoveInternalTimer($arg,'AutoShuttersControl::SunRiseShuttersAfterTimerFn');
InternalTimer(computeAlignTime('24:00',$autoShuttersControlTimeSunset), 'AutoShuttersControl::SunSetShuttersTimerFn', $arg ) if( AttrVal($name,'autoShuttersControlEvening','off') eq 'on' );
InternalTimer(computeAlignTime('24:00',$autoShuttersControlTimeSunrise), 'AutoShuttersControl::SunRiseShuttersTimerFn',$arg ) if( AttrVal($name,'autoShutterControlMorning','off') eq 'on' ); InternalTimer(computeAlignTime('24:00',$autoShuttersControlTimeSunset), 'AutoShuttersControl::SunSetShuttersAfterTimerFn', $arg ) if( AttrVal($name,'autoShuttersControlEvening','off') eq 'on' );
InternalTimer(computeAlignTime('24:00',$autoShuttersControlTimeSunrise), 'AutoShuttersControl::SunRiseShuttersAfterTimerFn',$arg ) if( AttrVal($name,'autoShutterControlMorning','off') eq 'on' );
} }
sub SunSetShuttersAfterTimerFn($) { sub SunSetShuttersAfterTimerFn($) {