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

change winrec Fn then PrivacyStatus gleich zwei

Browse Source
This commit is contained in:
Marko Oldenburg 2019-11-05 10:49:36 +01:00
parent 3dcce78568
commit be8fa1135e
1 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
73_AutoShuttersControl.pm
View File

@ -1025,7 +1025,13 @@ sub EventProcessingWindowRec($@) {
elsif ($shutters->getStatus != $shutters->getOpenPos
or $shutters->getStatus != $shutters->getLastManPos )
{
if ( $shutters->getPrivacyUpStatus == 2 ) {
if ( $shutters->getPrivacyDownStatus == 2 ) {
$shutters->setLastDrive(
'window closed at privacy night close');
$shutters->setNoDelay(1);
$shutters->setDriveCmd( $shutters->getPrivacyDownPos );
}
elsif ( $shutters->getPrivacyUpStatus == 2 ) {
$shutters->setLastDrive(
'window closed at privacy day open');
$shutters->setNoDelay(1);
@ -1931,6 +1937,7 @@ sub EventProcessingBrightness($@) {
)
) ? $shutters->getPrivacyDownPos : $shutters->getStatus
);
$shutters->setPrivacyDownStatus(2);
ASC_Debug( 'EventProcessingBrightness: '
. $shutters->getShuttersDev
@ -1962,7 +1969,7 @@ sub EventProcessingBrightness($@) {
$shutters->setLastDrive($lastDrive);
$shutters->setSunrise(0);
$shutters->setSunset(1)
unless ( $posValue == $shutters->getPrivacyDownPos
unless ( $shutters->getPrivacyDownStatus == 2
or $posValue == $shutters->getStatus );
$shutters->setPrivacyDownStatus(0)
if ( $shutters->getPrivacyDownStatus == 2 );
@ -1977,7 +1984,7 @@ sub EventProcessingBrightness($@) {
}
else {
EventProcessingShadingBrightness( $hash, $shuttersDev, $events )
unless ( $shutters->getStatus == $shutters->getPrivacyDownPos );
unless ( $shutters->getPrivacyDownStatus == 2 );
ASC_Debug( 'EventProcessingBrightness: '
. $shutters->getShuttersDev
@ -1987,7 +1994,7 @@ sub EventProcessingBrightness($@) {
}
else {
EventProcessingShadingBrightness( $hash, $shuttersDev, $events )
unless ( $shutters->getStatus == $shutters->getPrivacyDownPos );
unless ( $shutters->getPrivacyDownStatus == 2 );
ASC_Debug( 'EventProcessingBrightness: '
. $shutters->getShuttersDev
@ -7610,7 +7617,7 @@ sub getblockAscDrivesAfterManual {
],
"release_status": "under develop",
"license": "GPL_2",
"version": "v0.6.147",
"version": "v0.6.148",
"author": [
"Marko Oldenburg <leongaultier@gmail.com>"
],