add attribut ASC_RainProtection

This commit is contained in:
Marko Oldenburg 2019-04-29 13:22:37 +02:00
parent cad34208ea
commit 503545e620

View File

@ -44,7 +44,7 @@ use strict;
use warnings;
use FHEM::Meta;
my $version = '0.6.2.1';
my $version = '0.6.2.3';
sub AutoShuttersControl_Initialize($) {
my ($hash) = @_;
@ -207,6 +207,7 @@ my %userAttrList = (
'ASC_WindParameters' => '-',
'ASC_DriveUpMaxDuration' => '-',
'ASC_WindProtection:on,off' => '-',
'ASC_RainProtection:on,off' => '-',
);
my %posSetCmds = (
@ -1199,6 +1200,10 @@ sub EventProcessingRain($@) {
foreach my $shuttersDev ( @{ $hash->{helper}{shuttersList} } ) {
$shutters->setShuttersDev($shuttersDev);
next
if ($shutters->getRainProtection eq 'off' );
if ( $val > $triggerMax
and $shutters->getStatus != $closedPos
and IsAfterShuttersManualBlocking($shuttersDev) )
@ -3997,6 +4002,12 @@ sub getWindProtection {
return AttrVal( $self->{shuttersDev}, 'ASC_WindProtection', 'on' );
}
sub getRainProtection {
my $self = shift;
return AttrVal( $self->{shuttersDev}, 'ASC_RainProtection', 'on' );
}
sub getModeUp {
my $self = shift;