diff --git a/app/dns.hoon b/app/dns.hoon index fb7540f57..cae867d36 100644 --- a/app/dns.hoon +++ b/app/dns.hoon @@ -149,19 +149,8 @@ ++ poke-noun |= a=* ^- (quip move _this) - ?+ a ~& +<+:this - [~ this] - :: - %aut - :_ this :_ ~ - :* ost.bow - %poke - /foo - [our.bow dap.bow] - %dns-authority - [/org/urbit/dyndns %gcloud %tonal-griffin-853 %dyndns] - == - == + ~& +<+:this + [~ this] :: +sigh-httr: accept http response :: ++ sigh-httr diff --git a/gen/dns/authority.hoon b/gen/dns/authority.hoon new file mode 100644 index 000000000..b7daed631 --- /dev/null +++ b/gen/dns/authority.hoon @@ -0,0 +1,30 @@ +:: 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] diff --git a/lib/hood/drum.hoon b/lib/hood/drum.hoon index 2cf9b00b9..7ac3f3c64 100644 --- a/lib/hood/drum.hoon +++ b/lib/hood/drum.hoon @@ -80,7 +80,12 @@ =+ myr=(clan:title our) ?: ?=($pawn myr) [[%base %collections] [%base %hall] [%base %talk] [%base %dojo] ~] - [[%home %collections] [%home %hall] [%home %talk] [%home %dojo] ~] + :~ [%home %collections] + [%home %dns] + [%home %dojo] + [%home %hall] + [%home %talk] + == :: ++ deft-fish :: default connects |= our/ship