Send the delegation message to dnsmanagerd.
This commit is contained in:
parent
d6249f363c
commit
7c4c024cd1
2 changed files with 13 additions and 3 deletions
|
@ -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)
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Add table
Reference in a new issue