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-10-02 12:51:20 +02:00
parent 67178a3aa5
commit 9e984765aa
1 changed files with 25 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
46_TeslaPowerwall2AC.pm
View File

@ -176,8 +176,8 @@ my %paths = (
'siteinfo' => 'site_info',
'sitename' => 'site_info/site_name',
'sitemaster' => 'sitemaster',
'powerwallsstop' => 'sitemaster/stop',
'powerwallsrun' => 'sitemaster/run',
# 'powerwallsstop' => 'sitemaster/stop',
# 'powerwallsrun' => 'sitemaster/run',
'powerwalls' => 'powerwalls',
'registration' => 'customer/registration',
'status' => 'status',
@ -551,29 +551,29 @@ sub ErrorHandling($$$) {
return;
}
if ( $data =~ /Error/i
and exists($param->{code})
and $param->{code} != 200 )
{
print( 'TESLA DEBUG0 - Path: ' . $param->{setCmd} . "\n" );
print( 'TESLA DEBUG0 - ResponseString: ' . Dumper $data . "\n" );
readingsBeginUpdate($hash);
readingsBulkUpdate( $hash, 'state', $param->{code}, 1 );
readingsBulkUpdate( $hash, 'lastRequestError', $param->{code}, 1 );
readingsEndUpdate( $hash, 1 );
Log3 $name, 3,
"TeslaPowerwall2AC ($name) - statusRequestERROR: http error "
. $param->{code};
Log3 $name, 3,
"TeslaPowerwall2AC ($name) - statusRequestERROR: data "
. $data;
$hash->{actionQueue} = [];
return;
}
# if ( $data =~ /Error/i
# and exists($param->{code})
# and $param->{code} != 200 )
# {
# print( 'TESLA DEBUG0 - Path: ' . $param->{setCmd} . "\n" );
# print( 'TESLA DEBUG0 - ResponseString: ' . Dumper $data . "\n" );
# readingsBeginUpdate($hash);
#
# readingsBulkUpdate( $hash, 'state', $param->{code}, 1 );
# readingsBulkUpdate( $hash, 'lastRequestError', $param->{code}, 1 );
#
# readingsEndUpdate( $hash, 1 );
#
# Log3 $name, 3,
# "TeslaPowerwall2AC ($name) - statusRequestERROR: http error "
# . $param->{code};
# Log3 $name, 3,
# "TeslaPowerwall2AC ($name) - statusRequestERROR: data "
# . $data;
#
# $hash->{actionQueue} = [];
# return;
# }
if ( $data =~ m#{"code":(\d+),"error":"(.+)","message":"(.+)"}$# ) {