some perlcritic changes

This commit is contained in:
Philipp Wo 2025-03-19 15:50:22 +01:00
parent 78905b02d4
commit 602ee3f512

View File

@ -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: "