FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-04 11:26:55 +00:00
Code Issues Releases Wiki Activity

96_RenaultZE:Support for RenaultZE cars

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@27179 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
plin 2023-02-05 09:06:52 +00:00
parent c1b5e245d6
commit 04f0f96221
1 changed files with 12 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
fhem/contrib/96_RenaultZE.pm
View File

@ -38,6 +38,7 @@
############################################################################################################################ ############################################################################################################################
# Version History # 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.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.05 fixed timing problem in update request
# v 1.04 typo denbled corrected # v 1.04 typo denbled corrected
@ -98,7 +99,7 @@ use Time::Piece;
#use JSON qw(decode_json); #use JSON qw(decode_json);
use JSON; use JSON;
my $RenaultZE_version ="V1.06 / 18.01.2023"; my $RenaultZE_version ="V1.07 / 05.02.2023";
my %RenaultZE_sets = ( my %RenaultZE_sets = (
"AC:on,cancel" => "", "AC:on,cancel" => "",
@ -1246,15 +1247,14 @@ sub RenaultZE_gData_Step2($)
### charges start=20200202&end=20210202 ### charges start=20200202&end=20210202
if($data =~ /charges/) { if($data =~ /charges/) {
my $mtab = $decode_json->{data}->{attributes}->{charges}; my $mtab = $decode_json->{data}->{attributes}->{charges};
my $output = "<html><body><b>Charges</b><table border=1 center>"; my $output = "<html><body><b>Charges</b><table border=1 align=middle>";
$output = $output."<tr>"; $output = $output."<tr>";
$output = $output."<td align=center>charge Start Date</td>"; $output = $output."<td align=center>charge Start Date</td>";
$output = $output."<td align=center>charge End Date</td>"; $output = $output."<td align=center>charge End Date</td>";
$output = $output."<td align=center>charge Duration</td>"; $output = $output."<td align=center>charge Duration</td>";
$output = $output."<td align=center>charge Start Battery Level</td>"; $output = $output."<td align=center>charge Start Battery Level</td>";
$output = $output."<td align=center>chargeBatteryLevelRecovered</td>"; $output = $output."<td align=center>charge End Battery Level</td>";
$output = $output."<td align=center>chargePower</td>"; $output = $output."<td align=center>charge Energy Recovered</td>";
$output = $output."<td align=center>chargeStartInstantaneousPower</td>";
$output = $output."<td align=center>charge End Status</td>"; $output = $output."<td align=center>charge End Status</td>";
$output = $output."</tr>"; $output = $output."</tr>";
foreach my $item( @$mtab ) { foreach my $item( @$mtab ) {
@ -1263,9 +1263,8 @@ sub RenaultZE_gData_Step2($)
$output = $output."<td align=center>".$item->{chargeEndDate}."</td>"; $output = $output."<td align=center>".$item->{chargeEndDate}."</td>";
$output = $output."<td align=center>".$item->{chargeDuration}."</td>"; $output = $output."<td align=center>".$item->{chargeDuration}."</td>";
$output = $output."<td align=center>".$item->{chargeStartBatteryLevel}."</td>"; $output = $output."<td align=center>".$item->{chargeStartBatteryLevel}."</td>";
$output = $output."<td align=center>".$item->{chargeBatteryLevelRecovered}."</td>"; $output = $output."<td align=center>".$item->{chargeEndBatteryLevel}."</td>";
$output = $output."<td align=center>".$item->{chargePower}."</td>"; $output = $output."<td align=center>".$item->{chargeEnergyRecovered}."</td>";
$output = $output."<td align=center>".$item->{chargeStartInstantaneousPower}."</td>";
$output = $output."<td align=center>".$item->{chargeEndStatus}."</td>"; $output = $output."<td align=center>".$item->{chargeEndStatus}."</td>";
$output = $output."</tr>"; $output = $output."</tr>";
} }