urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2025-01-05 19:46:50 +03:00
Code Issues Packages Projects Releases Wiki Activity

updates %eyre to get domains from jael

Browse Source 
so that galaxies automatically get ACME certificates
This commit is contained in:
Joe Bryan 2018-10-12 13:47:09 -04:00
parent 8f70f09950
commit cf06e987bb
1 changed files with 35 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
sys/vane/eyre.hoon
View File

@ -34,6 +34,9 @@
== ==
$: $g :: to %gall
$% {$deal p/sock q/cush:gall} :: full transmission
== == ::
$: %j :: to %jael
$% [%turf ~] :: view domains
== == == ::
++ sign :: in result $<-
$% $: $a :: by %ames
@ -52,6 +55,9 @@
$: $f
$% [%made date=@da result=made-result:ford] ::
== ==
$: %j :: from %jael
$% [%turf turf=(list turf)] :: bind to domains
== == ::
$: @tas :: by any
$% {$crud p/@tas q/(list tank)} ::
== == == ::
@ -673,9 +679,11 @@
=. p.top our :: XX necessary?
?- -.kyz
$born
:: XX capture IPs too
=/ mod/(set (list @t))
%- ~(gas in *(set (list @t)))
:: XX capture IPs too
:: XX continue to support turf in %born? (currently unused)
::
=/ mod/(set turf)
%- ~(gas in *(set turf))
%+ turn
(skim p.kyz |=(a=host ?=(%& -.a)))
|=(a=host ?>(?=(%& -.a) p.a))
@ -684,6 +692,8 @@
=? mow ?=(^ dif)
=/ cmd [%acme %poke `cage`[%acme-order !>(dom)]]
:_(mow [hen %pass /acme/order %g %deal [our our] cmd])
=? mow ?=(%czar (clan:title our))
:_(mow [hen %pass / %j %turf ~])
%= +>.$
ged hen :: register external
mow :_(mow [hen [%give %form fig]])
@ -700,7 +710,7 @@
+>.$(mow :_(mow [ged [%give %form fig]]))
::
$turf
=/ mod/(set (list @t))
=/ mod/(set turf)
?: ?=(%put p.p.kyz)
(~(put in dom) q.p.kyz)
(~(del in dom) q.p.kyz)
@ -721,8 +731,11 @@
::
$init :: register ownership
=. our ?~(hov p.kyz (min u.hov p.kyz))
=. fig [~ ?=(%king (clan:title our)) & &]
+>.$(hov [~ our], top [[our %home ud+0] /web])
%= +>.$
fig [~ ?=(%king (clan:title our)) & &]
hov [~ our]
top [[our %home ud+0] /web]
==
::
?($chis $this) :: inbound request
%- emule |. ^+ ..apex
@ -927,6 +940,22 @@
$hi (cast-thou q.tee httr+!>(p.sih))
$se (get-thou:(dom-vi q.tee) p.tee p.sih)
==
::
$turf
?. ?=(%czar (clan:title our))
~& %strange-turf
+>.$
=/ mod/(set turf)
%- ~(gas in dom)
%+ turn turf.sih
|=(a=turf (weld a /(crip +:(scow %p our))))
?: =(dom mod)
+>.$
=/ cmd [%acme %poke `cage`[%acme-order !>(mod)]]
%= +>.$
dom mod
mow :_(mow [hen %pass /acme/order %g %deal [our our] cmd])
==
::
$unto :: app response
?> ?=({$of @ ^} tee)