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

implemented enable smartCharging and fixed issue in return evaluation in case of empty response.

Browse Source
This commit is contained in:
Matthias Sandmann 2022-03-19 15:32:48 +01:00
parent 736d7a4de7
commit dbf7fb844e
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
98_EaseeWallbox.pm
View File

@ -444,6 +444,11 @@ sub Set {
$message{'timeout'} = "60"; $message{'timeout'} = "60";
WriteToCloudAPI($hash, 'setPairRFIDTag', 'POST', \%message) WriteToCloudAPI($hash, 'setPairRFIDTag', 'POST', \%message)
} }
elsif ( $opt eq "enableSmartCharging" ) {
my %message;
$message{'smartCharging'} = shift @param;
WriteToCloudAPI($hash, 'changeChargerSettings', 'POST', \%message)
}
else else
{ {
$hash->{LOCAL} = 1; $hash->{LOCAL} = 1;
@ -455,7 +460,6 @@ sub Set {
WriteToCloudAPI($hash, 'setUpdateFirmware', 'POST') if $opt eq 'updateFirmware'; WriteToCloudAPI($hash, 'setUpdateFirmware', 'POST') if $opt eq 'updateFirmware';
WriteToCloudAPI($hash, 'setOverrideChargingSchedule', 'POST') if $opt eq 'overrideChargingSchedule'; WriteToCloudAPI($hash, 'setOverrideChargingSchedule', 'POST') if $opt eq 'overrideChargingSchedule';
WriteToCloudAPI($hash, 'setReboot', 'POST') if $opt eq 'reboot'; WriteToCloudAPI($hash, 'setReboot', 'POST') if $opt eq 'reboot';
WriteToCloudAPI($hash, 'tobedone', 'POST') if $opt eq 'enableSmartCharging';
_loadToken($hash) if $opt eq 'refreshToken'; _loadToken($hash) if $opt eq 'refreshToken';
delete $hash->{LOCAL}; delete $hash->{LOCAL};
} }
@ -600,7 +604,7 @@ sub ResponseHandling {
eval { eval {
my $d = decode_json($data); my $d = decode_json($data);
Log3 $name, 5, 'Decoded: ' . Dumper($d); Log3 $name, 5, 'Decoded: ' . Dumper($d);
if ( defined $d and $d ne '') { if ( defined $d and $d ne '' and ref($d) eq "HASH") {
if($param->{dpoint} eq 'getChargers') if($param->{dpoint} eq 'getChargers')
{ {
@ -736,7 +740,6 @@ sub ResponseHandling {
readingsEndUpdate( $hash, 1 ); readingsEndUpdate( $hash, 1 );
return undef; return undef;
} }
readingsSingleUpdate( $hash, "lastResponse", 'OK - Action: '. $commandCodes{$d->{commandId}}, 1 ) if defined $d->{commandId}; readingsSingleUpdate( $hash, "lastResponse", 'OK - Action: '. $commandCodes{$d->{commandId}}, 1 ) if defined $d->{commandId};
readingsSingleUpdate( $hash, "lastResponse", 'ERROR: '. $d->{title}.' ('.$d->{status}.')', 1 ) if defined $d->{status} and defined $d->{title}; readingsSingleUpdate( $hash, "lastResponse", 'ERROR: '. $d->{title}.' ('.$d->{status}.')', 1 ) if defined $d->{status} and defined $d->{title};
return undef; return undef;