automatically realize galaxy domain bindings on %ames domains

This commit is contained in:
Joe Bryan 2019-03-28 11:51:48 -07:00
parent 8671bf6c25
commit 3db03a1d44
2 changed files with 19 additions and 3 deletions

View File

@ -724,11 +724,23 @@
:: XX this binding should be deleted when we're done
:: but that would require tracking bones
::
=/ =move
=| mov=(list move)
=. mov
:_ mov
[ost.bow %connect /dns/oauth [~ /dns/oauth] %dns]
:: XX also print :dns|ip config instructions for stars?
:: galaxies must already have dns bindings on *all* ames domains
::
[[move ~] this]
=? mov ?=(%czar (clan:title our.bow))
%+ weld mov
%+ turn
.^((list turf) %j /(scot %p our.bow)/turf/(scot %da now.bow))
|= =turf
^- move
=/ full (weld turf /(crip +:(scow %p our.bow)))
[ost.bow %rule /bound %turf %put full]
:: XX print :dns|ip config instructions for stars?
::
[mov this]
::
++ bound
|= [=wire accepted=? =binding:http-server]

View File

@ -2443,6 +2443,10 @@
?: =(~ snaps.sap.lex)
snap.snap
$
::
%turf
?. ?=(~ tyl) [~ ~]
[~ ~ %noun !>(tuf.own.sub.lex)]
==
:: :: ++stay
++ stay :: preserve