2018-06-20 23:06:00 +03:00
|
|
|
:: DNS: configure zone authority
|
|
|
|
|
::
|
|
|
|
|
:::: /hoon/authority/dns/gen
|
|
|
|
|
::
|
2018-10-30 22:05:42 +03:00
|
|
|
/- *dns, *sole
|
|
|
|
|
/+ *generators
|
2018-06-20 23:06:00 +03:00
|
|
|
:- %ask
|
|
|
|
|
|= $: [now=@da eny=@uvJ bec=beak]
|
2018-10-30 22:05:42 +03:00
|
|
|
[arg=$@(~ [dom=turf ~])]
|
2018-06-20 23:06:00 +03:00
|
|
|
~
|
|
|
|
|
==
|
2018-10-30 22:05:42 +03:00
|
|
|
^- (sole-result [%dns-command %authority authority])
|
2018-06-20 23:06:00 +03:00
|
|
|
=- ?~ arg -
|
|
|
|
|
(fun.q.q [%& dom.arg])
|
2018-10-02 22:26:16 +03:00
|
|
|
%+ prompt
|
2018-06-20 23:06:00 +03:00
|
|
|
[%& %dns-domain "dns domain: "]
|
2018-10-02 22:26:16 +03:00
|
|
|
%+ parse thos:de-purl:html
|
2018-06-20 23:06:00 +03:00
|
|
|
|= hot=host:eyre
|
2018-08-28 20:08:04 +03:00
|
|
|
?: ?=(%| -.hot)
|
2018-06-20 23:06:00 +03:00
|
|
|
~|(%ips-unsupported !!)
|
2018-10-02 22:26:16 +03:00
|
|
|
%+ prompt
|
2018-06-20 23:06:00 +03:00
|
|
|
[%& %project "gcloud project: "]
|
2018-10-02 22:26:16 +03:00
|
|
|
%+ parse urs:ab
|
2018-06-20 23:06:00 +03:00
|
|
|
|= project=@ta
|
2018-10-02 22:26:16 +03:00
|
|
|
%+ prompt
|
2018-06-20 23:06:00 +03:00
|
|
|
[%& %zone "dns zone: "]
|
2018-10-02 22:26:16 +03:00
|
|
|
%+ parse urs:ab
|
2018-06-20 23:06:00 +03:00
|
|
|
|= zone=@ta
|
2018-10-30 22:05:42 +03:00
|
|
|
%- produce
|
|
|
|
|
[%dns-command %authority [p.hot %gcloud project zone]]
|
