updates %eyre to get domains from jael
so that galaxies automatically get ACME certificates
== ==
$: $g :: to %gall
$% {$deal p/sock q/cush:gall} :: full transmission
+ == == ::
+ $: %j :: to %jael
+ $% [%turf ~] :: view domains
== == == ::
++ sign :: in result $<-
$% $: $a :: by %ames
$: $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)} ::
== == == ::
?- -.kyz
$born
:: XX capture IPs too
- =/ mod/(set (list @t))
- %- ~(gas in *(set (list @t)))
+ :: 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))
=? 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]])
+>.$(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)
::
$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
$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)
