change shading logic
This commit is contained in:
		@@ -1418,9 +1418,11 @@ sub EventProcessingRain($@) {
 | 
			
		||||
                $shutters->setDriveCmd(
 | 
			
		||||
                    (
 | 
			
		||||
                        IsDay($shuttersDev) ? $shutters->getLastPos
 | 
			
		||||
                        : (   $shutters->getPrivacyDownStatus == 2
 | 
			
		||||
                        : (
 | 
			
		||||
                              $shutters->getPrivacyDownStatus == 2
 | 
			
		||||
                            ? $shutters->getPrivacyDownPos
 | 
			
		||||
                            : $shutters->getClosedPos )
 | 
			
		||||
                            : $shutters->getClosedPos
 | 
			
		||||
                        )
 | 
			
		||||
                    )
 | 
			
		||||
                );
 | 
			
		||||
                $shutters->setRainProtectionStatus('unprotected');
 | 
			
		||||
@@ -1473,9 +1475,11 @@ sub EventProcessingWind($@) {
 | 
			
		||||
                $shutters->setDriveCmd(
 | 
			
		||||
                    (
 | 
			
		||||
                        IsDay($shuttersDev) ? $shutters->getLastPos
 | 
			
		||||
                        : (   $shutters->getPrivacyDownStatus == 2
 | 
			
		||||
                        : (
 | 
			
		||||
                              $shutters->getPrivacyDownStatus == 2
 | 
			
		||||
                            ? $shutters->getPrivacyDownPos
 | 
			
		||||
                            : $shutters->getClosedPos )
 | 
			
		||||
                            : $shutters->getClosedPos
 | 
			
		||||
                        )
 | 
			
		||||
                    )
 | 
			
		||||
                );
 | 
			
		||||
                $shutters->setWindProtectionStatus('unprotected');
 | 
			
		||||
@@ -1976,12 +1980,12 @@ sub ShadingProcessing($@) {
 | 
			
		||||
    my $winPosMin = $winPos - $angleMinus;
 | 
			
		||||
    my $winPosMax = $winPos + $anglePlus;
 | 
			
		||||
 | 
			
		||||
#     $shutters->setShadingLastStatus( $shutters->getShadingStatus )
 | 
			
		||||
#       if (
 | 
			
		||||
#         $shutters->getShadingLastStatus ne $shutters->getShadingStatus
 | 
			
		||||
#         and (  $shutters->getShadingStatus eq 'in'
 | 
			
		||||
#             or $shutters->getShadingStatus eq 'out' )
 | 
			
		||||
#       );
 | 
			
		||||
    #     $shutters->setShadingLastStatus( $shutters->getShadingStatus )
 | 
			
		||||
    #       if (
 | 
			
		||||
    #         $shutters->getShadingLastStatus ne $shutters->getShadingStatus
 | 
			
		||||
    #         and (  $shutters->getShadingStatus eq 'in'
 | 
			
		||||
    #             or $shutters->getShadingStatus eq 'out' )
 | 
			
		||||
    #       );
 | 
			
		||||
 | 
			
		||||
    if (
 | 
			
		||||
        (
 | 
			
		||||
@@ -2023,8 +2027,8 @@ sub ShadingProcessing($@) {
 | 
			
		||||
                ( int( gettimeofday() ) - $shutters->getShadingStatusTimestamp )
 | 
			
		||||
                > $shutters->getShadingWaitingPeriod
 | 
			
		||||
            )
 | 
			
		||||
            or $azimuth > $winPosMax
 | 
			
		||||
          );
 | 
			
		||||
 | 
			
		||||
        Log3( $name, 4,
 | 
			
		||||
                "AutoShuttersControl ($name) - Shading Processing, Rollladen: "
 | 
			
		||||
              . $shuttersDev
 | 
			
		||||
@@ -6387,7 +6391,7 @@ sub getblockAscDrivesAfterManual {
 | 
			
		||||
  "release_status": "under develop",
 | 
			
		||||
  "license": "GPL_2",
 | 
			
		||||
  "version": "v0.6.19",
 | 
			
		||||
  "x_developmentversion": "v0.6.19.19",
 | 
			
		||||
  "x_developmentversion": "v0.6.19.20",
 | 
			
		||||
  "author": [
 | 
			
		||||
    "Marko Oldenburg <leongaultier@gmail.com>"
 | 
			
		||||
  ],
 | 
			
		||||
 
 | 
			
		||||
		Reference in New Issue
	
	Block a user