From 0793b2c8780849d36fc2e9512435a29cfbd6b0f0 Mon Sep 17 00:00:00 2001
From: Philippe Pittoli <karchnu@karchnu.fr>
Date: Sat, 24 Feb 2024 20:37:46 +0100
Subject: [PATCH] InsufficientRights

---
 src/App/Container.purs                 | 2 ++
 src/App/Messages/DNSManagerDaemon.purs | 7 +++++++
 2 files changed, 9 insertions(+)

diff --git a/src/App/Container.purs b/src/App/Container.purs
index b1684e7..8bc6afc 100644
--- a/src/App/Container.purs
+++ b/src/App/Container.purs
@@ -599,6 +599,8 @@ handleAction = case _ of
             handleAction $ Log $ ErrorLog $ "MkUnknownUser"
           (DNSManager.MkNoOwnership _) -> do
             handleAction $ Log $ ErrorLog $ "MkNoOwnership"
+          (DNSManager.MkInsufficientRights _) -> do
+            handleAction $ Log $ ErrorLog $ "You do not have sufficient rights."
           -- The authentication failed.
           (DNSManager.MkError errmsg) -> do
             handleAction $ Log $ ErrorLog $ "reason is: " <> errmsg.reason
diff --git a/src/App/Messages/DNSManagerDaemon.purs b/src/App/Messages/DNSManagerDaemon.purs
index d7f8c88..fc184ed 100644
--- a/src/App/Messages/DNSManagerDaemon.purs
+++ b/src/App/Messages/DNSManagerDaemon.purs
@@ -225,6 +225,11 @@ type NoOwnership = { }
 codecNoOwnership ∷ CA.JsonCodec NoOwnership
 codecNoOwnership = CA.object "NoOwnership" (CAR.record { })
 
+{- 52  -}
+type InsufficientRights = { }
+codecInsufficientRights ∷ CA.JsonCodec InsufficientRights
+codecInsufficientRights = CA.object "InsufficientRights" (CAR.record { })
+
 {- 250 -}
 --type KeepAlive = { }
 --codecKeepAlive ∷ CA.JsonCodec KeepAlive
@@ -272,6 +277,7 @@ data AnswerMessage
   | MkRRReadOnly          RRReadOnly          -- 22
   | MkUnknownUser         UnknownUser         -- 50
   | MkNoOwnership         NoOwnership         -- 51
+  | MkInsufficientRights  InsufficientRights  -- 52
   | GotKeepAlive          KeepAlive           -- 250
 
 encode ∷ RequestMessage -> Tuple UInt String
@@ -324,6 +330,7 @@ decode number string
     22  -> error_management codecRRReadOnly          MkRRReadOnly
     50  -> error_management codecUnknownUser         MkUnknownUser
     51  -> error_management codecNoOwnership         MkNoOwnership
+    52  -> error_management codecInsufficientRights  MkInsufficientRights
     250 -> error_management codecKeepAlive           GotKeepAlive
     _  -> Left UnknownNumber
   where