Send the delegation message to dnsmanagerd.

This commit is contained in:
Philippe Pittoli 2025-07-15 01:27:29 +02:00
parent d6249f363c
commit 7c4c024cd1
2 changed files with 13 additions and 3 deletions

View file

@ -598,6 +598,9 @@ act_on_page_event page_event = case page_event of
PageZone.AskSaveRR domain rr -> do
message <- H.liftEffect $ DNSManager.serialize $ DNSManager.MkUpdateRR { domain, rr }
H.tell _ws_dns unit (WS.ToSend message)
PageZone.AskSaveDelegation domain nameserver1 nameserver2 -> do
message <- H.liftEffect $ DNSManager.serialize $ DNSManager.MkDelegateDomain { domain, nameserver1, nameserver2 }
H.tell _ws_dns unit (WS.ToSend message)
PageZone.AskAddRR domain rr -> do
message <- H.liftEffect $ DNSManager.serialize $ DNSManager.MkAddRR { domain, rr }
H.tell _ws_dns unit (WS.ToSend message)

View file

@ -70,6 +70,7 @@ data Output
| AskNewToken String Int
| AskDeleteRR String Int
| AskSaveRR String ResourceRecord
| AskSaveDelegation String String String
| AskAddRR String ResourceRecord
| AskGetZone String
@ -441,8 +442,6 @@ handleAction = case _ of
-- | Validate the delegation of the domain.
ValidateDelegation -> do
H.raise $ Log $ SystemLog "Validate the delegation"
state <- H.get
case ValidationDelegation.validation state._delegation_form of
@ -454,7 +453,15 @@ handleAction = case _ of
-- | Save the delegation of the domain.
SaveDelegation -> do
H.raise $ Log $ SystemLog "Save the delegation"
state <- H.get
let df = state._delegation_form
H.raise $ Log $ SystemLog
$ "Asking the domain '" <> state._domain
<> "' to be delegated (to '"
<> df.nameserver1 <> "' and '" <> df.nameserver2
<> "')"
H.raise $ AskSaveDelegation state._domain df.nameserver1 df.nameserver2
H.modify_ _ { rr_modal = NoModal }
NewToken rr_id -> do
{ _domain } <- H.get