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

fix bug then coming home

Browse Source
This commit is contained in:
Marko Oldenburg 2018-10-30 15:26:04 +01:00
parent 8ecd3dc580
commit f504135628
1 changed files with 31 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

53
73_AutoShuttersControl.pm
View File

@ -38,7 +38,7 @@ package main;
use strict; use strict;
use warnings; use warnings;
my $version = "0.1.83"; my $version = "0.1.84";
sub AutoShuttersControl_Initialize($) { sub AutoShuttersControl_Initialize($) {
my ($hash) = @_; my ($hash) = @_;
@ -849,19 +849,25 @@ sub RoommateEventProcessing($@) {
or $shutters->getRoommatesLastStatus eq 'gone' or $shutters->getRoommatesLastStatus eq 'gone'
or $shutters->getRoommatesLastStatus eq 'home') or $shutters->getRoommatesLastStatus eq 'home')
and $shutters->getModeUp eq 'home' and $shutters->getModeUp eq 'home'
and $shutters->getRoommatesStatus eq 'home' and $shutters->getRoommatesStatus eq 'home' )
and not IsDay( $hash, $shuttersDev ) )
{ {
my $position; if ( not IsDay( $hash, $shuttersDev ) ) {
if ( CheckIfShuttersWindowRecOpen($shuttersDev) == 0 my $position;
or $shutters->getVentilateOpen eq 'off' ) if ( CheckIfShuttersWindowRecOpen($shuttersDev) == 0
{ or $shutters->getVentilateOpen eq 'off' )
$position = $shutters->getClosedPos; {
$position = $shutters->getClosedPos;
}
else { $position = $shutters->getVentilatePos; }
$shutters->setLastDrive('roommate home');
ShuttersCommandSet( $hash, $shuttersDev, $position );
}
elsif ( IsDay( $hash, $shuttersDev )
and $shutters->getStatus == $shutters->getClosedPos) {
$shutters->setLastDrive('roommate home');
ShuttersCommandSet( $hash, $shuttersDev, $shutters->getOpenPos );
} }
else { $position = $shutters->getVentilatePos; }
$shutters->setLastDrive('roommate home');
ShuttersCommandSet( $hash, $shuttersDev, $position );
} }
} }
elsif ( ($shutters->getModeDown eq 'always' elsif ( ($shutters->getModeDown eq 'always'
@ -900,14 +906,15 @@ sub ResidentsEventProcessing($@) {
{ {
foreach my $shuttersDev ( @{ $hash->{helper}{shuttersList} } ) { foreach my $shuttersDev ( @{ $hash->{helper}{shuttersList} } ) {
$shutters->setShuttersDev($shuttersDev); $shutters->setShuttersDev($shuttersDev);
$shutters->setLastDrive('selfeDefense active');
$shutters->setDriveCmd( $shutters->getClosedPos ) if ( CheckIfShuttersWindowRecOpen($shuttersDev) != 0
if ( CheckIfShuttersWindowRecOpen($shuttersDev) != 0 and $shutters->getSelfDefenseExclude eq 'off'
and $shutters->getSelfDefenseExclude eq 'off' or ($shutters->getUpMode eq 'absent'
or ($shutters->getUpMode eq 'absent' and not IsDay( $hash, $shuttersDev )) )
and not IsDay( $hash, $shuttersDev )) {
); $shutters->setLastDrive('selfeDefense active');
$shutters->setDriveCmd( $shutters->getClosedPos );
}
} }
} }
elsif ( $events =~ m#$reading:\s(gone)# elsif ( $events =~ m#$reading:\s(gone)#
@ -915,9 +922,11 @@ sub ResidentsEventProcessing($@) {
{ {
foreach my $shuttersDev ( @{ $hash->{helper}{shuttersList} } ) { foreach my $shuttersDev ( @{ $hash->{helper}{shuttersList} } ) {
$shutters->setShuttersDev($shuttersDev); $shutters->setShuttersDev($shuttersDev);
$shutters->setLastDrive('selfeDefense terrace');
$shutters->setDriveCmd( $shutters->getClosedPos ) if ( $shutters->getShuttersPlace eq 'terrace' ) {
if ( $shutters->getShuttersPlace eq 'terrace' ); $shutters->setLastDrive('selfeDefense terrace');
$shutters->setDriveCmd( $shutters->getClosedPos );
}
} }
} }
elsif ( elsif (