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

expand ARRAYs

Browse Source
This commit is contained in:
Marko Oldenburg 2021-02-27 17:21:48 +01:00
parent cdc37dd24c
commit 861c786d52
2 changed files with 13 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
FHEM/46_TeslaPowerwall2AC.pm
View File

@ -716,7 +716,7 @@ sub ReadingsProcessing_Powerwalls {
my %readings; my %readings;
if ( ref( $decode_json->{powerwalls} ) eq 'ARRAY' if ( ref( $decode_json->{powerwalls} ) eq 'ARRAY'
and scalar( @{ $decode_json->{powerwalls} } ) > 0 ) && scalar( @{ $decode_json->{powerwalls} } ) > 0 )
{ {
my $i = 0; my $i = 0;
for my $powerwall ( @{ $decode_json->{powerwalls} } ) { for my $powerwall ( @{ $decode_json->{powerwalls} } ) {
@ -727,8 +727,16 @@ sub ReadingsProcessing_Powerwalls {
if ( ref($v) ne 'HASH' ); if ( ref($v) ne 'HASH' );
if ( ref($v) eq 'HASH' ) { if ( ref($v) eq 'HASH' ) {
while ( my ( $s, $t ) = each %{$v} ) { while ( my ( $s, $ts ) = each %{$v} ) {
$readings{ 'wall_' . $i . '_' . $r . '_' . $s } = $t; if ( ref( $ts ) eq 'ARRAY'
&& scalar( @{ $ts } ) > 0 )
{
my $j = 0;
for my $t ( @{ $ts } ) {
$readings{ 'wall_' . $i . '_' . $r . '_' . $s . '_' . $j } = $t;
$j++;
}
}
} }
} }
} }
@ -1088,7 +1096,7 @@ sub Rename {
], ],
"release_status": "stable", "release_status": "stable",
"license": "GPL_2", "license": "GPL_2",
"version": "v1.0.1", "version": "v1.0.2",
"author": [ "author": [
"Marko Oldenburg <leongaultier@gmail.com>" "Marko Oldenburg <leongaultier@gmail.com>"
], ],

2
controls_TeslaPowerwall2AC.txt
View File

@ -1 +1 @@
UPD 2021-02-27_16:41:15 31004 FHEM/46_TeslaPowerwall2AC.pm UPD 2021-02-27_17:20:40 31370 FHEM/46_TeslaPowerwall2AC.pm