FHEM/mod-NUKI
1
0
Fork 0
Code Issues Pull Requests Releases 3 Wiki Activity

fix getDeviceList bug

Browse Source
This commit is contained in:
Marko Oldenburg 2020-01-09 22:02:41 +01:00
parent 6f71931524
commit 2b9989d491
2 changed files with 634 additions and 538 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

704
73_NUKIBridge.pm
View File

File diff suppressed because it is too large Load Diff

306
74_NUKIDevice.pm
View File

@ -25,7 +25,6 @@
# #
############################################################################### ###############################################################################
package main; package main;
use strict; use strict;
@ -102,11 +101,7 @@ if ($@) {
} }
} }
my $version = '0.7.15';
my $version = '0.7.11';
# Declare functions # Declare functions
sub NUKIDevice_Initialize($); sub NUKIDevice_Initialize($);
@ -118,7 +113,6 @@ sub NUKIDevice_GetUpdate($);
sub NUKIDevice_Parse($$); sub NUKIDevice_Parse($$);
sub NUKIDevice_WriteReadings($$); sub NUKIDevice_WriteReadings($$);
my %deviceTypes = ( my %deviceTypes = (
0 => 'smartlock', 0 => 'smartlock',
2 => 'opener' 2 => 'opener'
@ -126,30 +120,26 @@ my %deviceTypes = (
my %deviceTypeIds = reverse(%deviceTypes); my %deviceTypeIds = reverse(%deviceTypes);
sub NUKIDevice_Initialize($) { sub NUKIDevice_Initialize($) {
my ($hash) = @_; my ($hash) = @_;
$hash->{Match} = '^{.*}$'; $hash->{Match} = '^{.*}$';
$hash->{SetFn} = 'NUKIDevice_Set'; $hash->{SetFn} = 'NUKIDevice_Set';
$hash->{DefFn} = 'NUKIDevice_Define'; $hash->{DefFn} = 'NUKIDevice_Define';
$hash->{UndefFn} = 'NUKIDevice_Undef'; $hash->{UndefFn} = 'NUKIDevice_Undef';
$hash->{AttrFn} = 'NUKIDevice_Attr'; $hash->{AttrFn} = 'NUKIDevice_Attr';
$hash->{ParseFn} = 'NUKIDevice_Parse'; $hash->{ParseFn} = 'NUKIDevice_Parse';
$hash->{AttrList} = 'IODev '. $hash->{AttrList} =
'model:opener,smartlock '. 'IODev '
'disable:1 '. . 'model:opener,smartlock '
$readingFnAttributes; . 'disable:1 '
. $readingFnAttributes;
foreach my $d ( sort keys %{ $modules{NUKIDevice}{defptr} } ) {
foreach my $d(sort keys %{$modules{NUKIDevice}{defptr}}) {
my $hash = $modules{NUKIDevice}{defptr}{$d}; my $hash = $modules{NUKIDevice}{defptr}{$d};
$hash->{VERSION} = $version; $hash->{VERSION} = $version;
} }
} }
@ -157,29 +147,28 @@ sub NUKIDevice_Define($$) {
my ( $hash, $def ) = @_; my ( $hash, $def ) = @_;
my @a = split( '[ \t][ \t]*', $def ); my @a = split( '[ \t][ \t]*', $def );
return 'too few parameters: define <name> NUKIDevice <nukiId> <deviceType>' if ( @a != 4 ); return 'too few parameters: define <name> NUKIDevice <nukiId> <deviceType>'
if ( @a != 4 );
my $name = $a[0];
my $name = $a[0]; my $nukiId = $a[2];
my $nukiId = $a[2]; my $deviceType = ( defined $a[3] ) ? $a[3] : 0;
my $deviceType = (defined $a[3]) ? $a[3] : 0;
$hash->{NUKIID} = $nukiId; $hash->{NUKIID} = $nukiId;
$hash->{DEVICETYPE} = (defined $deviceType) ? $deviceType : 0; $hash->{DEVICETYPE} = ( defined $deviceType ) ? $deviceType : 0;
$hash->{VERSION} = $version; $hash->{VERSION} = $version;
$hash->{STATE} = 'Initialized'; $hash->{STATE} = 'Initialized';
my $iodev = AttrVal( $name, 'IODev', 'none' ); my $iodev = AttrVal( $name, 'IODev', 'none' );
AssignIoPort( $hash, $iodev ) if ( !$hash->{IODev} ); AssignIoPort( $hash, $iodev ) if ( !$hash->{IODev} );
if ( defined( $hash->{IODev}->{NAME} ) ) { if ( defined( $hash->{IODev}->{NAME} ) ) {
Log3($name, 3, "NUKIDevice ($name) - I/O device is " Log3( $name, 3,
. $hash->{IODev}->{NAME}); "NUKIDevice ($name) - I/O device is " . $hash->{IODev}->{NAME} );
} }
else { else {
Log3($name, 1, "NUKIDevice ($name) - no I/O device"); Log3( $name, 1, "NUKIDevice ($name) - no I/O device" );
} }
$iodev = $hash->{IODev}->{NAME}; $iodev = $hash->{IODev}->{NAME};
@ -187,23 +176,29 @@ sub NUKIDevice_Define($$) {
my $d = $modules{NUKIDevice}{defptr}{$nukiId}; my $d = $modules{NUKIDevice}{defptr}{$nukiId};
return return
'NUKIDevice device ' . $name . ' on NUKIBridge ' . $iodev . ' already defined.' 'NUKIDevice device '
. $name
. ' on NUKIBridge '
. $iodev
. ' already defined.'
if ( defined($d) if ( defined($d)
and $d->{IODev} == $hash->{IODev} and $d->{IODev} == $hash->{IODev}
and $d->{NAME} ne $name ); and $d->{NAME} ne $name );
Log3( $name, 3, "NUKIDevice ($name) - defined with NukiId: $nukiId" );
Log3($name, 3, "NUKIDevice ($name) - defined with NukiId: $nukiId"); CommandAttr( undef, $name . ' room NUKI' )
if ( AttrVal( $name, 'room', 'none' ) eq 'none' );
CommandAttr( undef, $name . ' model ' . $deviceTypes{$deviceType} )
if ( AttrVal( $name, 'model', 'none' ) eq 'none' );
CommandAttr(undef,$name . ' room NUKI') if ($init_done) {
if ( AttrVal($name,'room','none') eq 'none'); InternalTimer( gettimeofday() + int( rand(10) ),
CommandAttr(undef,$name . ' model ' . $deviceTypes{$deviceType}) "NUKIDevice_GetUpdate", $hash );
if ( AttrVal($name,'model','none') eq 'none'); }
else {
if ( $init_done ) { InternalTimer( gettimeofday() + 15 + int( rand(5) ),
InternalTimer( gettimeofday()+int(rand(10)), "NUKIDevice_GetUpdate", $hash); "NUKIDevice_GetUpdate", $hash );
} else {
InternalTimer( gettimeofday()+15+int(rand(5)), "NUKIDevice_GetUpdate", $hash);
} }
$modules{NUKIDevice}{defptr}{$nukiId} = $hash; $modules{NUKIDevice}{defptr}{$nukiId} = $hash;
@ -215,12 +210,12 @@ sub NUKIDevice_Undef($$) {
my ( $hash, $arg ) = @_; my ( $hash, $arg ) = @_;
my $nukiId = $hash->{NUKIID}; my $nukiId = $hash->{NUKIID};
my $name = $hash->{NAME}; my $name = $hash->{NAME};
RemoveInternalTimer($hash); RemoveInternalTimer($hash);
Log3($name, 3, "NUKIDevice ($name) - undefined with NukiId: $nukiId"); Log3( $name, 3, "NUKIDevice ($name) - undefined with NukiId: $nukiId" );
delete($modules{NUKIDevice}{defptr}{$nukiId}); delete( $modules{NUKIDevice}{defptr}{$nukiId} );
return undef; return undef;
} }
@ -228,34 +223,36 @@ sub NUKIDevice_Undef($$) {
sub NUKIDevice_Attr(@) { sub NUKIDevice_Attr(@) {
my ( $cmd, $name, $attrName, $attrVal ) = @_; my ( $cmd, $name, $attrName, $attrVal ) = @_;
my $hash = $defs{$name}; my $hash = $defs{$name};
my $token = $hash->{IODev}->{TOKEN}; my $token = $hash->{IODev}->{TOKEN};
if ( $attrName eq 'disable' ) { if ( $attrName eq 'disable' ) {
if ( $cmd eq 'set' and $attrVal == 1 ) { if ( $cmd eq 'set' and $attrVal == 1 ) {
readingsSingleUpdate ( $hash, 'state', 'disabled', 1 ); readingsSingleUpdate( $hash, 'state', 'disabled', 1 );
Log3($name, 3, "NUKIDevice ($name) - disabled"); Log3( $name, 3, "NUKIDevice ($name) - disabled" );
} }
elsif ( $cmd eq 'del' ) { elsif ( $cmd eq 'del' ) {
readingsSingleUpdate ( $hash, 'state', 'active', 1 ); readingsSingleUpdate( $hash, 'state', 'active', 1 );
Log3($name, 3, "NUKIDevice ($name) - enabled"); Log3( $name, 3, "NUKIDevice ($name) - enabled" );
} }
} }
elsif ( $attrName eq 'disabledForIntervals' ) { elsif ( $attrName eq 'disabledForIntervals' ) {
if ( $cmd eq 'set' ) { if ( $cmd eq 'set' ) {
Log3($name, 3, "NUKIDevice ($name) - enable disabledForIntervals"); Log3( $name, 3,
readingsSingleUpdate ( $hash, 'state', 'Unknown', 1 ); "NUKIDevice ($name) - enable disabledForIntervals" );
readingsSingleUpdate( $hash, 'state', 'Unknown', 1 );
} }
elsif ( $cmd eq 'del' ) { elsif ( $cmd eq 'del' ) {
readingsSingleUpdate ( $hash, 'state', 'active', 1 ); readingsSingleUpdate( $hash, 'state', 'active', 1 );
Log3($name, 3, "NUKIDevice ($name) - delete disabledForIntervals"); Log3( $name, 3,
"NUKIDevice ($name) - delete disabledForIntervals" );
} }
} }
elsif ( $attrName eq 'model' ) { elsif ( $attrName eq 'model' ) {
if ( $cmd eq 'set' ) { if ( $cmd eq 'set' ) {
Log3($name, 3, "NUKIDevice ($name) - change model"); Log3( $name, 3, "NUKIDevice ($name) - change model" );
$hash->{DEVICETYPE} = $deviceTypeIds{$attrVal}; $hash->{DEVICETYPE} = $deviceTypeIds{$attrVal};
} }
} }
@ -264,57 +261,62 @@ sub NUKIDevice_Attr(@) {
} }
sub NUKIDevice_Set($$@) { sub NUKIDevice_Set($$@) {
my ($hash, $name, @aa) = @_; my ( $hash, $name, @aa ) = @_;
my ($cmd, @args) = @aa; my ( $cmd, @args ) = @aa;
my $lockAction; my $lockAction;
if ( lc($cmd) eq 'statusrequest' ) { if ( lc($cmd) eq 'statusrequest' ) {
return('usage: statusRequest') if ( @args != 0 ); return ('usage: statusRequest') if ( @args != 0 );
NUKIDevice_GetUpdate($hash); NUKIDevice_GetUpdate($hash);
return undef; return undef;
} elsif ( $cmd eq 'unpair' ) { }
return('usage: unpair') if ( @args != 0 ); elsif ( $cmd eq 'unpair' ) {
return ('usage: unpair') if ( @args != 0 );
if ( !IsDisabled($name) ) { if ( !IsDisabled($name) ) {
$hash->{IODev}->{helper}->{iowrite} = 1 $hash->{IODev}->{helper}->{iowrite} = 1
if ( $hash->{IODev}->{helper}->{iowrite} == 0 ); if ( $hash->{IODev}->{helper}->{iowrite} == 0 );
IOWrite($hash,$cmd,undef,$hash->{NUKIID},$hash->{DEVICETYPE}); IOWrite( $hash, $cmd, undef, $hash->{NUKIID}, $hash->{DEVICETYPE} );
} }
return undef; return undef;
} elsif ( $cmd eq 'lock' }
or lc($cmd) eq 'deactivaterto' elsif ($cmd eq 'lock'
or $cmd eq 'unlock' or lc($cmd) eq 'deactivaterto'
or lc($cmd) eq 'activaterto' or $cmd eq 'unlock'
or $cmd eq 'unlatch' or lc($cmd) eq 'activaterto'
or lc($cmd) eq 'electricstrikeactuation' or $cmd eq 'unlatch'
or lc($cmd) eq 'lockngo' or lc($cmd) eq 'electricstrikeactuation'
or lc($cmd) eq 'activatecontinuousmode' or lc($cmd) eq 'lockngo'
or lc($cmd) eq 'lockngowithunlatch' or lc($cmd) eq 'activatecontinuousmode'
or lc($cmd) eq 'deactivatecontinuousmode' or lc($cmd) eq 'lockngowithunlatch'
) or lc($cmd) eq 'deactivatecontinuousmode' )
{ {
return('usage: ' . $cmd) return ( 'usage: ' . $cmd )
if ( @args != 0 ); if ( @args != 0 );
$lockAction = $cmd; $lockAction = $cmd;
} else { }
else {
my $list = ''; my $list = '';
$list= 'statusRequest:noArg unlock:noArg lock:noArg unlatch:noArg locknGo:noArg locknGoWithUnlatch:noArg unpair:noArg' $list =
'statusRequest:noArg unlock:noArg lock:noArg unlatch:noArg locknGo:noArg locknGoWithUnlatch:noArg unpair:noArg'
if ( $hash->{DEVICETYPE} == 0 ); if ( $hash->{DEVICETYPE} == 0 );
$list= 'statusRequest:noArg activateRto:noArg deactivateRto:noArg electricStrikeActuation:noArg activateContinuousMode:noArg deactivateContinuousMode:noArg unpair:noArg' $list =
'statusRequest:noArg activateRto:noArg deactivateRto:noArg electricStrikeActuation:noArg activateContinuousMode:noArg deactivateContinuousMode:noArg unpair:noArg'
if ( $hash->{DEVICETYPE} == 2 ); if ( $hash->{DEVICETYPE} == 2 );
return('Unknown argument ' . $cmd . ', choose one of ' . $list); return ( 'Unknown argument ' . $cmd . ', choose one of ' . $list );
} }
$hash->{helper}{lockAction} = $lockAction; $hash->{helper}{lockAction} = $lockAction;
$hash->{IODev}->{helper}->{iowrite} = 1 $hash->{IODev}->{helper}->{iowrite} = 1
if ( $hash->{IODev}->{helper}->{iowrite} == 0 ); if ( $hash->{IODev}->{helper}->{iowrite} == 0 );
IOWrite($hash,"lockAction",$lockAction,$hash->{NUKIID},$hash->{DEVICETYPE}); IOWrite( $hash, "lockAction", $lockAction, $hash->{NUKIID},
$hash->{DEVICETYPE} );
return undef; return undef;
} }
@ -326,40 +328,40 @@ sub NUKIDevice_GetUpdate($) {
RemoveInternalTimer($hash); RemoveInternalTimer($hash);
IOWrite($hash, 'lockState', undef, $hash->{NUKIID}, $hash->{DEVICETYPE} ) IOWrite( $hash, 'lockState', undef, $hash->{NUKIID}, $hash->{DEVICETYPE} )
if ( !IsDisabled($name) ); if ( !IsDisabled($name) );
Log3($name, 5, "NUKIDevice ($name) - NUKIDevice_GetUpdate Call IOWrite") Log3( $name, 5, "NUKIDevice ($name) - NUKIDevice_GetUpdate Call IOWrite" )
if ( !IsDisabled($name) ); if ( !IsDisabled($name) );
return undef; return undef;
} }
sub NUKIDevice_Parse($$) { sub NUKIDevice_Parse($$) {
my($hash,$json) = @_; my ( $hash, $json ) = @_;
my $name = $hash->{NAME}; my $name = $hash->{NAME};
Log3($name, 5, "NUKIDevice ($name) - Parse with result: $json"); Log3( $name, 5, "NUKIDevice ($name) - Parse with result: $json" );
######################################### #########################################
####### Errorhandling ############# ####### Errorhandling #############
if ( $json !~ m/^[\[{].*[}\]]$/ ) { if ( $json !~ m/^[\[{].*[}\]]$/ ) {
Log3($name, 3, "NUKIDevice ($name) - invalid json detected: $json"); Log3( $name, 3, "NUKIDevice ($name) - invalid json detected: $json" );
return "NUKIDevice ($name) - invalid json detected: $json"; return "NUKIDevice ($name) - invalid json detected: $json";
} }
######################################### #########################################
#### verarbeiten des JSON Strings ####### #### verarbeiten des JSON Strings #######
my $decode_json = eval{ decode_json($json) }; my $decode_json = eval { decode_json($json) };
if ($@){ if ($@) {
Log3($name, 3, "NUKIDevice ($name) - JSON error while request: $@"); Log3( $name, 3, "NUKIDevice ($name) - JSON error while request: $@" );
return; return;
} }
if ( ref($decode_json) ne 'HASH' ) { if ( ref($decode_json) ne 'HASH' ) {
Log3($name, 2, "NUKIDevice ($name) - got wrong status message for $name: $decode_json"); Log3( $name, 2,
"NUKIDevice ($name) - got wrong status message for $name: $decode_json"
);
return undef; return undef;
} }
@ -369,53 +371,61 @@ sub NUKIDevice_Parse($$) {
my $name = $hash->{NAME}; my $name = $hash->{NAME};
NUKIDevice_WriteReadings( $hash, $decode_json ); NUKIDevice_WriteReadings( $hash, $decode_json );
Log3($name, 4, Log3( $name, 4,
"NUKIDevice ($name) - find logical device: $hash->{NAME}"); "NUKIDevice ($name) - find logical device: $hash->{NAME}" );
################## ##################
## Zwischenlösung so für die Umstellung, kann später gelöscht werden ## Zwischenlösung so für die Umstellung, kann später gelöscht werden
if ( AttrVal($name,'model','') eq '' ) { if ( AttrVal( $name, 'model', '' ) eq '' ) {
CommandDefMod(undef,$name . ' NUKIDevice ' . $hash->{NUKIID} . ' ' . $decode_json->{deviceType}); CommandDefMod( undef,
CommandAttr(undef,$name . ' model ' . $deviceTypes{$decode_json->{deviceType}}); $name
Log3($name, 2, "NUKIDevice ($name) - redefined Defmod"); . ' NUKIDevice '
. $hash->{NUKIID} . ' '
. $decode_json->{deviceType} );
CommandAttr( undef,
$name
. ' model '
. $deviceTypes{ $decode_json->{deviceType} } );
Log3( $name, 2, "NUKIDevice ($name) - redefined Defmod" );
} }
return $hash->{NAME}; return $hash->{NAME};
} }
else { else {
Log3($name, 3, Log3( $name, 3,
"NUKIDevice ($name) - autocreate new device " "NUKIDevice ($name) - autocreate new device "
. makeDeviceName( $decode_json->{name} ) . makeDeviceName( $decode_json->{name} )
. " with nukiId $decode_json->{nukiId}, model $decode_json->{deviceType}"); . " with nukiId $decode_json->{nukiId}, model $decode_json->{deviceType}"
);
return return
'UNDEFINED ' 'UNDEFINED '
. makeDeviceName( $decode_json->{name} ) . makeDeviceName( $decode_json->{name} )
. " NUKIDevice $decode_json->{nukiId} $decode_json->{deviceType}"; . " NUKIDevice $decode_json->{nukiId} $decode_json->{deviceType}";
} }
Log3($name, 5, "NUKIDevice ($name) - parse status message for $name"); Log3( $name, 5, "NUKIDevice ($name) - parse status message for $name" );
NUKIDevice_WriteReadings($hash,$decode_json); NUKIDevice_WriteReadings( $hash, $decode_json );
} }
sub NUKIDevice_WriteReadings($$) { sub NUKIDevice_WriteReadings($$) {
my ($hash,$decode_json) = @_; my ( $hash, $decode_json ) = @_;
my $name = $hash->{NAME};
my $name = $hash->{NAME};
############################ ############################
#### Status des Smartlock #### Status des Smartlock
my $battery; my $battery;
if ( defined($decode_json->{batteryCritical}) ) { if ( defined( $decode_json->{batteryCritical} ) ) {
if ( $decode_json->{batteryCritical} eq 'false' if ( $decode_json->{batteryCritical} eq 'false'
or $decode_json->{batteryCritical} == 0 ) or $decode_json->{batteryCritical} == 0 )
{ {
$battery = 'ok'; $battery = 'ok';
} elsif ( $decode_json->{batteryCritical} eq 'true' }
or $decode_json->{batteryCritical} == 1 ) elsif ($decode_json->{batteryCritical} eq 'true'
or $decode_json->{batteryCritical} == 1 )
{ {
$battery = "low"; $battery = "low";
} }
@ -423,49 +433,58 @@ sub NUKIDevice_WriteReadings($$) {
readingsBeginUpdate($hash); readingsBeginUpdate($hash);
if ( defined($hash->{helper}{lockAction}) ) { if ( defined( $hash->{helper}{lockAction} ) ) {
my ($state,$lockState); my ( $state, $lockState );
if ( defined($decode_json->{success}) if (
and ($decode_json->{success} eq 'true' defined( $decode_json->{success} )
or $decode_json->{success} == 1) and ( $decode_json->{success} eq 'true'
or $decode_json->{success} == 1 )
) )
{ {
$state = $hash->{helper}{lockAction}; $state = $hash->{helper}{lockAction};
$lockState = $hash->{helper}{lockAction}; $lockState = $hash->{helper}{lockAction};
IOWrite($hash, "lockState", undef, $hash->{NUKIID} ) IOWrite( $hash, "lockState", undef, $hash->{NUKIID} )
if ( ReadingsVal($hash->{IODev}->{NAME},'bridgeType','Software') eq 'Software' ); if (
ReadingsVal( $hash->{IODev}->{NAME}, 'bridgeType', 'Software' )
eq 'Software' );
} elsif ( defined($decode_json->{success}) }
and ($decode_json->{success} eq 'false' elsif (
or $decode_json->{success} == 0) defined( $decode_json->{success} )
) and ( $decode_json->{success} eq 'false'
or $decode_json->{success} == 0 )
)
{ {
$state = $deviceTypes{$hash->{DEVICETYPE}} . ' response error'; $state = $deviceTypes{ $hash->{DEVICETYPE} } . ' response error';
IOWrite($hash, 'lockState', undef, $hash->{NUKIID}, $hash->{DEVICETYPE} ); IOWrite( $hash, 'lockState', undef, $hash->{NUKIID},
$hash->{DEVICETYPE} );
} }
readingsBulkUpdate( $hash, 'state', $state ); readingsBulkUpdate( $hash, 'state', $state );
readingsBulkUpdate( $hash, 'lockState', $lockState ); readingsBulkUpdate( $hash, 'lockState', $lockState );
readingsBulkUpdate( $hash, 'success', $decode_json->{success} ); readingsBulkUpdate( $hash, 'success', $decode_json->{success} );
delete $hash->{helper}{lockAction}; delete $hash->{helper}{lockAction};
Log3($name, 5, "NUKIDevice ($name) - lockAction readings set for $name"); Log3( $name, 5,
"NUKIDevice ($name) - lockAction readings set for $name" );
} else { }
readingsBulkUpdate( $hash, 'batteryCritical', $decode_json->{batteryCritical} ); else {
readingsBulkUpdate( $hash, 'lockState', $decode_json->{stateName} ); readingsBulkUpdate( $hash, 'batteryCritical',
readingsBulkUpdate( $hash, 'state', $decode_json->{stateName} ); $decode_json->{batteryCritical} );
readingsBulkUpdate( $hash, 'lockState', $decode_json->{stateName} );
readingsBulkUpdate( $hash, 'state', $decode_json->{stateName} );
readingsBulkUpdate( $hash, 'batteryState', $battery ); readingsBulkUpdate( $hash, 'batteryState', $battery );
readingsBulkUpdate( $hash, 'success', $decode_json->{success} ); readingsBulkUpdate( $hash, 'success', $decode_json->{success} );
readingsBulkUpdate( $hash, 'name', $decode_json->{name} ); readingsBulkUpdate( $hash, 'name', $decode_json->{name} );
readingsBulkUpdate( $hash, 'rssi', $decode_json->{rssi} ); readingsBulkUpdate( $hash, 'rssi', $decode_json->{rssi} );
readingsBulkUpdate( $hash, 'paired', $decode_json->{paired} ); readingsBulkUpdate( $hash, 'paired', $decode_json->{paired} );
Log3($name, 5, "NUKIDevice ($name) - readings set for $name"); Log3( $name, 5, "NUKIDevice ($name) - readings set for $name" );
} }
readingsEndUpdate( $hash, 1 ); readingsEndUpdate( $hash, 1 );
@ -473,17 +492,8 @@ sub NUKIDevice_WriteReadings($$) {
return undef; return undef;
} }
1; 1;
=pod =pod
=item device =item device
=item summary Modul to control the Nuki Smartlock's =item summary Modul to control the Nuki Smartlock's