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

fix #2, fix bug window open befor day

Browse Source
This commit is contained in:
Marko Oldenburg
2019-02-22 10:02:48 +01:00
parent 3658b27805
commit eb0d8bffcf
1 changed files with 14 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
73_AutoShuttersControl.pm
View File

@ -41,7 +41,7 @@ package main;
use strict; use strict;
use warnings; use warnings;
my $version = '0.4.0.6'; my $version = '0.4.0.7-patch';
sub AutoShuttersControl_Initialize($) { sub AutoShuttersControl_Initialize($) {
my ($hash) = @_; my ($hash) = @_;
@ -2053,9 +2053,21 @@ sub ExtractNotifyDevFromEvent($$$) {
## Ist Tag oder Nacht für den entsprechende Rolladen ## Ist Tag oder Nacht für den entsprechende Rolladen
sub IsDay($$) { sub IsDay($$) {
my ( $hash, $shuttersDev ) = @_; my ( $hash, $shuttersDev ) = @_;
$shutters->setShuttersDev($shuttersDev);
my $respIsDay;
my $name = $hash->{NAME}; my $name = $hash->{NAME};
return ( ShuttersSunrise( $hash, $shuttersDev, 'unix' ) > my $isday = ( ShuttersSunrise( $hash, $shuttersDev, 'unix' ) >
ShuttersSunset( $hash, $shuttersDev, 'unix' ) ? 1 : 0 ); ShuttersSunset( $hash, $shuttersDev, 'unix' ) ? 1 : 0 );
print 'IsDay: ' . $isday . "\n";
$respIsDay = ( ($shutters->getDown eq 'brightness' and $shutters->getBrightness > $shutters->getBrightnessMinVal and $isday) ? 1 : 0 );
print 'IsDayAbends: ' . $respIsDay . "\n";
$respIsDay = ( (($shutters->getUp eq 'brightness' and $shutters->getBrightness > $shutters->getBrightnessMaxVal and not $isday) or $respIsDay) ? 1 : 0 );
print 'IsDayMorgens: ' . $respIsDay . "\n";
return $respIsDay;
} }
sub ShuttersSunrise($$$) { sub ShuttersSunrise($$$) {