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

change ReadingsVal to ReadingsNum for read position Reading, add setDriveReading for wiggle

Browse Source
This commit is contained in:
Marko Oldenburg 2018-11-29 21:33:08 +01:00
parent 7feef51543
commit 24be89ebf2
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
73_AutoShuttersControl.pm
View File

@ -1559,10 +1559,12 @@ sub wiggle($$) {
my ( $hash, $shuttersDev ) = @_; my ( $hash, $shuttersDev ) = @_;
$shutters->setShuttersDev($shuttersDev); $shutters->setShuttersDev($shuttersDev);
$shutters->setNoOffset(1); $shutters->setNoOffset(1);
$shutters->setLastDrive('wiggle begin drive');
my %h = ( my %h = (
shuttersDev => $shutters->getShuttersDev, shuttersDev => $shutters->getShuttersDev,
posValue => $shutters->getStatus, posValue => $shutters->getStatus,
lastDrive => 'wiggle end drive',
); );
if ( $shutters->getShuttersPosCmdValueNegate ) { if ( $shutters->getShuttersPosCmdValueNegate ) {
@ -2253,6 +2255,7 @@ sub SetCmdFn($) {
my $posValue = $h->{posValue}; my $posValue = $h->{posValue};
$shutters->setShuttersDev($shuttersDev); $shutters->setShuttersDev($shuttersDev);
$shutters->setLastDrive($h->{lastDrive}) if ( defined($h->{lastDrive}) );
return return
unless ( $shutters->getASC != 0 ); unless ( $shutters->getASC != 0 );
@ -2929,7 +2932,8 @@ use GPUtils qw(GP_Import);
BEGIN { BEGIN {
GP_Import( GP_Import(
qw( qw(
ReadingsVal) ReadingsVal
ReadingsNum)
); );
} }
@ -2943,7 +2947,7 @@ sub getBrightness {
sub getStatus { sub getStatus {
my $self = shift; my $self = shift;
return ReadingsVal( $self->{shuttersDev}, $shutters->getPosCmd, 0 ); return ReadingsNum( $self->{shuttersDev}, $shutters->getPosCmd, 0 );
} }
sub getDelayCmd { sub getDelayCmd {