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

add first code to delay no rain drive

Browse Source
This commit is contained in:
Marko Oldenburg
2019-10-04 06:14:54 +02:00
parent df3006fe25
commit bd39083d67
1 changed files with 50 additions and 31 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
73_AutoShuttersControl.pm
View File

@ -1512,6 +1512,13 @@ sub EventProcessingRain($@) {
elsif ( $1 eq 'dry' ) { $val = $triggerMin } elsif ( $1 eq 'dry' ) { $val = $triggerMin }
else { $val = $1 } else { $val = $1 }
RainProtection($val,$triggerMax,$closedPos);
}
}
sub RainProtection(@)
my ($val,$triggerMax,$closedPos) = @_;
foreach my $shuttersDev ( @{ $hash->{helper}{shuttersList} } ) { foreach my $shuttersDev ( @{ $hash->{helper}{shuttersList} } ) {
$shutters->setShuttersDev($shuttersDev); $shutters->setShuttersDev($shuttersDev);
@ -1547,7 +1554,6 @@ sub EventProcessingRain($@) {
} }
} }
} }
}
sub EventProcessingWind($@) { sub EventProcessingWind($@) {
my ( $hash, $shuttersDev, $events ) = @_; my ( $hash, $shuttersDev, $events ) = @_;
@ -5978,7 +5984,7 @@ sub _getRainSensor {
if ( exists( $self->{ASC_rainSensor}->{LASTGETTIME} ) if ( exists( $self->{ASC_rainSensor}->{LASTGETTIME} )
and ( gettimeofday() - $self->{ASC_rainSensor}->{LASTGETTIME} ) < 2 ); and ( gettimeofday() - $self->{ASC_rainSensor}->{LASTGETTIME} ) < 2 );
$self->{ASC_rainSensor}->{LASTGETTIME} = int( gettimeofday() ); $self->{ASC_rainSensor}->{LASTGETTIME} = int( gettimeofday() );
my ( $device, $reading, $max, $hyst, $pos ) = my ( $device, $reading, $max, $hyst, $pos, $wait ) =
FHEM::AutoShuttersControl::GetAttrValues( $name, 'ASC_rainSensor', FHEM::AutoShuttersControl::GetAttrValues( $name, 'ASC_rainSensor',
'none' ); 'none' );
@ -5997,6 +6003,8 @@ sub _getRainSensor {
); );
$self->{ASC_rainSensor}->{shuttersClosedPos} = $self->{ASC_rainSensor}->{shuttersClosedPos} =
( $pos ne 'none' ? $pos : $shutters->getClosedPos ); ( $pos ne 'none' ? $pos : $shutters->getClosedPos );
$self->{ASC_rainSensor}->{waitingTime} =
( $pos ne 'none' ? $wait : 900 );
return $self->{ASC_rainSensor}->{device}; return $self->{ASC_rainSensor}->{device};
} }
@ -6045,6 +6053,17 @@ sub getRainSensorShuttersClosedPos {
return $self->{ASC_rainSensor}->{shuttersClosedPos}; return $self->{ASC_rainSensor}->{shuttersClosedPos};
} }
sub getRainWaitingTime {
my $self = shift;
my $name = $self->{name};
return $self->{ASC_rainSensor}->{waitingTime}
if ( exists( $self->{ASC_rainSensor}->{LASTGETTIME} )
and ( gettimeofday() - $self->{ASC_rainSensor}->{LASTGETTIME} ) < 2 );
$ascDev->_getRainSensor;
return $self->{ASC_rainSensor}->{waitingTime};
}
sub _getWindSensor { sub _getWindSensor {
my $self = shift; my $self = shift;
my $name = $self->{name}; my $name = $self->{name};