diff --git a/73_AutoShuttersControl.pm b/73_AutoShuttersControl.pm index 3bf69ae..28223cf 100644 --- a/73_AutoShuttersControl.pm +++ b/73_AutoShuttersControl.pm @@ -1711,7 +1711,7 @@ sub EventProcessingBrightness($@) { $brightnessMaxVal = $ascDev->getBrightnessMaxVal; } - my $brightnessPrivacyUpVal = $shutters->getPrivacyUpTime; + my $brightnessPrivacyUpVal = $shutters->getPrivacyUpTime; my $brightnessPrivacyDownVal = $shutters->getPrivacyDownTime; ASC_Debug( 'EventProcessingBrightness: ' @@ -1759,8 +1759,8 @@ sub EventProcessingBrightness($@) { 86400 ) ) - and ( $1 > $brightnessMaxVal - or $1 > $brightnessPrivacyUpVal ) + and ( $1 > $brightnessMaxVal + or $1 > $brightnessPrivacyUpVal ) and $shutters->getUp eq 'brightness' and not $shutters->getSunrise and $ascDev->getAutoShuttersControlMorning eq 'on' @@ -1808,23 +1808,23 @@ sub EventProcessingBrightness($@) { and $ascDev->getResidentsStatus eq 'home' ) ) { - + if ( $1 < $brightnessMaxVal and $1 > $brightnessPrivacyUpVal ) { $shutters->setLastDrive('privacy position'); ShuttersCommandSet( $hash, $shuttersDev, $shutters->getPrivacyUpPos ) - if ( + if ( $shutters->getQueryShuttersPos( $shutters->getPrivacyUpPos ) - ); + ); ASC_Debug( 'EventProcessingBrightness: ' - . $shutters->getShuttersDev - . ' - Verarbeitung für Sunset Privacy Down. Roommatestatus korrekt zum fahren. Fahrbefehl wird an die Funktion FnShuttersCommandSet gesendet. Grund des fahrens: ' - . $shutters->getLastDrive ); + . $shutters->getShuttersDev + . ' - Verarbeitung für Sunset Privacy Down. Roommatestatus korrekt zum fahren. Fahrbefehl wird an die Funktion FnShuttersCommandSet gesendet. Grund des fahrens: ' + . $shutters->getLastDrive ); } else { $shutters->setLastDrive( @@ -1835,9 +1835,9 @@ sub EventProcessingBrightness($@) { $shutters->getOpenPos ); ASC_Debug( 'EventProcessingBrightness: ' - . $shutters->getShuttersDev - . ' - Verarbeitung für Sunrise. Roommatestatus korrekt zum fahren. Fahrbefehl wird an die Funktion FnShuttersCommandSet gesendet. Grund des fahrens: ' - . $shutters->getLastDrive ); + . $shutters->getShuttersDev + . ' - Verarbeitung für Sunrise. Roommatestatus korrekt zum fahren. Fahrbefehl wird an die Funktion FnShuttersCommandSet gesendet. Grund des fahrens: ' + . $shutters->getLastDrive ); } } else { @@ -2643,25 +2643,24 @@ sub CreateSunRiseSetShuttersTimer($$) { ## Ich brauche beim löschen des InternalTimer den Hash welchen ich mitgegeben habe,dieser muss gesichert werden $shutters->setInTimerFuncHash( \%funcHash ); - ## Abfrage für die Sichtschutzfahrt am Morgen vor dem eigentlichen kompletten öffnen if ( $shutters->getPrivacyUpTime > 0 and $shutters->getUp ne 'brightness' ) { - $shuttersSunriseUnixtime = PrivacyUpTime($shuttersDevHash,$shuttersSunriseUnixtime); + $shuttersSunriseUnixtime = + PrivacyUpTime( $shuttersDevHash, $shuttersSunriseUnixtime ); } else { - CommandDeleteReading( undef, - $shuttersDev . ' ASC_Time_PrivacyDriveUp' ) - if ( - ReadingsVal( $shuttersDev, 'ASC_Time_PrivacyDriveUp', 'none' ) ); + CommandDeleteReading( undef, $shuttersDev . ' ASC_Time_PrivacyDriveUp' ) + if ( ReadingsVal( $shuttersDev, 'ASC_Time_PrivacyDriveUp', 'none' ) ); } ## Abfrage für die Sichtschutzfahrt am Abend vor dem eigentlichen kompletten schließen if ( $shutters->getPrivacyDownTime > 0 and $shutters->getDown ne 'brightness' ) { - $shuttersSunsetUnixtime = PrivacyDownTime($shuttersDevHash,$shuttersSunsetUnixtime); + $shuttersSunsetUnixtime = + PrivacyDownTime( $shuttersDevHash, $shuttersSunsetUnixtime ); } else { CommandDeleteReading( undef, @@ -2679,51 +2678,45 @@ sub CreateSunRiseSetShuttersTimer($$) { } sub PrivacyUpTime($$) { - my ($shuttersDevHash,$shuttersSunriseUnixtime) = @_; + my ( $shuttersDevHash, $shuttersSunriseUnixtime ) = @_; if ( ( $shuttersSunriseUnixtime - $shutters->getPrivacyUpTime ) > - ( gettimeofday() + 1 ) ) + ( gettimeofday() + 1 ) ) { $shuttersSunriseUnixtime = - $shuttersSunriseUnixtime - $shutters->getPrivacyUpTime; + $shuttersSunriseUnixtime - $shutters->getPrivacyUpTime; readingsSingleUpdate( $shuttersDevHash, 'ASC_Time_PrivacyDriveUp', - strftime( - "%e.%m.%Y - %H:%M", - localtime($shuttersSunriseUnixtime) - ), + strftime( "%e.%m.%Y - %H:%M", localtime($shuttersSunriseUnixtime) ), 0 ); ## Setzt den PrivacyDown Modus für die Sichtschutzfahrt auf den Status 1 $shutters->setPrivacyUpStatus(1); } - - return $shuttersSunriseUnixtime + + return $shuttersSunriseUnixtime; } sub PrivacyDownTime($$) { - my ($shuttersDevHash,$shuttersSunsetUnixtime) = @_; + my ( $shuttersDevHash, $shuttersSunsetUnixtime ) = @_; if ( ( $shuttersSunsetUnixtime - $shutters->getPrivacyDownTime ) > - ( gettimeofday() + 1 ) ) + ( gettimeofday() + 1 ) ) { $shuttersSunsetUnixtime = - $shuttersSunsetUnixtime - $shutters->getPrivacyDownTime; + $shuttersSunsetUnixtime - $shutters->getPrivacyDownTime; readingsSingleUpdate( $shuttersDevHash, 'ASC_Time_PrivacyDriveDown', - strftime( - "%e.%m.%Y - %H:%M", - localtime($shuttersSunsetUnixtime) - ), + strftime( "%e.%m.%Y - %H:%M", localtime($shuttersSunsetUnixtime) ), 0 ); ## Setzt den PrivacyDown Modus für die Sichtschutzfahrt auf den Status 1 $shutters->setPrivacyDownStatus(1); } - - return $shuttersSunsetUnixtime + + return $shuttersSunsetUnixtime; } ## Funktion zum neu setzen der Timer und der Readings für Sunset/Rise @@ -2801,7 +2794,7 @@ sub RenewSunRiseSetShuttersTimer($) { delFromDevAttrList( $_, 'ASC_Shading_Angle_Right' ); $attr{$_}{ASC_PrivacyDownValue_beforeNightClose} = - AttrVal( $_, 'ASC_PrivacyDownTime_beforNightClose', 'none' ) + AttrVal( $_, 'ASC_PrivacyDownTime_beforNightClose', 'none' ) if ( AttrVal( $_, 'ASC_PrivacyDownTime_beforNightClose', 'none' ) ne 'none' ); delFromDevAttrList( $_, 'ASC_PrivacyDownTime_beforNightClose' ); @@ -2994,9 +2987,11 @@ sub SunRiseShuttersAfterTimerFn($) { $shutters->setLastDrive('privacy position'); ShuttersCommandSet( $hash, $shuttersDev, $shutters->getPrivacyUpPos ) - unless ( - $shutters->getQueryShuttersPos( $shutters->getPrivacyUpPos ) - ); + unless ( + $shutters->getQueryShuttersPos( + $shutters->getPrivacyUpPos + ) + ); } else { $shutters->setLastDrive('day open');