From 736d7a4de7b0bff04f30c19ec07dd378a5c80052 Mon Sep 17 00:00:00 2001
From: Matthias Sandmann <matthiassandmann@Matthiass-MacBook-Air-2.local>
Date: Sat, 19 Mar 2022 15:19:19 +0100
Subject: [PATCH] Fixed RFID Pairing command. Added command descriptions in
 lastResponse Tag

---
 98_EaseeWallbox.pm | 41 ++++++++++++++++++++++++++++++++++++++---
 1 file changed, 38 insertions(+), 3 deletions(-)

diff --git a/98_EaseeWallbox.pm b/98_EaseeWallbox.pm
index f2b9820..a696a39 100644
--- a/98_EaseeWallbox.pm
+++ b/98_EaseeWallbox.pm
@@ -185,6 +185,7 @@ my %phaseModes = (
     3 => 'Locked to three phase',
 );
 my %operationModes = (
+    0 => "Disconnected",
     1 => "Standby",
     2 => "Paused",
     3 => 'Charging',
@@ -193,6 +194,33 @@ my %operationModes = (
     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 funktionen beginnen immer mit _
 
@@ -408,6 +436,14 @@ sub Set {
         $message{'costPerKWh'} = shift @param;
         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 
     {
         $hash->{LOCAL} = 1;
@@ -417,8 +453,7 @@ sub Set {
         WriteToCloudAPI($hash, 'setResumeCharging', 'POST')        if $opt eq 'resumeCharging';
         WriteToCloudAPI($hash, 'setToggleCharging', 'POST')        if $opt eq 'toggleCharging';      
         WriteToCloudAPI($hash, 'setUpdateFirmware', 'POST')        if $opt eq 'updateFirmware';
-        WriteToCloudAPI($hash, 'setOverrideChargingSchedule', 'POST')        if $opt eq 'overrideChargingSchedule';
-        WriteToCloudAPI($hash, 'setPairRFIDTag', 'POST')           if $opt eq 'pairRfidTag';     
+        WriteToCloudAPI($hash, 'setOverrideChargingSchedule', 'POST')        if $opt eq 'overrideChargingSchedule';    
         WriteToCloudAPI($hash, 'setReboot', 'POST')                                   if $opt eq 'reboot';
         WriteToCloudAPI($hash, 'tobedone', 'POST')                                    if $opt eq 'enableSmartCharging';
         _loadToken($hash)                                                            if $opt eq 'refreshToken';   
@@ -702,7 +737,7 @@ sub ResponseHandling {
                 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};
             return undef;
         }  else {