diff --git a/fhem/contrib/96_RenaultZE.pm b/fhem/contrib/96_RenaultZE.pm index fbd166131..c2e4aefe3 100644 --- a/fhem/contrib/96_RenaultZE.pm +++ b/fhem/contrib/96_RenaultZE.pm @@ -38,6 +38,7 @@ ############################################################################################################################ # Version History +# v 1.07 adjusting to new output format from charges # v 1.06 logging "well known error" Failed to forward request to remote service only at log level 5 # v 1.05 fixed timing problem in update request # v 1.04 typo denbled corrected @@ -98,7 +99,7 @@ use Time::Piece; #use JSON qw(decode_json); use JSON; -my $RenaultZE_version ="V1.06 / 18.01.2023"; +my $RenaultZE_version ="V1.07 / 05.02.2023"; my %RenaultZE_sets = ( "AC:on,cancel" => "", @@ -1246,16 +1247,15 @@ sub RenaultZE_gData_Step2($) ### charges start=20200202&end=20210202 if($data =~ /charges/) { my $mtab = $decode_json->{data}->{attributes}->{charges}; - my $output = "Charges"; + my $output = "Charges
"; $output = $output.""; - $output = $output.""; - $output = $output.""; - $output = $output.""; - $output = $output.""; - $output = $output.""; - $output = $output.""; - $output = $output.""; - $output = $output.""; + $output = $output.""; + $output = $output.""; + $output = $output.""; + $output = $output.""; + $output = $output.""; + $output = $output.""; + $output = $output.""; $output = $output.""; foreach my $item( @$mtab ) { $output = $output.""; @@ -1263,9 +1263,8 @@ sub RenaultZE_gData_Step2($) $output = $output.""; $output = $output.""; $output = $output.""; - $output = $output.""; - $output = $output.""; - $output = $output.""; + $output = $output.""; + $output = $output.""; $output = $output.""; $output = $output.""; }
chargeStartDatechargeEndDatechargeDurationchargeStartBatteryLevelchargeBatteryLevelRecoveredchargePowerchargeStartInstantaneousPowerchargeEndStatuscharge Start Datecharge End Datecharge Durationcharge Start Battery Levelcharge End Battery Levelcharge Energy Recoveredcharge End Status
".$item->{chargeEndDate}."".$item->{chargeDuration}."".$item->{chargeStartBatteryLevel}."".$item->{chargeBatteryLevelRecovered}."".$item->{chargePower}."".$item->{chargeStartInstantaneousPower}."".$item->{chargeEndBatteryLevel}."".$item->{chargeEnergyRecovered}."".$item->{chargeEndStatus}."