fix little bug
This commit is contained in:
parent
81f610374a
commit
3121e88fb2
@ -1046,13 +1046,11 @@ sub EventProcessingWindowRec($@) {
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
elsif (
|
elsif (
|
||||||
$shutters->getModeUp ne 'absent'
|
$shutters->getModeDown ne 'absent'
|
||||||
and $shutters->getModeUp ne 'off'
|
and $shutters->getModeDown ne 'off'
|
||||||
and ( not $shutters->getIsDay
|
and ( not $shutters->getIsDay
|
||||||
or $homemode eq 'asleep'
|
or $homemode eq 'asleep'
|
||||||
or $homemode eq 'gotosleep' )
|
or $homemode eq 'gotosleep' )
|
||||||
and $shutters->getModeDown ne 'absent'
|
|
||||||
and $shutters->getModeDown ne 'off'
|
|
||||||
and $ascDev->getAutoShuttersControlEvening eq 'on'
|
and $ascDev->getAutoShuttersControlEvening eq 'on'
|
||||||
)
|
)
|
||||||
{
|
{
|
||||||
@ -2517,7 +2515,7 @@ sub EventProcessingShutters($@) {
|
|||||||
sub EventProcessingExternalTriggerDevice($@) {
|
sub EventProcessingExternalTriggerDevice($@) {
|
||||||
my ( $hash, $shuttersDev, $events ) = @_;
|
my ( $hash, $shuttersDev, $events ) = @_;
|
||||||
my $name = $hash->{NAME};
|
my $name = $hash->{NAME};
|
||||||
|
|
||||||
$shutters->setShuttersDev($shuttersDev);
|
$shutters->setShuttersDev($shuttersDev);
|
||||||
|
|
||||||
ASC_Debug( 'EventProcessingExternalTriggerDevice: '
|
ASC_Debug( 'EventProcessingExternalTriggerDevice: '
|
||||||
@ -2525,23 +2523,23 @@ sub EventProcessingExternalTriggerDevice($@) {
|
|||||||
. ' - RECEIVED EVENT: '
|
. ' - RECEIVED EVENT: '
|
||||||
. Dumper $events);
|
. Dumper $events);
|
||||||
|
|
||||||
my $reading = $shutters->getExternalTriggerReading;
|
my $reading = $shutters->getExternalTriggerReading;
|
||||||
my $triggerValActive = $shutters->getExternalTriggerValueActive;
|
my $triggerValActive = $shutters->getExternalTriggerValueActive;
|
||||||
my $triggerValInactive = $shutters->getExternalTriggerValueInactive;
|
my $triggerValInactive = $shutters->getExternalTriggerValueInactive;
|
||||||
my $triggerPosActive = $shutters->getExternalTriggerPosActive;
|
my $triggerPosActive = $shutters->getExternalTriggerPosActive;
|
||||||
my $triggerPosInactive = $shutters->getExternalTriggerPosInactive;
|
my $triggerPosInactive = $shutters->getExternalTriggerPosInactive;
|
||||||
|
|
||||||
if ( $events =~ m#$reading:\s($triggerValActive)# ) {
|
if ( $events =~ m#$reading:\s($triggerValActive)# ) {
|
||||||
ASC_Debug( 'EventProcessingExternalTriggerDevice: '
|
ASC_Debug( 'EventProcessingExternalTriggerDevice: '
|
||||||
. ' In der RegEx Schleife Trivver Val Aktiv'
|
. ' In der RegEx Schleife Trivver Val Aktiv'
|
||||||
. ' - TriggerVal: '
|
. ' - TriggerVal: '
|
||||||
. $triggerValActive);
|
. $triggerValActive );
|
||||||
}
|
}
|
||||||
elsif ( $events =~ m#$reading:\s($triggerValInactive)# ) {
|
elsif ( $events =~ m#$reading:\s($triggerValInactive)# ) {
|
||||||
ASC_Debug( 'EventProcessingExternalTriggerDevice: '
|
ASC_Debug( 'EventProcessingExternalTriggerDevice: '
|
||||||
. ' In der RegEx Schleife Trivver Val Inaktiv'
|
. ' In der RegEx Schleife Trivver Val Inaktiv'
|
||||||
. ' - TriggerVal: '
|
. ' - TriggerVal: '
|
||||||
. $triggerValInactive);
|
. $triggerValInactive );
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
@ -3073,6 +3071,9 @@ sub CreateNewNotifyDev($) {
|
|||||||
AddNotifyDev( $hash, AttrVal( $_, 'ASC_BrightnessSensor', 'none' ),
|
AddNotifyDev( $hash, AttrVal( $_, 'ASC_BrightnessSensor', 'none' ),
|
||||||
$_, 'ASC_BrightnessSensor' )
|
$_, 'ASC_BrightnessSensor' )
|
||||||
if ( AttrVal( $_, 'ASC_BrightnessSensor', 'none' ) ne 'none' );
|
if ( AttrVal( $_, 'ASC_BrightnessSensor', 'none' ) ne 'none' );
|
||||||
|
AddNotifyDev( $hash, AttrVal( $_, 'ASC_ExternalTriggerDevice', 'none' ),
|
||||||
|
$_, 'ASC_BrightnessSensor' )
|
||||||
|
if ( AttrVal( $_, 'ASC_ExternalTriggerDevice', 'none' ) ne 'none' );
|
||||||
|
|
||||||
$shuttersList = $shuttersList . ',' . $_;
|
$shuttersList = $shuttersList . ',' . $_;
|
||||||
}
|
}
|
||||||
@ -5448,143 +5449,143 @@ sub getShadingWaitingPeriod {
|
|||||||
sub getExternalTriggerDevice {
|
sub getExternalTriggerDevice {
|
||||||
my $self = shift;
|
my $self = shift;
|
||||||
|
|
||||||
return $self->{ $self->{shuttersDev} }
|
return $self->{ $self->{shuttersDev} }->{ASC_ExternalTriggerDevice}
|
||||||
->{ASC_ExternalTriggerDevice}->{device}
|
->{device}
|
||||||
if (
|
if (
|
||||||
exists(
|
exists(
|
||||||
$self->{ $self->{shuttersDev} }
|
$self->{ $self->{shuttersDev} }->{ASC_ExternalTriggerDevice}
|
||||||
->{ASC_ExternalTriggerDevice}->{LASTGETTIME}
|
->{LASTGETTIME}
|
||||||
)
|
)
|
||||||
and ( gettimeofday() -
|
and ( gettimeofday() -
|
||||||
$self->{ $self->{shuttersDev} }
|
$self->{ $self->{shuttersDev} }->{ASC_ExternalTriggerDevice}
|
||||||
->{ASC_ExternalTriggerDevice}->{LASTGETTIME} ) < 2
|
->{LASTGETTIME} ) < 2
|
||||||
);
|
);
|
||||||
$self->{ $self->{shuttersDev} }->{ASC_ExternalTriggerDevice}
|
$self->{ $self->{shuttersDev} }->{ASC_ExternalTriggerDevice}->{LASTGETTIME}
|
||||||
->{LASTGETTIME} = int( gettimeofday() );
|
= int( gettimeofday() );
|
||||||
my ( $device, $reading, $valueActive, $valueInactive, $posActive, $posInactive ) =
|
my ( $device, $reading, $valueActive, $valueInactive, $posActive,
|
||||||
FHEM::AutoShuttersControl::GetAttrValues( $self->{shuttersDev},
|
$posInactive )
|
||||||
'ASC_ExternalTriggerDevice',
|
= FHEM::AutoShuttersControl::GetAttrValues( $self->{shuttersDev},
|
||||||
'none' );
|
'ASC_ExternalTriggerDevice', 'none' );
|
||||||
|
|
||||||
### erwartetes Ergebnis
|
### erwartetes Ergebnis
|
||||||
# DEVICE:READING VALUEACTIVE:VALUEINACTIVE POSACTIVE:POSINACTIVE
|
# DEVICE:READING VALUEACTIVE:VALUEINACTIVE POSACTIVE:POSINACTIVE
|
||||||
|
|
||||||
$self->{ $self->{shuttersDev} }->{ASC_ExternalTriggerDevice}
|
$self->{ $self->{shuttersDev} }->{ASC_ExternalTriggerDevice}->{device} =
|
||||||
->{device} = $device;
|
$device;
|
||||||
$self->{ $self->{shuttersDev} }->{ASC_ExternalTriggerDevice}
|
$self->{ $self->{shuttersDev} }->{ASC_ExternalTriggerDevice}->{reading} =
|
||||||
->{reading} = $reading;
|
$reading;
|
||||||
$self->{ $self->{shuttersDev} }->{ASC_ExternalTriggerDevice}
|
$self->{ $self->{shuttersDev} }->{ASC_ExternalTriggerDevice}->{valueactive}
|
||||||
->{valueactive} = $valueActive;
|
= $valueActive;
|
||||||
$self->{ $self->{shuttersDev} }->{ASC_ExternalTriggerDevice}
|
$self->{ $self->{shuttersDev} }->{ASC_ExternalTriggerDevice}
|
||||||
->{valueinactive} = $valueInactive;
|
->{valueinactive} = $valueInactive;
|
||||||
$self->{ $self->{shuttersDev} }->{ASC_ExternalTriggerDevice}
|
$self->{ $self->{shuttersDev} }->{ASC_ExternalTriggerDevice}->{posactive} =
|
||||||
->{posactive} = $posActive;
|
$posActive;
|
||||||
$self->{ $self->{shuttersDev} }->{ASC_ExternalTriggerDevice}
|
$self->{ $self->{shuttersDev} }->{ASC_ExternalTriggerDevice}->{posinactive}
|
||||||
->{posinactive} = $posInactive;
|
= $posInactive;
|
||||||
|
|
||||||
return $self->{ $self->{shuttersDev} }
|
return $self->{ $self->{shuttersDev} }->{ASC_ExternalTriggerDevice}
|
||||||
->{ASC_ExternalTriggerDevice}->{device};
|
->{device};
|
||||||
|
|
||||||
}
|
}
|
||||||
|
|
||||||
sub getExternalTriggerReading {
|
sub getExternalTriggerReading {
|
||||||
my $self = shift;
|
my $self = shift;
|
||||||
|
|
||||||
return $self->{ $self->{shuttersDev} }
|
return $self->{ $self->{shuttersDev} }->{ASC_ExternalTriggerDevice}
|
||||||
->{ASC_ExternalTriggerDevice}->{reading}
|
->{reading}
|
||||||
if (
|
if (
|
||||||
exists(
|
exists(
|
||||||
$self->{ $self->{shuttersDev} }
|
$self->{ $self->{shuttersDev} }->{ASC_ExternalTriggerDevice}
|
||||||
->{ASC_ExternalTriggerDevice}->{LASTGETTIME}
|
->{LASTGETTIME}
|
||||||
)
|
)
|
||||||
and ( gettimeofday() -
|
and ( gettimeofday() -
|
||||||
$self->{ $self->{shuttersDev} }
|
$self->{ $self->{shuttersDev} }->{ASC_ExternalTriggerDevice}
|
||||||
->{ASC_ExternalTriggerDevice}->{LASTGETTIME} ) < 2
|
->{LASTGETTIME} ) < 2
|
||||||
);
|
);
|
||||||
$shutters->getExternalTriggerDevice;
|
$shutters->getExternalTriggerDevice;
|
||||||
|
|
||||||
return $self->{ $self->{shuttersDev} }
|
return $self->{ $self->{shuttersDev} }->{ASC_ExternalTriggerDevice}
|
||||||
->{ASC_ExternalTriggerDevice}->{reading};
|
->{reading};
|
||||||
}
|
}
|
||||||
|
|
||||||
sub getExternalTriggerValueActive {
|
sub getExternalTriggerValueActive {
|
||||||
my $self = shift;
|
my $self = shift;
|
||||||
|
|
||||||
return $self->{ $self->{shuttersDev} }
|
return $self->{ $self->{shuttersDev} }->{ASC_ExternalTriggerDevice}
|
||||||
->{ASC_ExternalTriggerDevice}->{valueactive}
|
->{valueactive}
|
||||||
if (
|
if (
|
||||||
exists(
|
exists(
|
||||||
$self->{ $self->{shuttersDev} }
|
$self->{ $self->{shuttersDev} }->{ASC_ExternalTriggerDevice}
|
||||||
->{ASC_ExternalTriggerDevice}->{LASTGETTIME}
|
->{LASTGETTIME}
|
||||||
)
|
)
|
||||||
and ( gettimeofday() -
|
and ( gettimeofday() -
|
||||||
$self->{ $self->{shuttersDev} }
|
$self->{ $self->{shuttersDev} }->{ASC_ExternalTriggerDevice}
|
||||||
->{ASC_ExternalTriggerDevice}->{LASTGETTIME} ) < 2
|
->{LASTGETTIME} ) < 2
|
||||||
);
|
);
|
||||||
$shutters->getExternalTriggerDevice;
|
$shutters->getExternalTriggerDevice;
|
||||||
|
|
||||||
return $self->{ $self->{shuttersDev} }
|
return $self->{ $self->{shuttersDev} }->{ASC_ExternalTriggerDevice}
|
||||||
->{ASC_ExternalTriggerDevice}->{valueactive};
|
->{valueactive};
|
||||||
}
|
}
|
||||||
|
|
||||||
sub getExternalTriggerValueInactive {
|
sub getExternalTriggerValueInactive {
|
||||||
my $self = shift;
|
my $self = shift;
|
||||||
|
|
||||||
return $self->{ $self->{shuttersDev} }
|
return $self->{ $self->{shuttersDev} }->{ASC_ExternalTriggerDevice}
|
||||||
->{ASC_ExternalTriggerDevice}->{valueinactive}
|
->{valueinactive}
|
||||||
if (
|
if (
|
||||||
exists(
|
exists(
|
||||||
$self->{ $self->{shuttersDev} }
|
$self->{ $self->{shuttersDev} }->{ASC_ExternalTriggerDevice}
|
||||||
->{ASC_ExternalTriggerDevice}->{LASTGETTIME}
|
->{LASTGETTIME}
|
||||||
)
|
)
|
||||||
and ( gettimeofday() -
|
and ( gettimeofday() -
|
||||||
$self->{ $self->{shuttersDev} }
|
$self->{ $self->{shuttersDev} }->{ASC_ExternalTriggerDevice}
|
||||||
->{ASC_ExternalTriggerDevice}->{LASTGETTIME} ) < 2
|
->{LASTGETTIME} ) < 2
|
||||||
);
|
);
|
||||||
$shutters->getExternalTriggerDevice;
|
$shutters->getExternalTriggerDevice;
|
||||||
|
|
||||||
return $self->{ $self->{shuttersDev} }
|
return $self->{ $self->{shuttersDev} }->{ASC_ExternalTriggerDevice}
|
||||||
->{ASC_ExternalTriggerDevice}->{valueinactive};
|
->{valueinactive};
|
||||||
}
|
}
|
||||||
|
|
||||||
sub getExternalTriggerPosActive {
|
sub getExternalTriggerPosActive {
|
||||||
my $self = shift;
|
my $self = shift;
|
||||||
|
|
||||||
return $self->{ $self->{shuttersDev} }
|
return $self->{ $self->{shuttersDev} }->{ASC_ExternalTriggerDevice}
|
||||||
->{ASC_ExternalTriggerDevice}->{posactive}
|
->{posactive}
|
||||||
if (
|
if (
|
||||||
exists(
|
exists(
|
||||||
$self->{ $self->{shuttersDev} }
|
$self->{ $self->{shuttersDev} }->{ASC_ExternalTriggerDevice}
|
||||||
->{ASC_ExternalTriggerDevice}->{LASTGETTIME}
|
->{LASTGETTIME}
|
||||||
)
|
)
|
||||||
and ( gettimeofday() -
|
and ( gettimeofday() -
|
||||||
$self->{ $self->{shuttersDev} }
|
$self->{ $self->{shuttersDev} }->{ASC_ExternalTriggerDevice}
|
||||||
->{ASC_ExternalTriggerDevice}->{LASTGETTIME} ) < 2
|
->{LASTGETTIME} ) < 2
|
||||||
);
|
);
|
||||||
$shutters->getExternalTriggerDevice;
|
$shutters->getExternalTriggerDevice;
|
||||||
|
|
||||||
return $self->{ $self->{shuttersDev} }
|
return $self->{ $self->{shuttersDev} }->{ASC_ExternalTriggerDevice}
|
||||||
->{ASC_ExternalTriggerDevice}->{posactive};
|
->{posactive};
|
||||||
}
|
}
|
||||||
|
|
||||||
sub getExternalTriggerPosInactive {
|
sub getExternalTriggerPosInactive {
|
||||||
my $self = shift;
|
my $self = shift;
|
||||||
|
|
||||||
return $self->{ $self->{shuttersDev} }
|
return $self->{ $self->{shuttersDev} }->{ASC_ExternalTriggerDevice}
|
||||||
->{ASC_ExternalTriggerDevice}->{posinactive}
|
->{posinactive}
|
||||||
if (
|
if (
|
||||||
exists(
|
exists(
|
||||||
$self->{ $self->{shuttersDev} }
|
$self->{ $self->{shuttersDev} }->{ASC_ExternalTriggerDevice}
|
||||||
->{ASC_ExternalTriggerDevice}->{LASTGETTIME}
|
->{LASTGETTIME}
|
||||||
)
|
)
|
||||||
and ( gettimeofday() -
|
and ( gettimeofday() -
|
||||||
$self->{ $self->{shuttersDev} }
|
$self->{ $self->{shuttersDev} }->{ASC_ExternalTriggerDevice}
|
||||||
->{ASC_ExternalTriggerDevice}->{LASTGETTIME} ) < 2
|
->{LASTGETTIME} ) < 2
|
||||||
);
|
);
|
||||||
$shutters->getExternalTriggerDevice;
|
$shutters->getExternalTriggerDevice;
|
||||||
|
|
||||||
return $self->{ $self->{shuttersDev} }
|
return $self->{ $self->{shuttersDev} }->{ASC_ExternalTriggerDevice}
|
||||||
->{ASC_ExternalTriggerDevice}->{posinactive};
|
->{posinactive};
|
||||||
}
|
}
|
||||||
|
|
||||||
sub getDelay {
|
sub getDelay {
|
||||||
|
Loading…
Reference in New Issue
Block a user