ames: emit %saxo on breached sponsor

This commit is contained in:
yosoyubik 2023-11-08 20:41:18 +01:00
parent e2cf4092e7
commit e84ed19ae7

View File

@ -2750,6 +2750,11 @@
:* unix-duct.ames-state %give %nail ship :* unix-duct.ames-state %give %nail ship
(get-forward-lanes our peer-state peers.ames-state) (get-forward-lanes our peer-state peers.ames-state)
== ==
:: if one of our sponsors breached, give the updated list to vere
::
=/ sponsors (~(gas in *(set ship)) get-sponsors)
=? event-core (~(has in sponsors) ship)
(emit [unix. %give %saxo ~(tap in sponsors)])
:: ::
event-core event-core
:: +on-publ-rekey: handle new key for peer :: +on-publ-rekey: handle new key for peer
@ -2828,7 +2833,9 @@
:: ::
?: =(our ship) ?: =(our ship)
=. rift.ames-state rift.point =. rift.ames-state rift.point
=. event-core (emit unix-duct.ames-state %give %saxo get-sponsors) :: XX not needed?
:: =. event-core
:: (emit unix-duct.ames-state %give %saxo get-sponsors)
$(points t.points) $(points t.points)
:: ::
?. (~(has by keys.point) life.point) ?. (~(has by keys.point) life.point)
@ -2979,9 +2986,6 @@
^- (list move) ^- (list move)
:~ [duct %give %turf turfs] :~ [duct %give %turf turfs]
[duct %give %saxo get-sponsors] [duct %give %saxo get-sponsors]
:: always start pinging on every restart; any STUN response
:: (coming from unix as a %stun task) will turn off the %ping app
::
(poke-ping-app duct our %kick fail=%.n) (poke-ping-app duct our %kick fail=%.n)
== ==
:: +on-vega: handle kernel reload :: +on-vega: handle kernel reload