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

Version 2.0 Pre-Release #20

Merged
marko merged 29 commits from devel into main 2021-12-05 11:25:38 +00:00
Conversation 0 Commits 29 Files Changed 12 +56 -58
2 changed files with 56 additions and 58 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files
Showing only changes of commit a612cdf1e4 - Show all commits

31
FHEM/73_NUKIBridge.pm
View File

@ -44,6 +44,37 @@ use FHEM::Meta;
require FHEM::Devices::Nuki::Bridge; require FHEM::Devices::Nuki::Bridge;
sub ::NUKIBridge_Initialize { goto &Initialize }
sub Initialize {
my ($hash) = @_;
# Provider
$hash->{WriteFn} = \&Write;
$hash->{Clients} = ':NUKIDevice:';
$hash->{MatchList} = { '1:NUKIDevice' => '^{.*}$' };
my $webhookFWinstance =
join( ",", ::devspec2array('TYPE=FHEMWEB:FILTER=TEMPORARY!=1') );
# Consumer
$hash->{SetFn} = \&FHEM::Devices::Nuki::Bridge::Set;
$hash->{GetFn} = \&FHEM::Devices::Nuki::Bridge::Get;
$hash->{DefFn} = \&FHEM::Devices::Nuki::Bridge::Define;
$hash->{UndefFn} = \&FHEM::Devices::Nuki::Bridge::Undef;
$hash->{NotifyFn} = \&FHEM::Devices::Nuki::Bridge::Notify;
$hash->{AttrFn} = \&FHEM::Devices::Nuki::Bridge::Attr;
$hash->{AttrList} =
'disable:1 '
. 'webhookFWinstance:'
. $webhookFWinstance . ' '
. 'webhookHttpHostname '
. $::readingFnAttributes;
return FHEM::Meta::InitMod( __FILE__, $hash );
}
1; 1;
=pod =pod

83
lib/FHEM/Devices/Nuki/Bridge.pm
View File

