FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-06 06:08:44 +00:00
Code Issues Releases Wiki Activity

96_RenaultZE:Support for RenaultZE cars

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@28119 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
plin 2023-11-01 08:20:17 +00:00
parent 443dfe805f
commit 4d33b0ce2a
1 changed files with 19 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
fhem/contrib/96_RenaultZE.pm
View File

@ -38,6 +38,7 @@
############################################################################################################################ ############################################################################################################################
# Version History # Version History
# v 1.14 changed code for automatic update of readings distance/home during
# v 1.13 recalculation of varius readings distance/home during update # v 1.13 recalculation of varius readings distance/home during update
# v 1.12 implemented new Attribute ze_homeRadius # v 1.12 implemented new Attribute ze_homeRadius
# v 1.11 implemented new function GET checkAPIkeys # v 1.11 implemented new function GET checkAPIkeys
@ -106,7 +107,7 @@ use Time::Piece;
#use JSON qw(decode_json); #use JSON qw(decode_json);
use JSON; use JSON;
my $RenaultZE_version ="V1.13 / 31.10.2023"; my $RenaultZE_version ="V1.14 / 1.11.2023";
my %RenaultZE_sets = ( my %RenaultZE_sets = (
"AC:on,cancel" => "", "AC:on,cancel" => "",
@ -516,10 +517,6 @@ sub RenaultZE_Main3($) {
$res = RenaultZE_gData_Step1($hash,'charge-mode') if ($model ne "SPRING"); $res = RenaultZE_gData_Step1($hash,'charge-mode') if ($model ne "SPRING");
Log3 $name, 5, "RenaultZE_gData_Step1 - charge-mode - RC=".$res if ($model ne "SPRING"); Log3 $name, 5, "RenaultZE_gData_Step1 - charge-mode - RC=".$res if ($model ne "SPRING");
}, undef); }, undef);
# recalc distance from home an update home info & status
my $gpsLatitude = ReadingsVal($name,"gpsLatitude","empty");
my $gpsLongitude = ReadingsVal($name,"gpsLongitude","empty");
RenaultZE_distanceFromHome($hash,$gpsLatitude,$gpsLongitude);
} }
if ($key eq "GET_vehicles") if ($key eq "GET_vehicles")
@ -606,7 +603,7 @@ sub RenaultZE_Attr(@) {
$_[3] = $attrVal; $_[3] = $attrVal;
$hash->{".reset"} = 1 if defined($hash->{LPID}); $hash->{".reset"} = 1 if defined($hash->{LPID});
} }
elsif (($attrName eq "disabled") && ($attrVal == 1)) if (($attrName eq "disabled") && ($attrVal == 1))
{ {
readingsSingleUpdate($hash,"state","disabled",1); readingsSingleUpdate($hash,"state","disabled",1);
readingsSingleUpdate($hash,"ze_Step","RenaultZE ($name) is disabled",1); readingsSingleUpdate($hash,"ze_Step","RenaultZE ($name) is disabled",1);
@ -644,6 +641,16 @@ sub RenaultZE_Attr(@) {
InternalTimer($firstTrigger, "RenaultZE_UpdateTimer", $hash, 0); InternalTimer($firstTrigger, "RenaultZE_UpdateTimer", $hash, 0);
} }
} }
if ($attrName eq "ze_homeRadius")
{
my $gpsLatitude = ReadingsVal($name,"gpsLatitude","empty");
my $gpsLongitude = ReadingsVal($name,"gpsLongitude","empty");
my $homeRadius = 20; # defule radius
$homeRadius = $attrVal if ( $cmd eq "set" );
$homeRadius = 20 if ( $homeRadius eq "" ); # just in case
#Log3 $name, 5, "pre RenaultZE_distanceFromHome - In ".$cmd."/".$gpsLatitude." ".$gpsLongitude."/".$homeRadius;
RenaultZE_distanceFromHome($hash,$gpsLatitude,$gpsLongitude,$homeRadius);
}
return undef; return undef;
} }
@ -1062,7 +1069,7 @@ sub RenaultZE_gData_Step2($)
my $link = "<html><a href=\"https://www.google.com/maps/place/".$gpsLatitude.",".$gpsLongitude."\" target=\”_blank\”>Google Maps</a></html>"; my $link = "<html><a href=\"https://www.google.com/maps/place/".$gpsLatitude.",".$gpsLongitude."\" target=\”_blank\”>Google Maps</a></html>";
if ( $oldlat != $gpsLatitude or $oldlong != $gpsLongitude ) { if ( $oldlat != $gpsLatitude or $oldlong != $gpsLongitude ) {
Log3 $name, 5, "RenaultZE_gData_Step2 - GPS ".$oldlat."/".$gpsLatitude." ".$oldlong."/".$gpsLongitude; Log3 $name, 5, "RenaultZE_gData_Step2 - GPS ".$oldlat."/".$gpsLatitude." ".$oldlong."/".$gpsLongitude;
RenaultZE_distanceFromHome($hash,$gpsLatitude,$gpsLongitude); RenaultZE_distanceFromHome($hash,$gpsLatitude,$gpsLongitude,"auto");
} }
readingsBeginUpdate($hash); readingsBeginUpdate($hash);
readingsBulkUpdate($hash,"gpsLatitude",$gpsLatitude); readingsBulkUpdate($hash,"gpsLatitude",$gpsLatitude);
@ -1644,10 +1651,11 @@ sub RenaultZE_pp_err($$)
} }
return $output; return $output;
} }
sub RenaultZE_distanceFromHome($$$) sub RenaultZE_distanceFromHome($$$$)
{ {
my ($hash, $lat, $long) = @_; my ($hash, $lat, $long, $homeRadius) = @_;
my $name = $hash->{NAME}; my $name = $hash->{NAME};
Log3 $name, 5, "RenaultZE_distanceFromHome - In ".$hash."/".$lat." ".$long."/".$homeRadius;
my $hlong = AttrVal( $name, "ze_longitude", AttrVal( "global", "longitude", 0.0 ) ); my $hlong = AttrVal( $name, "ze_longitude", AttrVal( "global", "longitude", 0.0 ) );
my $hlat = AttrVal( $name, "ze_latitude", AttrVal( "global", "latitude", 0.0 ) ); my $hlat = AttrVal( $name, "ze_latitude", AttrVal( "global", "latitude", 0.0 ) );
@ -1669,7 +1677,8 @@ sub RenaultZE_distanceFromHome($$$)
my $dim = "km"; my $dim = "km";
my $homeinfo = ""; my $homeinfo = "";
my $homestate = "away"; my $homestate = "away";
my $homeRadius = AttrVal( $name, "ze_homeRadius", 20 ); $homeRadius = AttrVal( $name, "ze_homeRadius", 20 ) if ( $homeRadius eq "auto");
Log3 $name, 5, "RenaultZE_distanceFromHome - Check ".$hash."/".$lat." ".$long."/".$homeRadius;
if ($distance < $homeRadius) { if ($distance < $homeRadius) {
$distance = $distance * 1000; $distance = $distance * 1000;