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

test

Browse Source
This commit is contained in:
Marko Oldenburg
2019-09-28 09:16:08 +02:00
parent f6dd7a370e
commit d6fb304ae1
1 changed files with 11 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
46_TeslaPowerwall2AC.pm
View File

@@ -181,7 +181,7 @@ my %paths = (
'powerwalls' => 'powerwalls',
'registration' => 'customer/registration',
'status' => 'status',
'login' => 'login/Basic',
# 'login' => 'login/Basic',
'gridstatus' => 'system_status/grid_status',
);
@@ -480,6 +480,12 @@ sub ErrorHandling($$$) {
my ( $param, $err, $data ) = @_;
my $hash = $param->{hash};
my $name = $hash->{NAME};
print( 'TESLA DEBUG1 - Path: ' . $param->{setCmd} );
print( 'TESLA DEBUG1 - ResponseString: ' . Dumper $data );
print( 'TESLA DEBUG1 - Error: ' . $err . "\n" )
unless ( defined($err)
and $err);
# my $path = $param->{setCmd}; # temporär
@@ -798,9 +804,10 @@ sub ErrorHandling($$$) {
Log3 $name, 4, "TeslaPowerwall2AC ($name) - Recieve JSON data: $data";
print( 'TESLA DEBUG - ResponseString: ' . Dumper $data);
print( 'TESLA DEBUG - Error: ' . $err . "\n" )
unless ($err);
print( 'TESLA DEBUG2 - ResponseString: ' . Dumper $data );
print( 'TESLA DEBUG2 - Error: ' . $err . "\n" )
unless ( defined($err)
and $err);
# ResponseProcessing( $hash, $param->{setCmd}, $data );
}