diff --git a/73_AutoShuttersControl.pm b/73_AutoShuttersControl.pm index 62a6251..bcf2f0a 100644 --- a/73_AutoShuttersControl.pm +++ b/73_AutoShuttersControl.pm @@ -2169,6 +2169,14 @@ sub EventProcessingShadingBrightness { my $reading = $shutters->getBrightnessReading; my $outTemp = $ascDev->getOutTemp; + return Log3( $name, 2, + "AutoShuttersControl ($shuttersDev) - EventProcessingShadingBrightness: no shading function then is night" + ) + if (!$shutters->getIsDay + && $shutters->getShadingStatus eq 'out' + && ( int( gettimeofday() ) - $shutters->getShadingStatusTimestamp ) < + 1800 ); + Log3( $name, 4, "AutoShuttersControl ($shuttersDev) - EventProcessingShadingBrightness" ); @@ -2375,6 +2383,7 @@ sub ShadingProcessing { $outTemp < $shutters->getShadingMinOutsideTemperature - 3 || $azimuth < $azimuthLeft || $azimuth > $azimuthRight + || !$shutters->getIsDay ) && $shutters->getShadingStatus ne 'out' ) @@ -2469,8 +2478,7 @@ sub ShadingProcessing { ShadingProcessingDriveCommand( $hash, $shuttersDev ) if ( - $shutters->getIsDay - && IsAfterShuttersTimeBlocking($shuttersDev) + IsAfterShuttersTimeBlocking($shuttersDev) && !$shutters->getShadingManualDriveStatus && ( (