marko/easee
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

added led brightness cmd and fixed date and time issues

Browse Source
This commit is contained in:
Matthias Sandmann 2022-03-20 20:48:37 +01:00
parent a6a6105a6e
commit 1d86d6d756
1 changed files with 25 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
98_EaseeWallbox.pm
View File

@ -127,6 +127,7 @@ my %sets = (
reboot => "noArg", reboot => "noArg",
updateFirmware => "noArg", updateFirmware => "noArg",
enableSmartCharging => "true,false", enableSmartCharging => "true,false",
ledStripBrightness => "",
overrideChargingSchedule => "", overrideChargingSchedule => "",
pairRfidTag => "", pairRfidTag => "",
pricePerKWH => "", pricePerKWH => "",
@ -474,6 +475,11 @@ sub Set {
$message{'smartButtonEnabled'} = shift @param; $message{'smartButtonEnabled'} = shift @param;
WriteToCloudAPI($hash, 'changeChargerSettings', 'POST', \%message) WriteToCloudAPI($hash, 'changeChargerSettings', 'POST', \%message)
} }
elsif ( $opt eq "ledStripBrightness" ) {
my %message;
$message{'ledStripBrightness'} = shift @param;
WriteToCloudAPI($hash, 'changeChargerSettings', 'POST', \%message)
}
else else
{ {
$hash->{LOCAL} = 1; $hash->{LOCAL} = 1;
@ -503,6 +509,7 @@ sub RefreshData{
WriteToCloudAPI($hash, 'getChargerSite', 'GET'); WriteToCloudAPI($hash, 'getChargerSite', 'GET');
WriteToCloudAPI($hash, 'getChargerState', 'GET'); WriteToCloudAPI($hash, 'getChargerState', 'GET');
WriteToCloudAPI($hash, 'getCurrentSession', 'GET'); WriteToCloudAPI($hash, 'getCurrentSession', 'GET');
WriteToCloudAPI($hash, 'getChargerConfiguration', 'GET');
WriteToCloudAPI($hash, 'getChargerSessionsMonthly', 'GET'); WriteToCloudAPI($hash, 'getChargerSessionsMonthly', 'GET');
WriteToCloudAPI($hash, 'getChargerSessionsDaily', 'GET'); WriteToCloudAPI($hash, 'getChargerSessionsDaily', 'GET');
} }
@ -699,15 +706,15 @@ sub ResponseHandling {
if($param->{dpoint} eq 'getChargerConfiguration') if($param->{dpoint} eq 'getChargerConfiguration')
{ {
readingsBeginUpdate($hash); readingsBeginUpdate($hash);
readingsBulkUpdate( $hash, "charger_isEnabled", $d->{isEnabled} ); readingsBulkUpdate( $hash, "isEnabled", $d->{isEnabled} );
readingsBulkUpdate( $hash, "lockCablePermanently", $d->{lockCablePermanently} ); readingsBulkUpdate( $hash, "isCablePermanentlyLocked", $d->{lockCablePermanently} );
readingsBulkUpdate($hash, "authorizationRequired", $d->{authorizationRequired}); readingsBulkUpdate($hash, "isAuthorizationRequired", $d->{authorizationRequired});
readingsBulkUpdate( $hash, "remoteStartRequired", $d->{remoteStartRequired} ); readingsBulkUpdate( $hash, "isRemoteStartRequired", $d->{remoteStartRequired} );
readingsBulkUpdate( $hash, "smartButtonEnabled", $d->{smartButtonEnabled} ); readingsBulkUpdate( $hash, "isSmartButtonEnabled", $d->{smartButtonEnabled} );
readingsBulkUpdate( $hash, "wiFiSSID", $d->{wiFiSSID} ); readingsBulkUpdate( $hash, "wiFiSSID", $d->{wiFiSSID} );
readingsBulkUpdate( $hash, "charger_phaseModeId", $d->{phaseMode} ); readingsBulkUpdate( $hash, "phaseModeId", $d->{phaseMode} );
readingsBulkUpdate( $hash, "charger_phaseMode",$phaseModes{ $d->{phaseMode} } ); readingsBulkUpdate( $hash, "phaseMode",$phaseModes{ $d->{phaseMode} } );
readingsBulkUpdate($hash, "localAuthorizationRequired",$d->{localAuthorizationRequired}); readingsBulkUpdate($hash, "isLocalAuthorizationRequired",$d->{localAuthorizationRequired});
readingsBulkUpdate( $hash, "maxChargerCurrent", $d->{maxChargerCurrent} ); readingsBulkUpdate( $hash, "maxChargerCurrent", $d->{maxChargerCurrent} );
readingsBulkUpdate( $hash, "ledStripBrightness", $d->{ledStripBrightness} ); readingsBulkUpdate( $hash, "ledStripBrightness", $d->{ledStripBrightness} );
#readingsBulkUpdate( $hash, "charger_offlineChargingMode", #readingsBulkUpdate( $hash, "charger_offlineChargingMode",
@ -759,11 +766,15 @@ sub ResponseHandling {
{ {
readingsBeginUpdate($hash); readingsBeginUpdate($hash);
readingsBulkUpdate( $hash, "session_energy", sprintf("%.2f",$d->{sessionEnergy}) ); readingsBulkUpdate( $hash, "session_energy", sprintf("%.2f",$d->{sessionEnergy}) );
readingsBulkUpdate( $hash, "session_start", _transcodeDate($d->{sessionStart}) ); my $value = defined $d->{sessionStart} ? _transcodeDate($d->{sessionStart}) : 'N/A';
readingsBulkUpdate( $hash, "session_end", _transcodeDate($d->{sessionEnd}) ); readingsBulkUpdate( $hash, "session_start", $value );
my $value = defined $d->{sessionEnd} ? _transcodeDate($d->{sessionEnd}) : 'N/A';
readingsBulkUpdate( $hash, "session_end", $value );
readingsBulkUpdate( $hash, "session_chargeDurationInSeconds", $d->{chargeDurationInSeconds} ); readingsBulkUpdate( $hash, "session_chargeDurationInSeconds", $d->{chargeDurationInSeconds} );
readingsBulkUpdate( $hash, "session_firstEnergyTransfer", _transcodeDate($d->{firstEnergyTransferPeriodStart}) ); my $value = defined $d->{firstEnergyTransferPeriodStart} ? _transcodeDate($d->{firstEnergyTransferPeriodStart}) : 'N/A';
readingsBulkUpdate( $hash, "session_lastEnergyTransfer", $d->{lastEnergyTransferPeriodStart} ); readingsBulkUpdate( $hash, "session_firstEnergyTransfer", $value );
my $value = defined $d->{lastEnergyTransferPeriodStart} ? _transcodeDate($d->{lastEnergyTransferPeriodStart}) : 'N/A';
readingsBulkUpdate( $hash, "session_lastEnergyTransfer", $value );
readingsBulkUpdate( $hash, "session_pricePerKWH", $d->{pricePrKwhIncludingVat} ); readingsBulkUpdate( $hash, "session_pricePerKWH", $d->{pricePrKwhIncludingVat} );
readingsBulkUpdate( $hash, "session_chargingCost", sprintf("%.2f",$d->{costIncludingVat}) ); readingsBulkUpdate( $hash, "session_chargingCost", sprintf("%.2f",$d->{costIncludingVat}) );
readingsBulkUpdate( $hash, "session_id", $d->{sessionId} ); readingsBulkUpdate( $hash, "session_id", $d->{sessionId} );
@ -792,7 +803,7 @@ sub ResponseHandling {
readingsBeginUpdate($hash); readingsBeginUpdate($hash);
readingsBulkUpdate( $hash, "operationModeCode", $d->{chargerOpMode} ); readingsBulkUpdate( $hash, "operationModeCode", $d->{chargerOpMode} );
readingsBulkUpdate( $hash, "operationMode", $operationModes{ $d->{chargerOpMode} } ); readingsBulkUpdate( $hash, "operationMode", $operationModes{ $d->{chargerOpMode} } );
readingsBulkUpdate( $hash, "power", $d->{totalPower} ); readingsBulkUpdate( $hash, "power", sprintf("%.2f",$d->{totalPower}) );
readingsBulkUpdate( $hash, "kWhInSession", sprintf("%.2f",$d->{sessionEnergy}) ); readingsBulkUpdate( $hash, "kWhInSession", sprintf("%.2f",$d->{sessionEnergy}) );
readingsBulkUpdate( $hash, "phase", $d->{outputPhase} ); readingsBulkUpdate( $hash, "phase", $d->{outputPhase} );
readingsBulkUpdate( $hash, "latestPulse", _transcodeDate($d->{latestPulse}) ); readingsBulkUpdate( $hash, "latestPulse", _transcodeDate($d->{latestPulse}) );
@ -1043,6 +1054,7 @@ sub _decrypt($) {
sub _transcodeDate{ sub _transcodeDate{
my $datestr = shift; my $datestr = shift;
Log3 'EaseeWallbox', 5, 'date to parse: ' . $datestr;
my $strp = DateTime::Format::Strptime->new(on_error=>'croak', my $strp = DateTime::Format::Strptime->new(on_error=>'croak',
pattern => '%Y-%m-%dT%H:%M:%S%z'); pattern => '%Y-%m-%dT%H:%M:%S%z');
my $dt = $strp->parse_datetime($datestr); my $dt = $strp->parse_datetime($datestr);