@ -35,7 +35,7 @@
# #
################################ ################################
FHEM::Devices::Nuki::Bridge; package FHEM::Devices::Nuki::Bridge;
use strict; use strict;
use warnings; use warnings;
@ -117,8 +117,6 @@ if ($@) {
######## Begin Bridge ######## Begin Bridge
sub ::NUKIBridge_Initialize { goto &Initialize }
my %bridgeType = ( my %bridgeType = (
'1' => 'Hardware', '1' => 'Hardware',
'2' => 'Software' '2' => 'Software'
@ -140,35 +138,7 @@ my %lockActionsOpener = (
'deactivateContinuousMode' => 5 'deactivateContinuousMode' => 5
); );
sub Initialize($) { sub Define {
my ($hash) = @_;
# Provider
$hash->{WriteFn} = \&Write;
$hash->{Clients} = ':NUKIDevice:';
$hash->{MatchList} = { '1:NUKIDevice' => '^{.*}$' };
my $webhookFWinstance =
join( ",", ::devspec2array('TYPE=FHEMWEB:FILTER=TEMPORARY!=1') );
# Consumer
$hash->{SetFn} = \&Set;
$hash->{GetFn} = \&Get;
$hash->{DefFn} = \&Define;
$hash->{UndefFn} = \&Undef;
$hash->{NotifyFn} = \&Notify;
$hash->{AttrFn} = \&Attr;
$hash->{AttrList} =
'disable:1 '
. 'webhookFWinstance:'
. $webhookFWinstance . ' '
. 'webhookHttpHostname '
. $::readingFnAttributes;
return FHEM::Meta::InitMod( __FILE__, $hash );
}
sub Define($$) {
my ( $hash, $def ) = @_; my ( $hash, $def ) = @_;
my @a = split( "[ \t][ \t]*", $def ); my @a = split( "[ \t][ \t]*", $def );
@ -216,7 +186,7 @@ sub Define($$) {
return; return;
} }
sub Undef($$) { sub Undef {
my ( $hash, $arg ) = @_; my ( $hash, $arg ) = @_;
my $host = $hash->{HOST}; my $host = $hash->{HOST};
@ -232,7 +202,7 @@ sub Undef($$) {
return; return;
} }
sub Attr(@) { sub Attr {
my ( $cmd, $name, $attrName, $attrVal ) = @_; my ( $cmd, $name, $attrName, $attrVal ) = @_;
my $hash = $::defs{$name}; my $hash = $::defs{$name};
@ -342,7 +312,7 @@ sub Attr(@) {
return; return;
} }
sub Notify($$) { sub Notify {
my ( $hash, $dev ) = @_; my ( $hash, $dev ) = @_;
my $name = $hash->{NAME}; my $name = $hash->{NAME};
@ -372,7 +342,7 @@ sub Notify($$) {
return; return;
} }
sub addExtension($$$) { sub addExtension {
my ( $name, $func, $link ) = @_; my ( $name, $func, $link ) = @_;
my $url = '/' . $link; my $url = '/' . $link;
@ -388,7 +358,7 @@ sub addExtension($$$) {
return 1; return 1;
} }
sub removeExtension($) { sub removeExtension {
my ($link) = @_; my ($link) = @_;
my $url = '/' . $link; my $url = '/' . $link;
@ -402,7 +372,7 @@ sub removeExtension($) {
return; return;
} }
sub Set($@) { sub Set {
my ( $hash, $name, $cmd, @args ) = @_; my ( $hash, $name, $cmd, @args ) = @_;
my ( $arg, @params ) = @args; my ( $arg, @params ) = @args;
@ -463,7 +433,7 @@ sub Set($@) {
return; return;
} }
sub Get($@) { sub Get {
my ( $hash, $name, $cmd, @args ) = @_; my ( $hash, $name, $cmd, @args ) = @_;
my ( $arg, @params ) = @args; my ( $arg, @params ) = @args;
@ -491,7 +461,7 @@ sub Get($@) {
return Write( $hash, $endpoint, undef ) return Write( $hash, $endpoint, undef )
} }
sub GetCheckBridgeAlive($) { sub GetCheckBridgeAlive {
my ($hash) = @_; my ($hash) = @_;
my $name = $hash->{NAME}; my $name = $hash->{NAME};
@ -510,11 +480,11 @@ sub GetCheckBridgeAlive($) {
::Log3( $name, 4, ::Log3( $name, 4,
"NUKIBridge ($name) - Call InternalTimer for GetCheckBridgeAlive" ); "NUKIBridge ($name) - Call InternalTimer for GetCheckBridgeAlive" );
return ::InternalTimer( gettimeofday() + 30, return ::InternalTimer( ::gettimeofday() + 30,
\&FHEM::Devices::Nuki::Bridge::GetCheckBridgeAlive, $hash ); \&FHEM::Devices::Nuki::Bridge::GetCheckBridgeAlive, $hash );
} }
sub FirstRun($) { sub FirstRun {
my ($hash) = @_; my ($hash) = @_;
my $name = $hash->{NAME}; my $name = $hash->{NAME};
@ -523,11 +493,11 @@ sub FirstRun($) {
Write( $hash, 'list', undef ) Write( $hash, 'list', undef )
if ( !::IsDisabled($name) ); if ( !::IsDisabled($name) );
return ::InternalTimer( gettimeofday() + 5, return ::InternalTimer( ::gettimeofday() + 5,
\&FHEM::Devices::Nuki::Bridge::GetCheckBridgeAlive, $hash ); \&FHEM::Devices::Nuki::Bridge::GetCheckBridgeAlive, $hash );
} }
sub Write($@) { sub Write {
my ( $hash, $endpoint, $json ) = @_; my ( $hash, $endpoint, $json ) = @_;
my $decode_json = eval { decode_json($json) } my $decode_json = eval { decode_json($json) }
@ -556,7 +526,7 @@ sub Write($@) {
return BridgeCall($hash); return BridgeCall($hash);
} }
sub CreateUri($$) { sub CreateUri {
my ( $hash, $obj ) = @_; my ( $hash, $obj ) = @_;
my $name = $hash->{NAME}; my $name = $hash->{NAME};
@ -602,7 +572,7 @@ sub CreateUri($$) {
return $uri; return $uri;
} }
sub BridgeCall($) { sub BridgeCall {
my $hash = shift; my $hash = shift;
my $name = $hash->{NAME}; my $name = $hash->{NAME};
@ -650,7 +620,7 @@ sub BridgeCall($) {
return; return;
} }
sub Distribution($$$) { sub Distribution {
my ( $param, $err, $json ) = @_; my ( $param, $err, $json ) = @_;
my $hash = $param->{hash}; my $hash = $param->{hash};
@ -720,7 +690,7 @@ sub Distribution($$$) {
$hash->{helper}->{lastDeviceAction} $hash->{helper}->{lastDeviceAction}
); );
::InternalTimer( gettimeofday() + 1, ::InternalTimer( ::gettimeofday() + 1,
\&FHEM::Devices::Nuki::Bridge::BridgeCall, $hash ); \&FHEM::Devices::Nuki::Bridge::BridgeCall, $hash );
} }
@ -806,14 +776,14 @@ sub Distribution($$$) {
::Dispatch( $hash, $json, undef ); ::Dispatch( $hash, $json, undef );
} }
::InternalTimer( gettimeofday() + 3, \&FHEM::Devices::Nuki::Bridge::BridgeCall, $hash ) ::InternalTimer( ::gettimeofday() + 3, \&FHEM::Devices::Nuki::Bridge::BridgeCall, $hash )
if ( defined( $hash->{helper}->{actionQueue} ) if ( defined( $hash->{helper}->{actionQueue} )
&& scalar( @{ $hash->{helper}->{actionQueue} } ) > 0 ); && scalar( @{ $hash->{helper}->{actionQueue} } ) > 0 );
return; return;
} }
sub ResponseProcessing($$$) { sub ResponseProcessing {
my ( $hash, $json, $endpoint ) = @_; my ( $hash, $json, $endpoint ) = @_;
my $name = $hash->{NAME}; my $name = $hash->{NAME};
@ -962,7 +932,7 @@ matching NukiId at device $name"
::return ( 'text/plain; charset=utf-8', 'Call failure: ' . $request ); ::return ( 'text/plain; charset=utf-8', 'Call failure: ' . $request );
} }
sub WriteReadings($$) { sub WriteReadings {
my ( $hash, $decode_json ) = @_; my ( $hash, $decode_json ) = @_;
my $name = $hash->{NAME}; my $name = $hash->{NAME};
@ -993,7 +963,7 @@ sub WriteReadings($$) {
return; return;
} }
sub getLogfile($$) { sub getLogfile {
my ( $param, $json ) = @_; my ( $param, $json ) = @_;
my $hash = $param->{hash}; my $hash = $param->{hash};
@ -1063,7 +1033,7 @@ sub getLogfile($$) {
return; return;
} }
sub getCallbackList($$) { sub getCallbackList {
my ( $param, $json ) = @_; my ( $param, $json ) = @_;
my $hash = $param->{hash}; my $hash = $param->{hash};
@ -1134,7 +1104,7 @@ sub getCallbackList($$) {
return; return;
} }
sub getCallbackList2($$) { sub getCallbackList2 {
my ( $param, $json ) = @_; my ( $param, $json ) = @_;
my $hash = $param->{hash}; my $hash = $param->{hash};
@ -1206,7 +1176,7 @@ sub getCallbackList2($$) {
return; return;
} }
sub ParseJSON($$) { sub ParseJSON {
my ( $hash, $buffer ) = @_; my ( $hash, $buffer ) = @_;
my $name = $hash->{NAME}; my $name = $hash->{NAME};
@ -1260,7 +1230,4 @@ sub ParseJSON($$) {
1; 1;