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

add debug information lines

Browse Source 
[Ticket: no]
This commit is contained in:
Marko Oldenburg 2022-02-17 07:53:36 +01:00
parent c2b4bd2ffc
commit b0e048ef8a
2 changed files with 13 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
controls_TeslaPowerwall2AC.txt
View File

@ -1,2 +1,2 @@
UPD 2022-01-29_04:24:06 6874 FHEM/46_TeslaPowerwall2AC.pm UPD 2022-01-29_04:24:06 6874 FHEM/46_TeslaPowerwall2AC.pm
UPD 2022-01-29_05:20:11 27899 lib/FHEM/Devices/Tesla/Powerwall.pm UPD 2022-02-17_07:53:27 28293 lib/FHEM/Devices/Tesla/Powerwall.pm

16
lib/FHEM/Devices/Tesla/Powerwall.pm
View File

@ -396,7 +396,7 @@ sub Timer_GetData {
::RemoveInternalTimer($hash); ::RemoveInternalTimer($hash);
if ( defined( $hash->{actionQueue} ) if ( exists( $hash->{actionQueue} )
&& scalar( @{ $hash->{actionQueue} } ) == 0 ) && scalar( @{ $hash->{actionQueue} } ) == 0 )
{ {
if ( !::IsDisabled($name) ) { if ( !::IsDisabled($name) ) {
@ -409,13 +409,13 @@ sub Timer_GetData {
!exists( $hash->{helper}->{passObj} ) !exists( $hash->{helper}->{passObj} )
|| ( || (
exists( $hash->{helper}->{passObj} ) exists( $hash->{helper}->{passObj} )
&& !defined( && !exists(
$hash->{helper}->{passObj}->getReadPassword($name) $hash->{helper}->{passObj}->getReadPassword($name)
) )
) )
); );
if ( !defined( $hash->{TOKEN} ) ) { if ( !exists( $hash->{TOKEN} ) ) {
unshift @{ $hash->{actionQueue} }, 'login'; unshift @{ $hash->{actionQueue} }, 'login';
} }
else { else {
@ -535,9 +535,17 @@ sub ErrorHandling {
{ {
$hash->{helper}->{loginerr} = 1; $hash->{helper}->{loginerr} = 1;
$hash->{actionQueue} = []; $hash->{actionQueue} = [];
delete $hash->{TOKEN};
unshift @{ $hash->{actionQueue} }, 'login'; unshift @{ $hash->{actionQueue} }, 'login';
::Log3 $name, 1,
"TeslaPowerwall2AC ($name) - Login Error. Empty action queue";
::Log3 $name, 1,
"TeslaPowerwall2AC ($name) - Login Error. run relogin";
::Log3 $name, 1,
"TeslaPowerwall2AC ($name) - Login Error. New action queue "
. join ',', @{ $hash->{actionQueue} };
return Write($hash); return Write($hash);
} }