add configAuth option enable/disable publication of the local IP and
port via discovery URL
This commit is contained in:
parent
efbea2f987
commit
4489744f90
@ -1,4 +1,4 @@
|
||||
UPD 2021-11-27_22:52:03 9217 FHEM/73_NUKIBridge.pm
|
||||
UPD 2021-11-27_21:36:27 7569 FHEM/74_NUKIDevice.pm
|
||||
UPD 2021-11-27_22:52:20 40367 lib/FHEM/Devices/Nuki/Bridge.pm
|
||||
UPD 2021-11-27_23:33:54 40749 lib/FHEM/Devices/Nuki/Bridge.pm
|
||||
UPD 2021-11-27_22:56:00 15826 lib/FHEM/Devices/Nuki/Device.pm
|
||||
|
@ -411,6 +411,8 @@ sub Set {
|
||||
my $arg = shift // '';
|
||||
|
||||
my $endpoint;
|
||||
my $param;
|
||||
|
||||
|
||||
if ( lc($cmd) eq 'getdevicelist' ) {
|
||||
return 'usage: getDeviceList' if ($arg);
|
||||
@ -441,21 +443,25 @@ sub Set {
|
||||
return 'usage: callbackRemove' if ( split( m{\s+}xms, $arg ) > 1 );
|
||||
|
||||
my $id = ( defined($arg) ? $arg : 0 );
|
||||
$endpoint = 'callback/remove';
|
||||
$param = '{"param":"' . $id . '"}';
|
||||
}
|
||||
elsif ( lc($cmd) eq 'configauth' ) {
|
||||
return 'usage: configAuth' if ( split( m{\s+}xms, $arg ) > 1 );
|
||||
|
||||
Write( $hash, 'callback/remove', '{"param":"' . $id . '"}' )
|
||||
if ( !::IsDisabled($name) );
|
||||
|
||||
return;
|
||||
my $configAuth = 'enable=' . ($arg eq 'enable' ? 1 : 0);
|
||||
$endpoint = 'configAuth';
|
||||
$param = '{"param":"' . $configAuth . '"}';
|
||||
}
|
||||
else {
|
||||
my $list = '';
|
||||
$list .= 'info:noArg getDeviceList:noArg ';
|
||||
$list .= 'clearLog:noArg fwUpdate:noArg reboot:noArg factoryReset:noArg'
|
||||
$list .= 'clearLog:noArg fwUpdate:noArg reboot:noArg factoryReset:noArg configAuth:enable,disable'
|
||||
if ( ::ReadingsVal( $name, 'bridgeType', 'Software' ) eq 'Hardware' );
|
||||
return ( 'Unknown argument ' . $cmd . ', choose one of ' . $list );
|
||||
}
|
||||
|
||||
Write( $hash, $endpoint, undef )
|
||||
Write( $hash, $endpoint, $param )
|
||||
if ( !::IsDisabled($name) );
|
||||
|
||||
return;
|
||||
@ -597,6 +603,10 @@ sub CreateUri {
|
||||
&& $deviceType == 2 );
|
||||
}
|
||||
|
||||
$uri .= '&' . $param
|
||||
if ( defined($param)
|
||||
&& $endpoint eq 'configAuth' );
|
||||
|
||||
$uri .= '&id=' . $param
|
||||
if ( defined($param)
|
||||
&& $endpoint eq 'callback/remove' );
|
||||
|
Loading…
Reference in New Issue
Block a user