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