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

Logausgaben angepasst, Loglevel geändert. Timer geändert.

Browse Source
This commit is contained in:
Marko Oldenburg 2016-10-08 13:37:39 +02:00
parent 41c01cc6b1
commit 9fb936db0c
2 changed files with 31 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
73_NUKIBridge.pm
View File

@ -31,10 +31,10 @@ package main;
use strict; use strict;
use warnings; use warnings;
use JSON; use JSON;
use Time::HiRes qw(gettimeofday); #use Time::HiRes qw(gettimeofday);
use HttpUtils; use HttpUtils;
my $version = "0.1.42"; my $version = "0.1.50";
@ -58,7 +58,6 @@ sub NUKIBridge_Initialize($) {
# Consumer # Consumer
$hash->{SetFn} = "NUKIBridge_Set"; $hash->{SetFn} = "NUKIBridge_Set";
#$hash->{NotifyFn} = "NUKIBridge_Notify";
$hash->{DefFn} = "NUKIBridge_Define"; $hash->{DefFn} = "NUKIBridge_Define";
$hash->{UndefFn} = "NUKIBridge_Undef"; $hash->{UndefFn} = "NUKIBridge_Undef";
$hash->{AttrFn} = "NUKIBridge_Attr"; $hash->{AttrFn} = "NUKIBridge_Attr";
@ -95,7 +94,7 @@ sub NUKIBridge_Define($$) {
my $host = $a[2]; my $host = $a[2];
my $token = $a[3]; my $token = $a[3];
my $port = 8080; my $port = 8080;
my $interval = 180; my $interval = 60;
$hash->{HOST} = $host; $hash->{HOST} = $host;
$hash->{PORT} = $port; $hash->{PORT} = $port;
@ -114,7 +113,7 @@ sub NUKIBridge_Define($$) {
if( $init_done ) { if( $init_done ) {
NUKIBridge_Get($hash) if( ($hash->{HOST}) and ($hash->{TOKEN}) ); NUKIBridge_Get($hash) if( ($hash->{HOST}) and ($hash->{TOKEN}) );
NUKIBridge_GetCheckBridgeAlive($hash) if( ($hash->{HOST}) and ($hash->{TOKEN}) ); #NUKIBridge_GetCheckBridgeAlive($hash) if( ($hash->{HOST}) and ($hash->{TOKEN}) );
} else { } else {
InternalTimer( gettimeofday()+15, "NUKIBridge_Get", $hash, 0 ) if( ($hash->{HOST}) and ($hash->{TOKEN}) ); InternalTimer( gettimeofday()+15, "NUKIBridge_Get", $hash, 0 ) if( ($hash->{HOST}) and ($hash->{TOKEN}) );
} }
@ -168,9 +167,9 @@ sub NUKIBridge_Attr(@) {
if( $attrName eq "interval" ) { if( $attrName eq "interval" ) {
if( $cmd eq "set" ) { if( $cmd eq "set" ) {
if( $attrVal < 10 ) { if( $attrVal < 30 ) {
Log3 $name, 3, "NUKIBridge ($name) - interval too small, please use something > 10 (sec), default is 60 (sec)"; Log3 $name, 3, "NUKIBridge ($name) - interval too small, please use something > 30 (sec), default is 60 (sec)";
return "interval too small, please use something > 10 (sec), default is 60 (sec)"; return "interval too small, please use something > 30 (sec), default is 60 (sec)";
} else { } else {
$hash->{INTERVAL} = $attrVal; $hash->{INTERVAL} = $attrVal;
Log3 $name, 3, "NUKIBridge ($name) - set interval to $attrVal"; Log3 $name, 3, "NUKIBridge ($name) - set interval to $attrVal";
@ -229,7 +228,7 @@ sub NUKIBridge_Get($) {
NUKIBridge_Call($hash,$hash,"list",undef,undef) if( !IsDisabled($name) ); NUKIBridge_Call($hash,$hash,"list",undef,undef) if( !IsDisabled($name) );
NUKIBridge_GetCheckBridgeAlive($hash); NUKIBridge_GetCheckBridgeAlive($hash);
Log3 $name, 3, "NUKIBridge ($name) - Call NUKIBridge_Get" if( !IsDisabled($name) ); Log3 $name, 4, "NUKIBridge ($name) - Call NUKIBridge_Get" if( !IsDisabled($name) );
return 1; return 1;
} }
@ -246,7 +245,7 @@ sub NUKIBridge_GetCheckBridgeAlive($) {
NUKIBridge_Call($hash,$hash,"list",undef,undef,1); NUKIBridge_Call($hash,$hash,"list",undef,undef,1);
InternalTimer( gettimeofday()+$hash->{INTERVAL}, "NUKIBridge_GetCheckBridgeAlive", $hash, 1 ); InternalTimer( gettimeofday()+$hash->{INTERVAL}, "NUKIBridge_GetCheckBridgeAlive", $hash, 1 );
Log3 $name, 3, "NUKIBridge ($name) - Call InternalTimer for NUKIBridge_GetCheckBridgeAlive"; Log3 $name, 4, "NUKIBridge ($name) - Call InternalTimer for NUKIBridge_GetCheckBridgeAlive";
} }
return 1; return 1;
@ -286,7 +285,7 @@ sub NUKIBridge_Call($$$$$;$) {
} }
); );
Log3 $name, 3, "NUKIBridge ($name) - Send HTTP POST with URL $uri"; Log3 $name, 4, "NUKIBridge ($name) - Send HTTP POST with URL $uri";
#return undef; # beim Aufruf aus dem logischen Modul kam immer erst ein Fehler, deshalb auskommentiert #return undef; # beim Aufruf aus dem logischen Modul kam immer erst ein Fehler, deshalb auskommentiert
} }
@ -309,7 +308,7 @@ sub NUKIBridge_Dispatch($$$) {
readingsBulkUpdate( $hash, "state", "not connected"); readingsBulkUpdate( $hash, "state", "not connected");
readingsBulkUpdate( $hash, "lastError", $err ); readingsBulkUpdate( $hash, "lastError", $err );
Log3 $name, 3, "NUKIBridge ($name) - Bridge ist offline"; Log3 $name, 4, "NUKIBridge ($name) - Bridge ist offline";
readingsEndUpdate( $hash, 1 ); readingsEndUpdate( $hash, 1 );
return; return;
} }
@ -317,7 +316,7 @@ sub NUKIBridge_Dispatch($$$) {
elsif ( $err ne "" ) { elsif ( $err ne "" ) {
readingsBulkUpdate( $hash, "lastError", $err ); readingsBulkUpdate( $hash, "lastError", $err );
Log3 $name, 3, "NUKIBridge ($name) - error while requesting: $err"; Log3 $name, 4, "NUKIBridge ($name) - error while requesting: $err";
readingsEndUpdate( $hash, 1 ); readingsEndUpdate( $hash, 1 );
return $err; return $err;
} }
@ -326,7 +325,7 @@ sub NUKIBridge_Dispatch($$$) {
if( $json eq "" and exists( $param->{code} ) && $param->{code} ne 200 ) { if( $json eq "" and exists( $param->{code} ) && $param->{code} ne 200 ) {
readingsBulkUpdate( $hash, "lastError", "Internal error, " .$param->{code} ); readingsBulkUpdate( $hash, "lastError", "Internal error, " .$param->{code} );
Log3 $name, 3, "NUKIBridge ($name) - received http code " .$param->{code}." without any data after requesting"; Log3 $name, 4, "NUKIBridge ($name) - received http code " .$param->{code}." without any data after requesting";
readingsEndUpdate( $hash, 1 ); readingsEndUpdate( $hash, 1 );
return "received http code ".$param->{code}." without any data after requesting"; return "received http code ".$param->{code}." without any data after requesting";
@ -343,9 +342,9 @@ sub NUKIBridge_Dispatch($$$) {
NUKIDevice_Parse($param->{chash},$param->{code}) if( $param->{code} eq 400 and $hash != $param->{chash} ); NUKIDevice_Parse($param->{chash},$param->{code}) if( $param->{code} eq 400 and $hash != $param->{chash} );
Log3 $name, 3, "NUKIBridge ($name) - invalid API token" if( $param->{code} eq 401 ); Log3 $name, 4, "NUKIBridge ($name) - invalid API token" if( $param->{code} eq 401 );
Log3 $name, 3, "NUKIBridge ($name) - nukiId is not known" if( $param->{code} eq 404 ); Log3 $name, 4, "NUKIBridge ($name) - nukiId is not known" if( $param->{code} eq 404 );
Log3 $name, 3, "NUKIBridge ($name) - action is undefined" if( $param->{code} eq 400 and $hash == $param->{chash} ); Log3 $name, 4, "NUKIBridge ($name) - action is undefined" if( $param->{code} eq 400 and $hash == $param->{chash} );
######### Zum testen da ich kein Nuki Smartlock habe ############ ######### Zum testen da ich kein Nuki Smartlock habe ############
@ -368,7 +367,7 @@ sub NUKIBridge_Dispatch($$$) {
if( $param->{code} eq 200 and $param->{endpoint} eq "list" and $param->{alive} eq 1 ) { if( $param->{code} eq 200 and $param->{endpoint} eq "list" and $param->{alive} eq 1 ) {
readingsBulkUpdate( $hash, "state", "connected" ); readingsBulkUpdate( $hash, "state", "connected" );
Log3 $name, 3, "NUKIBridge ($name) - Bridge ist online"; Log3 $name, 5, "NUKIBridge ($name) - Bridge ist online";
readingsEndUpdate( $hash, 1 ); readingsEndUpdate( $hash, 1 );
return; return;
@ -437,13 +436,13 @@ sub NUKIBridge_Autocreate($$;$) {
my $code = $name ."-".$nukiId; my $code = $name ."-".$nukiId;
if( defined($modules{NUKIDevice}{defptr}{$code}) ) { if( defined($modules{NUKIDevice}{defptr}{$code}) ) {
Log3 $name, 3, "$name: NukiId '$nukiId' already defined as '$modules{NUKIDevice}{defptr}{$code}->{NAME}'"; Log3 $name, 5, "$name: NukiId '$nukiId' already defined as '$modules{NUKIDevice}{defptr}{$code}->{NAME}'";
next; next;
} }
my $devname = "NUKIDevice" . $nukiId; my $devname = "NUKIDevice" . $nukiId;
my $define= "$devname NUKIDevice $nukiId IODev=$name"; my $define= "$devname NUKIDevice $nukiId IODev=$name";
Log3 $name, 3, "$name: create new device '$devname' for address '$nukiId'"; Log3 $name, 5, "$name: create new device '$devname' for address '$nukiId'";
my $cmdret= CommandDefine(undef,$define); my $cmdret= CommandDefine(undef,$define);
if($cmdret) { if($cmdret) {

23
74_NUKIDevice.pm
View File

@ -31,9 +31,9 @@ package main;
use strict; use strict;
use warnings; use warnings;
use JSON; use JSON;
use Time::HiRes qw(gettimeofday); #use Time::HiRes qw(gettimeofday);
my $version = "0.1.45"; my $version = "0.1.50";
@ -49,7 +49,8 @@ sub NUKIDevice_Initialize($) {
$hash->{AttrList} = "IODev ". $hash->{AttrList} = "IODev ".
"disable:1 ". "disable:1 ".
$readingFnAttributes; "interval ".
$readingFnAttributes;
@ -176,7 +177,7 @@ sub NUKIDevice_Attr(@) {
if( $attrName eq "interval" ) { if( $attrName eq "interval" ) {
if( $cmd eq "set" ) { if( $cmd eq "set" ) {
if( $attrVal < 10 ) { if( $attrVal < 10 ) {
Log3 $name, 3, "NUKIDevice ($name) - interval too small, please use something > 10 (sec), default is 30 (sec)"; Log3 $name, 3, "NUKIDevice ($name) - interval too small, please use something > 10 (sec), default is 20 (sec)";
return "interval too small, please use something > 10 (sec), default is 60 (sec)"; return "interval too small, please use something > 10 (sec), default is 60 (sec)";
} else { } else {
$hash->{INTERVAL} = $attrVal; $hash->{INTERVAL} = $attrVal;
@ -185,7 +186,7 @@ sub NUKIDevice_Attr(@) {
} else { } else {
$hash->{INTERVAL} = 30; $hash->{INTERVAL} = 20;
Log3 $name, 3, "NUKIDevice ($name) - set interval to default"; Log3 $name, 3, "NUKIDevice ($name) - set interval to default";
} }
} }
@ -241,7 +242,7 @@ sub NUKIDevice_GetUpdate($) {
NUKIDevice_ReadFromNUKIBridge($hash, "lockState", undef, $hash->{NUKIID} ); NUKIDevice_ReadFromNUKIBridge($hash, "lockState", undef, $hash->{NUKIID} );
Log3 $name, 3, "NUKIDevice ($name) - NUKIDevice_GetUpdate Call NUKIDevice_ReadFromNUKIBridge"; Log3 $name, 5, "NUKIDevice ($name) - NUKIDevice_GetUpdate Call NUKIDevice_ReadFromNUKIBridge";
return undef; return undef;
} }
@ -253,11 +254,11 @@ sub NUKIDevice_GetUpdateInternalTimer($) {
NUKIDevice_GetUpdate($hash); NUKIDevice_GetUpdate($hash);
Log3 $name, 3, "NUKIDevice ($name) - Call NUKIDevice_GetUpdate"; Log3 $name, 5, "NUKIDevice ($name) - Call NUKIDevice_GetUpdate";
RemoveInternalTimer($hash); RemoveInternalTimer($hash);
InternalTimer(gettimeofday()+$hash->{INTERVAL}, "NUKIDevice_GetUpdateInternalTimer", $hash, 0) if( $hash->{INTERVAL} ); InternalTimer(gettimeofday()+$hash->{INTERVAL}, "NUKIDevice_GetUpdateInternalTimer", $hash, 0) if( $hash->{INTERVAL} );
Log3 $name, 3, "NUKIDevice ($name) - Call InternalTimer"; Log3 $name, 5, "NUKIDevice ($name) - Call InternalTimer";
} }
sub NUKIDevice_ReadFromNUKIBridge($@) { sub NUKIDevice_ReadFromNUKIBridge($@) {
@ -279,7 +280,7 @@ sub NUKIDevice_ReadFromNUKIBridge($@) {
!$iohash->{TYPE} || !$iohash->{TYPE} ||
!$modules{$iohash->{TYPE}} || !$modules{$iohash->{TYPE}} ||
!$modules{$iohash->{TYPE}}{ReadFn}) { !$modules{$iohash->{TYPE}}{ReadFn}) {
Log3 $name, 5, "No I/O device or ReadFn found for $name"; Log3 $name, 3, "No I/O device or ReadFn found for $name";
return; return;
} }
@ -324,7 +325,7 @@ sub NUKIDevice_Parse($$) {
return undef; return undef;
} }
Log3 $name, 3, "parse status message for $name"; Log3 $name, 5, "parse status message for $name";
############################ ############################
@ -365,7 +366,7 @@ sub NUKIDevice_Parse($$) {
readingsBulkUpdate( $hash, "battery", $battery ); readingsBulkUpdate( $hash, "battery", $battery );
readingsBulkUpdate( $hash, "success", $decode_json->{success} ); readingsBulkUpdate( $hash, "success", $decode_json->{success} );
Log3 $name, 3, "readings set for $name"; Log3 $name, 5, "readings set for $name";
} }
readingsEndUpdate( $hash, 1 ); readingsEndUpdate( $hash, 1 );