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

add more shading options

Browse Source
This commit is contained in:
Marko Oldenburg
2019-05-24 22:24:11 +02:00
parent a816200c98
commit 3141b609ec
1 changed files with 38 additions and 36 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
73_AutoShuttersControl.pm
View File

@ -1729,12 +1729,14 @@ sub EventProcessingShadingBrightness($@) {
. ' - Alle Bedingungen zur weiteren Beschattungsverarbeitung sind erfüllt. Es wird nun die eigentliche Beschattungsfunktion aufgerufen' . ' - Alle Bedingungen zur weiteren Beschattungsverarbeitung sind erfüllt. Es wird nun die eigentliche Beschattungsfunktion aufgerufen'
); );
} }
# else { elsif ( $shutters->getShadingStatus eq 'in'
# unless ( $shutters->getShadingMode eq $homemode and $shutters->getShadingMode ne $homemode
# and and $shutters->getRainProtectionStatus eq 'unprotection'
# $shutters->setShadingStatus('out'); and $shutters->getWindProtectionStatus eq 'unprotection' )
# ShadingProcessingDriveCommand($hash,$shuttersDev); {
# } $shutters->setShadingStatus('out');
ShadingProcessingDriveCommand( $hash, $shuttersDev );
}
} }
} }
@ -1995,13 +1997,13 @@ sub ShadingProcessing($@) {
. $shutters->getShadingStatus ); . $shutters->getShadingStatus );
} }
ShadingProcessingDriveCommand($hash,$shuttersDev) ShadingProcessingDriveCommand( $hash, $shuttersDev )
if ( $shutters->getShadingStatus eq 'out' if ( $shutters->getShadingStatus eq 'out'
or $shutters->getShadingStatus eq 'in' ); or $shutters->getShadingStatus eq 'in' );
} }
sub ShadingProcessingDriveCommand($$) { sub ShadingProcessingDriveCommand($$) {
my ($hash,$shuttersDev) = @_; my ( $hash, $shuttersDev ) = @_;
my $name = $hash->{NAME}; my $name = $hash->{NAME};
$shutters->setShuttersDev($shuttersDev); $shutters->setShuttersDev($shuttersDev);