FHEM/mod-AutoShuttersControl
1
0
Fork 0
Code Issues 12 Pull Requests Releases 9 Wiki Activity

fix shading routine

Browse Source
This commit is contained in:
Marko Oldenburg 2019-06-26 12:08:02 +02:00
parent 2ce59ed9a5
commit 2d9478be05
1 changed files with 14 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
73_AutoShuttersControl.pm
View File

@ -1980,13 +1980,6 @@ 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' )
# );
if (
(
$outTemp < $shutters->getShadingMinOutsideTemperature - 3
@ -2019,15 +2012,17 @@ sub ShadingProcessing($@) {
if ( $shutters->getShadingStatus eq 'in'
or $shutters->getShadingStatus eq 'in reserved' );
$shutters->setShadingStatus('out')
if (
if (
(
$shutters->getShadingStatus eq 'out reserved'
and
( int( gettimeofday() ) - $shutters->getShadingStatusTimestamp )
> $shutters->getShadingWaitingPeriod
)
);
) > $shutters->getShadingWaitingPeriod
)
{
$shutters->setShadingStatus('out');
$shutters->setShadingLastStatus('in');
}
Log3( $name, 4,
"AutoShuttersControl ($name) - Shading Processing, Rollladen: "
@ -2055,11 +2050,15 @@ sub ShadingProcessing($@) {
if ( $shutters->getShadingStatus eq 'out'
or $shutters->getShadingStatus eq 'out reserved' );
$shutters->setShadingStatus('in')
if ( $shutters->getShadingStatus eq 'in reserved'
if ( $shutters->getShadingStatus eq 'in reserved'
and
( int( gettimeofday() ) - $shutters->getShadingStatusTimestamp ) >
( $shutters->getShadingWaitingPeriod / 2 ) );
( $shutters->getShadingWaitingPeriod / 2 ) )
{
$shutters->setShadingStatus('in');
$shutters->setShadingLastStatus('out');
}
Log3( $name, 4,
"AutoShuttersControl ($name) - Shading Processing, Rollladen: "
. $shuttersDev