add logging for shading

This commit is contained in:
Marko Oldenburg 2020-03-31 11:47:32 +02:00
parent 8a9db0fd8f
commit 219187bd7b

View File

@ -2169,6 +2169,14 @@ sub EventProcessingShadingBrightness {
my $reading = $shutters->getBrightnessReading; my $reading = $shutters->getBrightnessReading;
my $outTemp = $ascDev->getOutTemp; 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, Log3( $name, 4,
"AutoShuttersControl ($shuttersDev) - EventProcessingShadingBrightness" "AutoShuttersControl ($shuttersDev) - EventProcessingShadingBrightness"
); );
@ -2375,6 +2383,7 @@ sub ShadingProcessing {
$outTemp < $shutters->getShadingMinOutsideTemperature - 3 $outTemp < $shutters->getShadingMinOutsideTemperature - 3
|| $azimuth < $azimuthLeft || $azimuth < $azimuthLeft
|| $azimuth > $azimuthRight || $azimuth > $azimuthRight
|| !$shutters->getIsDay
) )
&& $shutters->getShadingStatus ne 'out' && $shutters->getShadingStatus ne 'out'
) )
@ -2469,8 +2478,7 @@ sub ShadingProcessing {
ShadingProcessingDriveCommand( $hash, $shuttersDev ) ShadingProcessingDriveCommand( $hash, $shuttersDev )
if ( if (
$shutters->getIsDay IsAfterShuttersTimeBlocking($shuttersDev)
&& IsAfterShuttersTimeBlocking($shuttersDev)
&& !$shutters->getShadingManualDriveStatus && !$shutters->getShadingManualDriveStatus
&& ( && (
( (