change ExternalTriggerState to ExternalTriggerStatus
remove getExternalTriggerState from lib/FHEM/Automation/ShuttersControl/Shutters/Attr.pm and add in lib/FHEM/Automation/ShuttersControl/Shutters.pm as getExternalTriggerStatus
This commit is contained in:
@ -2909,13 +2909,13 @@ sub EventProcessingExternalTriggerDevice {
|
||||
if ( $1 eq $triggerValActive2 ) {
|
||||
$shutters->setLastDrive('external trigger2 device active');
|
||||
$shutters->setNoDelay(1);
|
||||
$shutters->setExternalTriggerState(1);
|
||||
$shutters->setExternalTriggerStatus(1);
|
||||
ShuttersCommandSet( $hash, $shuttersDev, $triggerPosActive2 );
|
||||
}
|
||||
else {
|
||||
$shutters->setLastDrive('external trigger device active');
|
||||
$shutters->setNoDelay(1);
|
||||
$shutters->setExternalTriggerState(1);
|
||||
$shutters->setExternalTriggerStatus(1);
|
||||
ShuttersCommandSet( $hash, $shuttersDev, $triggerPosActive );
|
||||
}
|
||||
}
|
||||
@ -2933,7 +2933,7 @@ sub EventProcessingExternalTriggerDevice {
|
||||
|
||||
$shutters->setLastDrive('external trigger device inactive');
|
||||
$shutters->setNoDelay(1);
|
||||
$shutters->setExternalTriggerState(1);
|
||||
$shutters->setExternalTriggerStatus(1);
|
||||
ShuttersCommandSet(
|
||||
$hash,
|
||||
$shuttersDev,
|
||||
|
@ -168,7 +168,7 @@ sub setDriveCmd {
|
||||
$posValue)
|
||||
&& !$FHEM::Automation::ShuttersControl::shutters->getAdvDelay
|
||||
&& !$FHEM::Automation::ShuttersControl::shutters
|
||||
->getExternalTriggerState
|
||||
->getExternalTriggerStatus
|
||||
&& !$FHEM::Automation::ShuttersControl::shutters
|
||||
->getSelfDefenseState
|
||||
)
|
||||
@ -177,9 +177,9 @@ sub setDriveCmd {
|
||||
$FHEM::Automation::ShuttersControl::shutters->setDelayCmd($posValue);
|
||||
$FHEM::Automation::ShuttersControl::ascDev->setDelayCmdReading;
|
||||
$FHEM::Automation::ShuttersControl::shutters->setNoDelay(0);
|
||||
$FHEM::Automation::ShuttersControl::shutters->setExternalTriggerState(0)
|
||||
$FHEM::Automation::ShuttersControl::shutters->setExternalTriggerStatus(0)
|
||||
if ( $FHEM::Automation::ShuttersControl::shutters
|
||||
->getExternalTriggerState );
|
||||
->getExternalTriggerStatus );
|
||||
|
||||
FHEM::Automation::ShuttersControl::ASC_Debug( 'setDriveCmd: '
|
||||
. $FHEM::Automation::ShuttersControl::shutters->getShuttersDev
|
||||
@ -193,9 +193,9 @@ sub setDriveCmd {
|
||||
if ( $FHEM::Automation::ShuttersControl::shutters->getDelayCmd ne
|
||||
'none' )
|
||||
; # setzt den Wert auf none da der Rolladen nun gesteuert werden kann.
|
||||
$FHEM::Automation::ShuttersControl::shutters->setExternalTriggerState(0)
|
||||
$FHEM::Automation::ShuttersControl::shutters->setExternalTriggerStatus(0)
|
||||
if ( $FHEM::Automation::ShuttersControl::shutters
|
||||
->getExternalTriggerState );
|
||||
->getExternalTriggerStatus );
|
||||
|
||||
### antifreeze Routine
|
||||
if ( $FHEM::Automation::ShuttersControl::shutters->getAntiFreezeStatus >
|
||||
@ -453,6 +453,20 @@ sub setAdvDelay {
|
||||
return;
|
||||
}
|
||||
|
||||
sub getExternalTriggerStatus {
|
||||
my $self = shift;
|
||||
|
||||
return (
|
||||
(
|
||||
defined(
|
||||
$self->{ $self->{shuttersDev} }->{ASC_ExternalTrigger}->{event}
|
||||
)
|
||||
and
|
||||
$self->{ $self->{shuttersDev} }->{ASC_ExternalTrigger}->{event}
|
||||
) ? 1 : 0
|
||||
);
|
||||
}
|
||||
|
||||
sub getHomemode {
|
||||
my $self = shift;
|
||||
|
||||
@ -872,7 +886,7 @@ sub setRainProtectionStatus { # Werte protected, unprotected
|
||||
return;
|
||||
}
|
||||
|
||||
sub setExternalTriggerState {
|
||||
sub setExternalTriggerStatus {
|
||||
my $self = shift;
|
||||
my $value = shift;
|
||||
|
||||
|
@ -1198,20 +1198,6 @@ sub getExternalTriggerPosInactive {
|
||||
->{posinactive};
|
||||
}
|
||||
|
||||
sub getExternalTriggerState {
|
||||
my $self = shift;
|
||||
|
||||
return (
|
||||
(
|
||||
defined(
|
||||
$self->{ $self->{shuttersDev} }->{ASC_ExternalTrigger}->{event}
|
||||
)
|
||||
and
|
||||
$self->{ $self->{shuttersDev} }->{ASC_ExternalTrigger}->{event}
|
||||
) ? 1 : 0
|
||||
);
|
||||
}
|
||||
|
||||
sub setDelay {
|
||||
my $self = shift;
|
||||
my $attrVal = shift;
|
||||
|
Reference in New Issue
Block a user