Merge pull request 'add support for new SmartLock Generation 3' (#2) from patch-supportNewSmartLock3 into devel

Reviewed-on: #2
This commit is contained in:
Marko Oldenburg 2021-11-26 10:18:29 +01:00
commit 609c45244c
2 changed files with 30 additions and 16 deletions

View File

@ -616,7 +616,8 @@ sub CreateUri($$) {
{
$uri .= '&action=' . $lockActionsSmartLock{$param}
if ( $endpoint ne 'callback/add'
and $deviceType == 0 );
and ($deviceType == 0
|| $deviceType == 4) );
$uri .= '&action=' . $lockActionsOpener{$param}
if ( $endpoint ne 'callback/add'
@ -1431,7 +1432,7 @@ sub ParseJSON($$) {
],
"release_status": "stable",
"license": "GPL_2",
"version": "v1.9.30",
"version": "v1.9.50",
"x_apiversion": "1.9",
"author": [
"Marko Oldenburg <leongaultier@gmail.com>"

View File

@ -148,7 +148,8 @@ GP_Export(
my %deviceTypes = (
0 => 'smartlock',
2 => 'opener'
2 => 'opener',
4 => 'smartlockNG'
);
my %modes = (
@ -165,47 +166,58 @@ my %modes = (
my %lockStates = (
0 => {
0 => 'uncalibrated',
2 => 'untrained'
2 => 'untrained',
4 => 'uncalibrated'
},
1 => {
0 => 'locked',
2 => 'online'
2 => 'online',
4 => 'locked'
},
2 => {
0 => 'unlocking',
2 => '-'
2 => '-',
4 => 'unlocking'
},
3 => {
0 => 'unlocked',
2 => 'rto active'
2 => 'rto active',
4 => 'unlocked'
},
4 => {
0 => 'locking',
2 => '-'
2 => '-',
4 => 'locking'
},
5 => {
0 => 'unlatched',
2 => 'open'
2 => 'open',
4 => 'unlatched'
},
6 => {
0 => 'unlocked (lock n go)',
2 => '-'
2 => '-',
4 => 'unlocked (lock n go)'
},
7 => {
0 => 'unlatching',
2 => 'opening'
2 => 'opening',
4 => 'unlatching'
},
253 => {
0 => '-',
2 => 'boot run'
2 => 'boot run',
4 => '-'
},
254 => {
0 => 'motor blocked',
2 => '-'
2 => '-',
4 => 'motor blocked'
},
255 => {
0 => 'undefined',
2 => 'undefined'
2 => 'undefined',
4 => 'undefined'
}
);
@ -411,7 +423,8 @@ sub Set($$@) {
my $list = '';
$list =
'statusRequest:noArg unlock:noArg lock:noArg unlatch:noArg locknGo:noArg locknGoWithUnlatch:noArg unpair:noArg'
if ( $hash->{DEVICETYPE} == 0 );
if ( $hash->{DEVICETYPE} == 0
|| $hash->{DEVICETYPE} == 4 );
$list =
'statusRequest:noArg activateRto:noArg deactivateRto:noArg electricStrikeActuation:noArg activateContinuousMode:noArg deactivateContinuousMode:noArg unpair:noArg'
if ( $hash->{DEVICETYPE} == 2 );
@ -756,7 +769,7 @@ sub WriteReadings($$) {
],
"release_status": "stable",
"license": "GPL_2",
"version": "v1.9.17",
"version": "v1.9.50",
"author": [
"Marko Oldenburg <leongaultier@gmail.com>"
],