ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-11-13 08:38:43 +03:00
Code Issues Packages Projects Releases Wiki Activity

Merge pull request #880 from urbit/eyre-born-clean

Browse Source 
refactors %eyre %born task, prunes pending requests
This commit is contained in:
Joe Bryan 2018-11-06 16:24:20 -05:00 committed by GitHub
commit bbb50a874e
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 39 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
sys/vane/eyre.hoon
View File

@ -678,9 +678,45 @@
=. our ?~(hov our u.hov) :: XX
=. p.top our :: XX necessary?
?- -.kyz
:: new unix process - learn of first boot or a restart.
::
$born
:: XX capture IPs too
:: XX continue to support turf in %born? (currently unused)
:: save outgoing duct
::
=. ged hen
:: give %form to start servers
::
=. mow :_(mow [hen [%give %form fig]])
:: kill active incoming requests
::
=. +>.$
=/ fok=(list duct) ~(tap in ~(key by lyv))
|- ^+ +>.^$
?~ fok +>.^$
%= $
fok t.fok
+>.^$ ^$(hen i.fok, kyz [%thud ~])
==
:: kill active outgoing requests
::
=. +>.$
=/ fok=(list duct) ~(tap in ~(key by kes))
|- ^+ +>.^$
?~ fok +>.^$
%= $
fok t.fok
+>.^$ ^$(hen i.fok, kyz [%them ~])
==
:: if galaxy, request %ames domain from %jael
::
:: %jael response handled in $turf branch of +axon.
::
=? mow ?=(%czar (clan:title our)) :_(mow [hen %pass / %j %turf ~])
:: learn externally known domain names
::
:: If any are new, request certificate. XX currently unused. remove?
:: XX %born card also includes locally-known IPs. use for DNS?
::
::
=/ mod/(set turf)
%- ~(gas in *(set turf))
@ -692,12 +728,7 @@
=? 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]])
==
+>.$
::
$live
+>.$(clr.por p.kyz, sek.por q.kyz)