test
This commit is contained in:
parent
74a89c2ec3
commit
c7fb8d12e9
@ -480,13 +480,6 @@ sub ErrorHandling($$$) {
|
|||||||
my ( $param, $err, $data ) = @_;
|
my ( $param, $err, $data ) = @_;
|
||||||
my $hash = $param->{hash};
|
my $hash = $param->{hash};
|
||||||
my $name = $hash->{NAME};
|
my $name = $hash->{NAME};
|
||||||
|
|
||||||
print( 'TESLA DEBUG1 - Path: ' . $param->{setCmd} . "\n" );
|
|
||||||
print( 'TESLA DEBUG1 - ResponseString: ' . Dumper $data . "\n" );
|
|
||||||
print( 'TESLA DEBUG1 - Error: ' . $err . "\n" )
|
|
||||||
if ( defined($err) and $err);
|
|
||||||
print( 'TESLA DEBUG1 - Code: ' . $param->{code} . "\n" )
|
|
||||||
if ( exists($param->{code}) );
|
|
||||||
|
|
||||||
# my $path = $param->{setCmd}; # temporär
|
# my $path = $param->{setCmd}; # temporär
|
||||||
|
|
||||||
@ -520,98 +513,104 @@ sub ErrorHandling($$$) {
|
|||||||
# $data = '{"site_name":"Meine Powerwall2AC","timezone":"Europe/Berlin"}';
|
# $data = '{"site_name":"Meine Powerwall2AC","timezone":"Europe/Berlin"}';
|
||||||
# }
|
# }
|
||||||
|
|
||||||
# ### Begin Error Handling
|
### Begin Error Handling
|
||||||
#
|
|
||||||
# if ( defined($err) ) {
|
|
||||||
# if ( $err ne '' ) {
|
|
||||||
#
|
|
||||||
# readingsBeginUpdate($hash);
|
|
||||||
# readingsBulkUpdate( $hash, 'state', $err, 1 );
|
|
||||||
# readingsBulkUpdate( $hash, 'lastRequestError', $err, 1 );
|
|
||||||
# readingsEndUpdate( $hash, 1 );
|
|
||||||
#
|
|
||||||
# Log3 $name, 3, "TeslaPowerwall2AC ($name) - RequestERROR: $err";
|
|
||||||
#
|
|
||||||
# $hash->{actionQueue} = [];
|
|
||||||
# return;
|
|
||||||
# }
|
|
||||||
# }
|
|
||||||
#
|
|
||||||
# if ( $data eq '' and exists( $param->{code} ) && $param->{code} ne 200 ) {
|
|
||||||
#
|
|
||||||
# readingsBeginUpdate($hash);
|
|
||||||
# readingsBulkUpdate( $hash, 'state', $param->{code}, 1 );
|
|
||||||
#
|
|
||||||
# readingsBulkUpdate( $hash, 'lastRequestError', $param->{code}, 1 );
|
|
||||||
#
|
|
||||||
# Log3 $name, 3,
|
|
||||||
# "TeslaPowerwall2AC ($name) - RequestERROR: " . $param->{code};
|
|
||||||
#
|
|
||||||
# readingsEndUpdate( $hash, 1 );
|
|
||||||
#
|
|
||||||
# Log3 $name, 5,
|
|
||||||
# "TeslaPowerwall2AC ($name) - RequestERROR: received http code "
|
|
||||||
# . $param->{code}
|
|
||||||
# . " without any data after requesting";
|
|
||||||
#
|
|
||||||
# $hash->{actionQueue} = [];
|
|
||||||
# return;
|
|
||||||
# }
|
|
||||||
|
|
||||||
# if ( ( $data =~ /Error/i ) and exists( $param->{code} ) ) {
|
if ( defined($err) ) {
|
||||||
#
|
if ( $err ne '' ) {
|
||||||
# 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};
|
|
||||||
#
|
|
||||||
# $hash->{actionQueue} = [];
|
|
||||||
# return;
|
|
||||||
# }
|
|
||||||
|
|
||||||
# if ( $data =~ m#{"code":(\d+),"error":"(.+)","message":"(.+)"}$# ) {
|
readingsBeginUpdate($hash);
|
||||||
#
|
readingsBulkUpdate( $hash, 'state', $err, 1 );
|
||||||
# readingsBeginUpdate($hash);
|
readingsBulkUpdate( $hash, 'lastRequestError', $err, 1 );
|
||||||
#
|
readingsEndUpdate( $hash, 1 );
|
||||||
# readingsBulkUpdate( $hash, 'state', $1, 1 );
|
|
||||||
# readingsBulkUpdate(
|
Log3 $name, 3, "TeslaPowerwall2AC ($name) - RequestERROR: $err";
|
||||||
# $hash,
|
|
||||||
# 'lastRequestError',
|
$hash->{actionQueue} = [];
|
||||||
# 'Path: '
|
return;
|
||||||
# . $param->{setCmd} . ' '
|
}
|
||||||
# . $1
|
}
|
||||||
# . ' - Error: '
|
|
||||||
# . $2
|
if ( $data eq '' and exists( $param->{code} ) && $param->{code} != 200 ) {
|
||||||
# . ' Messages: '
|
|
||||||
# . $3,
|
readingsBeginUpdate($hash);
|
||||||
# 1
|
readingsBulkUpdate( $hash, 'state', $param->{code}, 1 );
|
||||||
# );
|
|
||||||
#
|
readingsBulkUpdate( $hash, 'lastRequestError', $param->{code}, 1 );
|
||||||
# readingsEndUpdate( $hash, 1 );
|
|
||||||
#
|
Log3 $name, 3,
|
||||||
# # $hash->{actionQueue} = [];
|
"TeslaPowerwall2AC ($name) - RequestERROR: " . $param->{code};
|
||||||
# # return;
|
|
||||||
# ### End Error Handling
|
readingsEndUpdate( $hash, 1 );
|
||||||
# }
|
|
||||||
#
|
Log3 $name, 5,
|
||||||
|
"TeslaPowerwall2AC ($name) - RequestERROR: received http code "
|
||||||
|
. $param->{code}
|
||||||
|
. " without any data after requesting";
|
||||||
|
|
||||||
|
$hash->{actionQueue} = [];
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
|
if ( $data =~ /Error/i
|
||||||
|
and exists($param->{code})
|
||||||
|
and $param->{code} != 200 )
|
||||||
|
{
|
||||||
|
|
||||||
|
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};
|
||||||
|
|
||||||
|
$hash->{actionQueue} = [];
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
|
if ( $data =~ m#{"code":(\d+),"error":"(.+)","message":"(.+)"}$# ) {
|
||||||
|
|
||||||
|
readingsBeginUpdate($hash);
|
||||||
|
|
||||||
|
readingsBulkUpdate( $hash, 'state', $1, 1 );
|
||||||
|
readingsBulkUpdate(
|
||||||
|
$hash,
|
||||||
|
'lastRequestError',
|
||||||
|
'Path: '
|
||||||
|
. $param->{setCmd} . ' '
|
||||||
|
. $1
|
||||||
|
. ' - Error: '
|
||||||
|
. $2
|
||||||
|
. ' Messages: '
|
||||||
|
. $3,
|
||||||
|
1
|
||||||
|
);
|
||||||
|
|
||||||
|
readingsEndUpdate( $hash, 1 );
|
||||||
|
}
|
||||||
|
#### End Error Handling
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
print( 'TESLA DEBUG1 - Path: ' . $param->{setCmd} . "\n" );
|
||||||
|
print( 'TESLA DEBUG1 - ResponseString: ' . Dumper $data . "\n" );
|
||||||
|
print( 'TESLA DEBUG1 - Error: ' . $err . "\n" )
|
||||||
|
if ( defined($err) and $err);
|
||||||
|
print( 'TESLA DEBUG1 - Code: ' . $param->{code} . "\n" )
|
||||||
|
if ( exists($param->{code}) );
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
Write($hash)
|
Write($hash)
|
||||||
if ( defined( $hash->{actionQueue} )
|
if ( defined( $hash->{actionQueue} )
|
||||||
and scalar( @{ $hash->{actionQueue} } ) > 0 );
|
and scalar( @{ $hash->{actionQueue} } ) > 0 );
|
||||||
#
|
|
||||||
# Log3 $name, 4, "TeslaPowerwall2AC ($name) - Recieve JSON data: $data";
|
Log3 $name, 4, "TeslaPowerwall2AC ($name) - Recieve JSON data: $data";
|
||||||
#
|
|
||||||
# print( 'TESLA DEBUG2 - ResponseString: ' . Dumper $data );
|
ResponseProcessing( $hash, $param->{setCmd}, $data );
|
||||||
# print( 'TESLA DEBUG2 - Error: ' . $err . "\n" )
|
|
||||||
# unless ( defined($err)
|
|
||||||
# and $err);
|
|
||||||
#
|
|
||||||
# ResponseProcessing( $hash, $param->{setCmd}, $data );
|
|
||||||
}
|
}
|
||||||
|
|
||||||
sub ResponseProcessing($$$) {
|
sub ResponseProcessing($$$) {
|
||||||
|
Loading…
Reference in New Issue
Block a user