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