mirror of
https://github.com/fhem/fhem-mirror.git
synced 2025-03-03 10:46:53 +00:00
96_RenaultZE:Support for RenaultZE cars
git-svn-id: https://svn.fhem.de/fhem/trunk@26960 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
plin
parent
3d5842d99f
commit
d14b8f1c8c
@ -1,6 +1,6 @@
|
||||
###############################################################################
|
||||
#
|
||||
# $Id: 96_RenaultZE.pm 2022-11-16 plin $
|
||||
# $Id: 96_RenaultZE.pm 2023-01-04 plin $
|
||||
# 96_RenaultZE.pm
|
||||
#
|
||||
# Forum : https://forum.fhem.de/index.php/topic,116273.0.html
|
||||
@ -37,6 +37,10 @@
|
||||
|
||||
############################################################################################################################
|
||||
# Version History
|
||||
# v 1.04 typo denbled corrected
|
||||
# v 1.03 hvac settings output corrected
|
||||
# v 1.02 some minor corrections
|
||||
# v 1.01 added hvac-settings
|
||||
# v 1.00 added module to the contrib directory
|
||||
# v 0.32 added attribute disabled
|
||||
# v 0.31 changed API keys due to change by Renault
|
||||
@ -91,7 +95,7 @@ use Time::Piece;
|
||||
#use JSON qw(decode_json);
|
||||
use JSON;
|
||||
|
||||
my $RenaultZE_version ="V1.00 / 16.11.2022";
|
||||
my $RenaultZE_version ="V1.04 / 04.01.2023";
|
||||
|
||||
my %RenaultZE_sets = (
|
||||
"AC:on,cancel" => "",
|
||||
@ -105,6 +109,7 @@ my %RenaultZE_gets = (
|
||||
"charges" => "",
|
||||
"charging-settings:noArg" => "",
|
||||
"hvac-history" => "",
|
||||
"hvac-settings:noArg" => "",
|
||||
"notification-settings:noArg" => "",
|
||||
"update:noArg" => "",
|
||||
"vehicles:noArg" => "",
|
||||
@ -253,6 +258,12 @@ sub RenaultZE_Get($@) {
|
||||
}
|
||||
}
|
||||
|
||||
elsif ($opt eq "hvac-settings")
|
||||
{
|
||||
readingsSingleUpdate($hash,"ze_Step","getHvacSettings",1);
|
||||
RenaultZE_Main1($hash, @param);
|
||||
}
|
||||
|
||||
elsif ($opt eq "charging-settings")
|
||||
{
|
||||
readingsSingleUpdate($hash,"ze_Step","getChargingSettings",1);
|
||||
@ -395,7 +406,7 @@ sub RenaultZE_Main1($@) {
|
||||
Log3 $name, 5, "RenaultZE_Main1 - gettimeofday=".gettimeofday();
|
||||
|
||||
if ( $ze_Gigya_JWT_Token eq "" || $gigya_time < gettimeofday() - 70000 ) {
|
||||
$res = RenaultZE_getCreds_Step1($hash);
|
||||
my $res = RenaultZE_getCreds_Step1($hash);
|
||||
Log3 $name, 5, "RenaultZE_Main1 - RC=".$res;
|
||||
}
|
||||
else
|
||||
@ -462,7 +473,7 @@ sub RenaultZE_Main3($) {
|
||||
|
||||
if ($key eq "GET_update")
|
||||
{
|
||||
#my $res = RenaultZE_getData_Step1($hash);
|
||||
#my $res = RenaultZE_getData_Step1($hash);
|
||||
my $res = RenaultZE_gData_Step1($hash,'battery-status');
|
||||
Log3 $name, 5, "RenaultZE_gData_Step1 - battery-status - RC=".$res;
|
||||
$res = RenaultZE_gData_Step1($hash,'cockpit');
|
||||
@ -505,6 +516,12 @@ sub RenaultZE_Main3($) {
|
||||
Log3 $name, 5, "RenaultZE_gData_Step1 - hvac-history - RC=".$res;
|
||||
}
|
||||
|
||||
if ($key eq "GET_hvac-settings")
|
||||
{
|
||||
my $res = RenaultZE_gData_Step1($hash,'hvac-settings');
|
||||
Log3 $name, 5, "RenaultZE_gData_Step1 - hvac-settings - RC=".$res;
|
||||
}
|
||||
|
||||
if ($key eq "GET_notification-settings")
|
||||
{
|
||||
my $res = RenaultZE_gData_Step1($hash,'notification-settings');
|
||||
@ -581,7 +598,7 @@ sub RenaultZE_Attr(@) {
|
||||
}
|
||||
elsif (($attrName eq "disabled") )
|
||||
{
|
||||
readingsSingleUpdate($hash,"state","denbled",1);
|
||||
readingsSingleUpdate($hash,"state","enabled",1);
|
||||
readingsSingleUpdate($hash,"ze_Step","RenaultZE ($name) is enabled",1);
|
||||
$_[3] = $attrVal;
|
||||
$hash->{".reset"} = 1 if defined($hash->{LPID});
|
||||
@ -933,6 +950,8 @@ sub RenaultZE_gData_Step2($)
|
||||
my $lastErr = $hash->{READINGS}{ze_lastErr}{VAL};
|
||||
return undef if ($lastErr ne "");
|
||||
|
||||
my $lastUrl = $hash->{READINGS}{ze_lastUrl}{VAL};
|
||||
|
||||
Log3 $name, 3, "RenaultZE_gData_Step2 - DataError ".$data if ($data =~ /\<html\>/);
|
||||
return undef if ($data =~ /\<html\>/);
|
||||
|
||||
@ -962,8 +981,19 @@ sub RenaultZE_gData_Step2($)
|
||||
return 0;
|
||||
}
|
||||
|
||||
### cockpit ###
|
||||
if($data =~ /totalMileage/) {
|
||||
readingsSingleUpdate($hash,"totalMileageKm",$decode_json->{data}->{attributes}->{totalMileage},1);
|
||||
readingsBulkUpdate($hash,"fuelAutonomy",$decode_json->{data}->{attributes}->{fuelAutonomy}) if (my $decode_json->{data}->{attributes}->{fuelAutonomy} gt 0);
|
||||
readingsBulkUpdate($hash,"fuelQuantity",$decode_json->{data}->{attributes}->{fuelQuantity}) if (my $decode_json->{data}->{attributes}->{fuelQuantity} gt 0);
|
||||
return 0;
|
||||
}
|
||||
|
||||
### hvac-status ###
|
||||
if($data =~ /hvacStatus/) {
|
||||
readingsSingleUpdate($hash,"hvacStatus",$decode_json->{data}->{attributes}->{hvacStatus},1);
|
||||
readingsBulkUpdate($hash,"socThreshold",$decode_json->{data}->{attributes}->{socThreshold}) if (my $decode_json->{data}->{attributes}->{socThreshold} gt 0);
|
||||
readingsBulkUpdate($hash,"xternalTemperature",$decode_json->{data}->{attributes}->{xternalTemperature}) if (my $decode_json->{data}->{attributes}->{xternalTemperature} gt 0);
|
||||
return 0;
|
||||
}
|
||||
|
||||
@ -1116,12 +1146,14 @@ sub RenaultZE_gData_Step2($)
|
||||
}
|
||||
|
||||
### charging-settings?country=DE
|
||||
if($data =~ /mode.*schedules/) {
|
||||
if(($data =~ /mode.*schedules/) && ($lastUrl =~ /charg/)){
|
||||
my $mtab = $decode_json->{data}->{attributes}->{schedules};
|
||||
my $sss = @$mtab;
|
||||
#print scalar @$mtab."\n";
|
||||
my $output = "<html><body><b>Charging Settings</b><p>Mode=".$decode_json->{data}->{attributes}->{mode}."<br>";
|
||||
my @wdays = ("monday", "tuesday", "wednesday", "thursday", "friday", "saturday", "saturday" );
|
||||
foreach my $item( @$mtab ) {
|
||||
if ( $sss > 0 ) {
|
||||
foreach my $item( @$mtab ) {
|
||||
$output = $output."Schedules, activated =".$item->{activated}."<table border=1 center>";
|
||||
$output = $output."<tr>";
|
||||
$output = $output."<td align=center>Day of Week</td>";
|
||||
@ -1136,12 +1168,47 @@ sub RenaultZE_gData_Step2($)
|
||||
$output = $output."</tr>";
|
||||
}
|
||||
last;
|
||||
}
|
||||
$output = $output."</table>";
|
||||
}
|
||||
$output = $output."</table></body></html>";
|
||||
$output = $output."</body></html>";
|
||||
readingsSingleUpdate($hash,"chargingSettings",$output,1);
|
||||
return 0;
|
||||
}
|
||||
|
||||
### hvac-settings?country=DE
|
||||
if(($data =~ /mode.*schedules/) && ($lastUrl =~ /hvac/)){
|
||||
my $mtab = $decode_json->{data}->{attributes}->{schedules};
|
||||
my $sss = @$mtab;
|
||||
#print scalar @$mtab."\n";
|
||||
my $output = "<html><body><b>HVAC Settings</b><p>Mode=".$decode_json->{data}->{attributes}->{mode}."<br>";
|
||||
my @wdays = ("monday", "tuesday", "wednesday", "thursday", "friday", "saturday", "saturday" );
|
||||
if ( $sss > 0 ) {
|
||||
$output = $output."<p>Schedules";
|
||||
foreach my $item( @$mtab ) {
|
||||
if ($item->{activated} == 1 ) {
|
||||
$output = $output."<p>activated =".$item->{activated}."<table border=1 center>";
|
||||
$output = $output.", Target Temperature =".$item->{targetTemperature}."<table border=1 center>";
|
||||
$output = $output."<tr>";
|
||||
$output = $output."<td align=center>Day of Week</td>";
|
||||
$output = $output."<td align=center>readyAtTime</td>";
|
||||
$output = $output."</tr>";
|
||||
foreach my $wd( @wdays ) {
|
||||
$output = $output."<tr>";
|
||||
$output = $output."<td align=center>".$wd."</td>";
|
||||
$output = $output."<td align=center>".$item->{$wd}->{readyAtTime}."</td>";
|
||||
$output = $output."</tr>";
|
||||
}
|
||||
$output = $output."</table>";
|
||||
}
|
||||
}
|
||||
}
|
||||
$output = $output."</body></html>";
|
||||
readingsSingleUpdate($hash,"hvacSettings",$output,1);
|
||||
return 0;
|
||||
}
|
||||
|
||||
|
||||
### notification-settings?country=DE
|
||||
if($data =~ /settings.*messageKey/) {
|
||||
my $mtab = $decode_json->{data}->{attributes}->{settings};
|
||||
@ -1660,12 +1727,15 @@ sub RenaultZE_EpochFromDateTime($) {
|
||||
type=day&start=YYYYMMDD&end=YYYYMMDD (default: 1.1.2000 till today)<br>
|
||||
type=month&start=YYYYMM&end=YYYYMM
|
||||
</li>
|
||||
<li><a name="hvac-settings"></a><i>hvac-settings</i><br>
|
||||
shows the ac settingS <br>
|
||||
</li>
|
||||
<li><a name="notification-settings"></a><i>notification-settings</i><br>
|
||||
<b>only for Phase1 models</b><br>
|
||||
lists the settings for cnotifications
|
||||
</li>
|
||||
<li><a name="update"></a><i>update</i><br>
|
||||
force update of the current readings</li>
|
||||
force update of the current readings (battery-status, cockpit, location, hvac-status, charge-mode)</li>
|
||||
<li><a name="vehicles"></a><i>vehicles</i><br>
|
||||
get a list of your vehicles with details, set the readings for the images<br>
|
||||
if the attribute ze_showimage is set you get readings with the cars images</li>
|
||||
@ -1673,10 +1743,10 @@ sub RenaultZE_EpochFromDateTime($) {
|
||||
Option to test new API functions which might be implemented one day ...<br>
|
||||
sub parameters are<br>
|
||||
hvac-sessions?start=20201101&end=20210108&country=DE<br>
|
||||
charges?start=20201101&end=20210108&country=DE<br>
|
||||
charge-history?type=day&start=20201101&end=20210108&country=DE<br>
|
||||
charge-history?type=month&start=202011&end=202101&country=DE<br>
|
||||
lock-status?country=DE<br>
|
||||
res-state?country=DE<br>
|
||||
As result you will either get a msgbox when the function is implemented by Renault, otherwise the ze-Readings will tell you more
|
||||
</li>
|
||||
</ul>
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user