add first code to delay no rain drive
This commit is contained in:
parent
df3006fe25
commit
bd39083d67
@ -1512,6 +1512,13 @@ sub EventProcessingRain($@) {
|
||||
elsif ( $1 eq 'dry' ) { $val = $triggerMin }
|
||||
else { $val = $1 }
|
||||
|
||||
RainProtection($val,$triggerMax,$closedPos);
|
||||
}
|
||||
}
|
||||
|
||||
sub RainProtection(@)
|
||||
my ($val,$triggerMax,$closedPos) = @_;
|
||||
|
||||
foreach my $shuttersDev ( @{ $hash->{helper}{shuttersList} } ) {
|
||||
$shutters->setShuttersDev($shuttersDev);
|
||||
|
||||
@ -1547,7 +1554,6 @@ sub EventProcessingRain($@) {
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
sub EventProcessingWind($@) {
|
||||
my ( $hash, $shuttersDev, $events ) = @_;
|
||||
@ -5978,7 +5984,7 @@ sub _getRainSensor {
|
||||
if ( exists( $self->{ASC_rainSensor}->{LASTGETTIME} )
|
||||
and ( gettimeofday() - $self->{ASC_rainSensor}->{LASTGETTIME} ) < 2 );
|
||||
$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',
|
||||
'none' );
|
||||
|
||||
@ -5997,6 +6003,8 @@ sub _getRainSensor {
|
||||
);
|
||||
$self->{ASC_rainSensor}->{shuttersClosedPos} =
|
||||
( $pos ne 'none' ? $pos : $shutters->getClosedPos );
|
||||
$self->{ASC_rainSensor}->{waitingTime} =
|
||||
( $pos ne 'none' ? $wait : 900 );
|
||||
|
||||
return $self->{ASC_rainSensor}->{device};
|
||||
}
|
||||
@ -6045,6 +6053,17 @@ sub getRainSensorShuttersClosedPos {
|
||||
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 {
|
||||
my $self = shift;
|
||||
my $name = $self->{name};
|
||||
|
Loading…
Reference in New Issue
Block a user