mirror of
https://github.com/urbit/shrub.git
synced 2024-12-21 18:01:32 +03:00
31 lines
632 B
Plaintext
31 lines
632 B
Plaintext
|
:: DNS: configure zone authority
|
||
|
|
::
|
||
|
|
:::: /hoon/authority/dns/gen
|
||
|
|
::
|
||
|
|
/- dns, sole
|
||
|
|
=, [dns sole]
|
||
|
|
:- %ask
|
||
|
|
|= $: [now=@da eny=@uvJ bec=beak]
|
||
|
|
[arg=$@(~ [dom=path ~])]
|
||
|
|
~
|
||
|
|
==
|
||
|
|
^- (sole-result [%dns-authority authority])
|
||
|
|
=- ?~ arg -
|
||
|
|
(fun.q.q [%& dom.arg])
|
||
|
|
%+ sole-lo
|
||
|
|
[%& %dns-domain "dns domain: "]
|
||
|
|
%+ sole-go thos:de-purl:html
|
||
|
|
|= hot=host:eyre
|
||
|
|
?: ?=($| -.hot)
|
||
|
|
~|(%ips-unsupported !!)
|
||
|
|
%+ sole-lo
|
||
|
|
[%& %project "gcloud project: "]
|
||
|
|
%+ sole-go urs:ab
|
||
|
|
|= project=@ta
|
||
|
|
%+ sole-lo
|
||
|
|
[%& %zone "dns zone: "]
|
||
|
|
%+ sole-go urs:ab
|
||
|
|
|= zone=@ta
|
||
|
|
%+ sole-so %dns-authority
|
||
|
|
[p.hot %gcloud project zone]
|