From 2e7deafc551f274b645a6d45b5d558107d1c11bd Mon Sep 17 00:00:00 2001 From: Marko Oldenburg Date: Thu, 21 May 2020 09:38:20 +0200 Subject: [PATCH] change outTemp condition for shading out --- 73_AutoShuttersControl.pm | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/73_AutoShuttersControl.pm b/73_AutoShuttersControl.pm index 8bfc304..4fc02db 100644 --- a/73_AutoShuttersControl.pm +++ b/73_AutoShuttersControl.pm @@ -2222,16 +2222,16 @@ sub EventProcessingTwilightDevice { ); if ( $events =~ m{(azimuth|elevation|SunAz|SunAlt):\s(\d+.\d+)}xms ) { - my $name = $device; + my $name = $device; my ( $azimuth, $elevation ); my $outTemp = $ascDev->getOutTemp; - $azimuth = $2 if ( $1 eq 'azimuth' || $1 eq 'SunAz' ); - $elevation = $2 if ( $1 eq 'elevation' || $1 eq 'SunAlt' ); + $azimuth = $2 if ( $1 eq 'azimuth' || $1 eq 'SunAz' ); + $elevation = $2 if ( $1 eq 'elevation' || $1 eq 'SunAlt' ); - $azimuth = $ascDev->getAzimuth + $azimuth = $ascDev->getAzimuth if ( !defined($azimuth) && !$azimuth ); - $elevation = $ascDev->getElevation + $elevation = $ascDev->getElevation if ( !defined($elevation) && !$elevation ); ASC_Debug( 'EventProcessingTwilightDevice: ' @@ -2354,7 +2354,7 @@ sub ShadingProcessing { if ( ( - $outTemp < $shutters->getShadingMinOutsideTemperature - 3 + $outTemp < $shutters->getShadingMinOutsideTemperature - 4 || $azimuth < $azimuthLeft || $azimuth > $azimuthRight || !$shutters->getIsDay @@ -2379,7 +2379,7 @@ sub ShadingProcessing { || $elevation < $shutters->getShadingMinElevation || $elevation > $shutters->getShadingMaxElevation || $brightness < $shutters->getShadingStateChangeCloudy - || $outTemp < $shutters->getShadingMinOutsideTemperature ) + || $outTemp < $shutters->getShadingMinOutsideTemperature - 1 ) { $shutters->setShadingStatus('out reserved') if ( $shutters->getShadingStatus eq 'in'