ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-15 18:12:47 +03:00
Code Issues Packages Projects Releases Wiki Activity

implements safe re-binding, refactors |gcloud

Browse Source
This commit is contained in:
Joe Bryan 2018-06-20 16:58:47 -04:00
parent cd4330a024
commit 3b543b46de
1 changed files with 31 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

49
app/dns.hoon
View File

@ -39,6 +39,17 @@
|- ^- (list @t) |- ^- (list @t)
?~ t.hot hot ?~ t.hot hot
[i.hot sep $(hot t.hot)] [i.hot sep $(hot t.hot)]
:: +name: fully-qualified domain name
::
++ name
|= [him=ship dom=turf]
(cat 3 (join '.' [(crip +:(scow %p him)) (flop dom)]) '.')
:: +endpoint: append path to purl
::
++ endpoint
|= [bas=purl:eyre pat=path]
^+ bas
bas(q.q (weld q.q.bas pat))
:: +reserved: check if an ipv4 address is in a reserved range :: +reserved: check if an ipv4 address is in a reserved range
:: ::
++ reserved ++ reserved
@ -94,27 +105,23 @@
:: |gcloud: provider-specific functions :: |gcloud: provider-specific functions
:: ::
++ gcloud ++ gcloud
|% |_ aut=authority
:: +base: provider service endpoint :: +base: provider service endpoint
:: ::
++ base ++ base
(need (de-purl:html 'https://www.googleapis.com/dns/v1/projects')) (need (de-purl:html 'https://www.googleapis.com/dns/v1/projects'))
:: +name: fully-qualified domain name
::
++ name
|= [dom=turf him=ship]
(cat 3 (join '.' [(crip +:(scow %p him)) (flop dom)]) '.')
:: +record: JSON-formatted provider-specific dns record :: +record: JSON-formatted provider-specific dns record
:: ::
++ record ++ record
|= [dom=turf him=ship tar=target] |= [him=ship tar=target]
^- json ^- json
:: ?> ?=([%gcloud *] pro.aut)
=+ ^- [typ=cord dat=cord] =+ ^- [typ=cord dat=cord]
?: ?=(%direct -.tar) ?: ?=(%direct -.tar)
['A' (crip +:(scow %if p.tar))] ['A' (crip +:(scow %if p.tar))]
['CNAME' (name dom p.tar)] ['CNAME' (name p.tar dom.aut)]
:- %o %- my :~ :- %o %- my :~
name+s+(name dom him) name+s+(name him dom.aut)
type+s+typ type+s+typ
:: XX make configureable? :: XX make configureable?
ttl+n+~.300 ttl+n+~.300
@ -124,18 +131,21 @@
:: ::
++ request ++ request
=, eyre =, eyre
|= [dom=turf him=ship tar=target pro=provider] |= [him=ship tar=target pre=(unit target)]
^- hiss ^- hiss
?> ?=([%gcloud *] pro) :: ?> ?=([%gcloud *] pro.aut)
=/ url=purl =/ url=purl
=+ base %+ endpoint base
-(q.q (weld q.q.- /[project.pro]/['managedZones']/[zone.pro]/changes)) /[project.pro.aut]/['managedZones']/[zone.pro.aut]/changes
=/ hed=math =/ hed=math
(my content-type+['application/json' ~] ~) (my content-type+['application/json' ~] ~)
=/ bod=octs =/ bod=octs
%- as-octt:mimes:html %- as-octt:mimes:html
%- en-json:html %- en-json:html
o+(my additions+a+[(record dom him tar) ~] ~) :- %o %- my
:- additions+a+[(record him tar) ~]
?~ pre ~
[deletions+a+[(record him u.pre) ~] ~]
[url %post hed `bod] [url %post hed `bod]
-- --
-- --
@ -312,9 +322,8 @@
|= aut=authority |= aut=authority
:: ?> ?=(%gcloud pro.aut) :: ?> ?=(%gcloud pro.aut)
=/ wir=wire /authority/confirm =/ wir=wire /authority/confirm
=/ url=purl:eyre base:gcloud =/ url=purl:eyre
=. q.q.url %+ endpoint base:gcloud
%+ weld q.q.url
/[project.pro.aut]/['managedZones']/[zone.pro.aut] /[project.pro.aut]/['managedZones']/[zone.pro.aut]
~& url ~& url
%- emit(nam [aut ~ ~]) %- emit(nam [aut ~ ~])
@ -329,8 +338,12 @@
== ==
=/ wir=wire =/ wir=wire
/authority/create/(scot %p him)/for/(scot %p for) /authority/create/(scot %p him)/for/(scot %p for)
=/ pre=(unit target)
=/ bon=(unit bound) (~(get by bon.nam) him)
?~(bon ~ `cur.u.bon)
:: ?> ?=(%gcloud pro.aut.nam)
=/ req=hiss:eyre =/ req=hiss:eyre
(request:gcloud dom.aut.nam him tar pro.aut.nam) (~(request gcloud aut.nam) him tar pre)
%- emit(pen.nam (~(put by pen.nam) him tar)) :: XX save for %- emit(pen.nam (~(put by pen.nam) him tar)) :: XX save for
[%hiss wir [~ ~] %httr %hiss req] [%hiss wir [~ ~] %httr %hiss req]
:: +confirm: successfully bound :: +confirm: successfully bound