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

insert debug output

Browse Source
This commit is contained in:
Marko Oldenburg 2019-09-27 06:16:40 +02:00
parent 410cb53b52
commit 57a51e8984
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
46_TeslaPowerwall2AC.pm
View File

@ -482,6 +482,13 @@ sub ErrorHandling($$$) {
my $name = $hash->{NAME}; my $name = $hash->{NAME};
# my $path = $param->{setCmd}; # temporär # my $path = $param->{setCmd}; # temporär
print('TESLA DEBUG - ResponseString: ' . Dumper $data);
print('TESLA DEBUG - Error: ' . $err . "\n")
unless ($err);
# #### temporär # #### temporär
# if ( $path eq 'statussoe' ) { # if ( $path eq 'statussoe' ) {
@ -728,7 +735,7 @@ sub ErrorHandling($$$) {
Log3 $name, 3, "TeslaPowerwall2AC ($name) - RequestERROR: $err"; Log3 $name, 3, "TeslaPowerwall2AC ($name) - RequestERROR: $err";
$hash->{actionQueue} = []; $hash->{actionQueue} = [];
return; # return;
} }
} }
@ -750,7 +757,7 @@ sub ErrorHandling($$$) {
. " without any data after requesting"; . " without any data after requesting";
$hash->{actionQueue} = []; $hash->{actionQueue} = [];
return; # return;
} }
if ( ( $data =~ /Error/i ) and exists( $param->{code} ) ) { if ( ( $data =~ /Error/i ) and exists( $param->{code} ) ) {
@ -767,7 +774,7 @@ sub ErrorHandling($$$) {
. $param->{code}; . $param->{code};
$hash->{actionQueue} = []; $hash->{actionQueue} = [];
return; # return;
### End Error Handling ### End Error Handling
} }
@ -777,7 +784,7 @@ sub ErrorHandling($$$) {
Log3 $name, 4, "TeslaPowerwall2AC ($name) - Recieve JSON data: $data"; Log3 $name, 4, "TeslaPowerwall2AC ($name) - Recieve JSON data: $data";
ResponseProcessing( $hash, $param->{setCmd}, $data ); # ResponseProcessing( $hash, $param->{setCmd}, $data );
} }
sub ResponseProcessing($$$) { sub ResponseProcessing($$$) {