add shading out routine then coming home and shading mode is absent

This commit is contained in:
Marko Oldenburg 2019-05-28 15:44:44 +02:00
parent 67134f6e67
commit f51af5bf46

View File

@ -1255,6 +1255,18 @@ sub EventProcessingResidents($@) {
$shutters->setLastDrive('shading in'); $shutters->setLastDrive('shading in');
$shutters->setDriveCmd( $shutters->getShadingPos ); $shutters->setDriveCmd( $shutters->getShadingPos );
} }
elsif (
$shutters->getShadingMode eq 'absent'
and IsDay($shuttersDev)
and $shutters->getIfInShading
and $shutters->getStatus == $shutters->getShadingPos
and not( CheckIfShuttersWindowRecOpen($shuttersDev) == 2
and $shutters->getShuttersPlace eq 'terrace' )
)
{
$shutters->setLastDrive('shading out');
$shutters->setDriveCmd( $shutters->getLastPos );
}
elsif ( elsif (
$ascDev->getSelfDefense eq 'on' $ascDev->getSelfDefense eq 'on'
and CheckIfShuttersWindowRecOpen($shuttersDev) != 0 and CheckIfShuttersWindowRecOpen($shuttersDev) != 0