some perlcritic changes
This commit is contained in:
parent
78905b02d4
commit
602ee3f512
@ -498,7 +498,8 @@ sub TadoAPI_RegisterNewDevice {
|
||||
"TadoAPI $name" . ": "
|
||||
. "New Device - Please go to "
|
||||
. $decoded_data->{'verification_uri_complete'};
|
||||
$hash->{STATE} = "reachable";
|
||||
|
||||
$hash->{STATE} = "API-reachable";
|
||||
|
||||
return ($decoded_data->{'verification_uri_complete'}, $decoded_data->{'device_code'});
|
||||
}
|
||||
@ -565,7 +566,7 @@ sub TadoAPI_NewTokenRequest {
|
||||
"TadoAPI $name" . ": "
|
||||
. "Retrived new authentication token successfully. Valid until "
|
||||
. localtime( $hash->{TOKEN_LIFETIME} );
|
||||
$hash->{STATE} = "reachable";
|
||||
$hash->{STATE} = "API-reachable";
|
||||
# refresh FHEM device
|
||||
TadoAPI_UpdateFn($hash);
|
||||
return $decoded_data;
|
||||
@ -938,7 +939,7 @@ sub TadoAPI_callback {
|
||||
|
||||
if ( $param->{code} == 405 || $param->{code} == 400 ) {
|
||||
$apiStatus = 1;
|
||||
$hash->{STATE} = "reachable";
|
||||
$hash->{STATE} = "API-reachable";
|
||||
Log3 $name, 5,
|
||||
"TadoAPI $name" . ": "
|
||||
. "API is reachable. Callback Status: "
|
||||
|
Loading…
x
Reference in New Issue
Block a user