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

This commit is contained in:
Marko Oldenburg 2018-11-29 21:33:08 +01:00
parent 7feef51543
commit 24be89ebf2

View File

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