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

add more readings

Browse Source
This commit is contained in:
Marko Oldenburg 2021-03-02 09:03:45 +01:00
parent f71e306954
commit 55308582f6
2 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
FHEM/46_TeslaPowerwall2AC.pm
View File

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

2
controls_TeslaPowerwall2AC.txt
View File

@ -1 +1 @@
UPD 2021-02-27_17:20:40 31370 FHEM/46_TeslaPowerwall2AC.pm
UPD 2021-03-02_09:01:53 31521 FHEM/46_TeslaPowerwall2AC.pm