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

add more powerwall readings

Browse Source
This commit is contained in:
Marko Oldenburg
2021-03-08 20:14:23 +01:00
parent ccefae7ee6
commit 39070d643d
2 changed files with 47 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

69
FHEM/46_TeslaPowerwall2AC.pm
View File

@@ -715,39 +715,58 @@ sub ReadingsProcessing_Powerwalls {
my $name = $hash->{NAME};
my %readings;
if ( ref( $decode_json->{powerwalls} ) eq 'ARRAY'
&& scalar( @{ $decode_json->{powerwalls} } ) > 0 )
{
my $i = 0;
for my $powerwall ( @{ $decode_json->{powerwalls} } ) {
if ( ref($powerwall) eq 'HASH' ) {
while ( my ($r,$v) = each %{$powerwall} ) {
$readings{ 'wall_' . $i . '_' . $r } = $v
if ( ref($v) ne 'HASH' );
if ( ref($decode_json) eq 'HASH' ) {
for (keys %{$jsondata}) {
$readings{$_} = $jsondata->{$_}
if ( ref($jsondata->{$_}) ne 'ARRAY'
and defined($jsondata->{$_}) );
# if ( ref($v) eq 'HASH' ) {
# while ( my ( $s, $ts ) = each %{$v} ) {
# if ( ref( $ts ) eq 'ARRAY'
# && scalar( @{ $ts } ) > 0 )
# {
# my $j = 0;
# for my $t ( @{ $ts } ) {
# $readings{ 'wall_' . $i . '_' . $r . '_' . $s . '_' . $j } = $t;
# $j++;
# }
# }
# }
# }
if ( ref($jsondata->{$_}) eq 'ARRAY' ) {
my $i = 0;
my $r1 = $_;
for my $hRef (@{$jsondata->{$_}}) {
for (keys %{$hRef}) {
$r1 =~ s/s$//g;
$readings{qq(${r1}_${i}_${_})} = $hRef->{$_}
if ( ref($hRef->{$_}) ne 'ARRAY'
and ref($hRef->{$_}) ne 'HASH'
and defined($hRef->{$_}) );
if ( ref($hRef->{$_}) eq 'HASH' ) {
my $r2 = $_;
my $r3 = $hRef->{$_};
for (keys %{$r3}) {
$readings{qq(${r1}_${i}_${r2}_${_})} = $r3->{$_}
if ( ref($r3->{$_}) ne 'ARRAY'
and defined($r3->{$_}) );
if ( ref($r3->{$_}) eq 'ARRAY' ) {
my $ii = 0;
my $r4 = $_;
for $hRef (@{$r3->{$_}}) {
for (keys %{$hRef}) {
$r4 =~ s/s$//g;
$readings{qq(${r1}_${i}_${r2}_${r4}_${ii}_${_})} = $hRef->{$_}
if ( ref($hRef->{$_}) ne 'HASH'
and defined($hRef->{$_}) );
}
$ii++
}
}
}
}
}
$i++;
}
}
$readings{'numberOfWalls'} = $i;
}
}
}
else {
$readings{'error'} = 'aggregates response is not a Array';
$readings{'error'} = 'powerwalls response is not a Hash';
}
return \%readings;
@@ -1095,7 +1114,7 @@ sub Rename {
],
"release_status": "stable",
"license": "GPL_2",
"version": "v1.0.5",
"version": "v1.0.6",
"author": [
"Marko Oldenburg <leongaultier@gmail.com>"
],

2
controls_TeslaPowerwall2AC.txt
View File

@@ -1 +1 @@
UPD 2021-03-05_10:54:12 31392 FHEM/46_TeslaPowerwall2AC.pm
UPD 2021-03-08_20:13:47 32353 FHEM/46_TeslaPowerwall2AC.pm