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

Fixed RFID Pairing command. Added command descriptions in lastResponse Tag

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

39
98_EaseeWallbox.pm
View File

@ -185,6 +185,7 @@ my %phaseModes = (
3 => 'Locked to three phase', 3 => 'Locked to three phase',
); );
my %operationModes = ( my %operationModes = (
0 => "Disconnected",
1 => "Standby", 1 => "Standby",
2 => "Paused", 2 => "Paused",
3 => 'Charging', 3 => 'Charging',
@ -193,6 +194,33 @@ my %operationModes = (
6 => 'CarConnected' 6 => 'CarConnected'
); );
my %commandCodes = (
1 => "Reboot",
2 => "Poll single observation",
3 => "Poll all observations",
4 => "Upgrade Firmware",
5 => "Download settings",
7 => "Scan Wifi",
11 => "Set smart charging",
23 => "Abort charging",
25 => "Start Charging",
26 => "Stop Charging",
29 => "Set enabled",
30 => "Set cable lock",
11 => "Set smart charging",
40 => "Set lightstripe brightness",
43 => "Add keys",
44 => "Clear keys",
48 => "Pause/Resume/Toggle Charging",
60 => "Add schedule",
61 => "Cear Schedule",
62 => "Get Schedule",
63 => "Override Schedule",
64 => "Purge Schedule",
69 => "Set RFID Pairing Mode",
);
#Private function to evaluate command-lists #Private function to evaluate command-lists
# private funktionen beginnen immer mit _ # private funktionen beginnen immer mit _
@ -408,6 +436,14 @@ sub Set {
$message{'costPerKWh'} = shift @param; $message{'costPerKWh'} = shift @param;
WriteToCloudAPI($hash, 'setChargingPrice', 'POST', \%message) WriteToCloudAPI($hash, 'setChargingPrice', 'POST', \%message)
} }
elsif ( $opt eq "pairRfidTag" ) {
my $timeout = shift @param;
#if (defined $timeout and /^\d+$/) { print "is a whole number\n" }
$timeout = '60' if not defined $timeout or $timeout = '';
my %message;
$message{'timeout'} = "60";
WriteToCloudAPI($hash, 'setPairRFIDTag', 'POST', \%message)
}
else else
{ {
$hash->{LOCAL} = 1; $hash->{LOCAL} = 1;
@ -418,7 +454,6 @@ sub Set {
WriteToCloudAPI($hash, 'setToggleCharging', 'POST') if $opt eq 'toggleCharging'; WriteToCloudAPI($hash, 'setToggleCharging', 'POST') if $opt eq 'toggleCharging';
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, 'setPairRFIDTag', 'POST') if $opt eq 'pairRfidTag';
WriteToCloudAPI($hash, 'setReboot', 'POST') if $opt eq 'reboot'; WriteToCloudAPI($hash, 'setReboot', 'POST') if $opt eq 'reboot';
WriteToCloudAPI($hash, 'tobedone', 'POST') if $opt eq 'enableSmartCharging'; WriteToCloudAPI($hash, 'tobedone', 'POST') if $opt eq 'enableSmartCharging';
_loadToken($hash) if $opt eq 'refreshToken'; _loadToken($hash) if $opt eq 'refreshToken';
@ -702,7 +737,7 @@ sub ResponseHandling {
return undef; return undef;
} }
readingsSingleUpdate( $hash, "lastResponse", 'OK - Action '. $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;
} else { } else {