Update /lib/ring/hoon for %jael scries.
Also I took the liberty of making `build-signing-participants` use a `%lyfe` scry and remove unknowns from the set rather than crashing. This is a choice - happy to change it back the other way.
|= [our=@p now=@da ship=@p =life]
^- @udpoint
::
- =/ d=[=^life =pass]
+ =/ d=[=^life =pass *]
=/ scry-path=path
- :~ %k
+ :~ %j
(scot %p our)
+ %deed
(scot %da now)
(scot %p ship)
(scot %ud life)
==
- .^([^life pass] scry-path)
+ .^([^life pass *] scry-path)
:: we have the deed which has pass, which is several numbers +cat-ed
:: together; pull out the keys
::
?~ invited
[participants keys]
::
- =/ =life
- .^(life k+/(scot %p our)/life/(scot %da now)/(scot %p i.invited))
+ =/ lyfe=(unit @ud)
+ .^((unit @ud) j+/(scot %p our)/lyfe/(scot %da now)/(scot %p i.invited))
::
- ?: =(life 0)
+ ?~ lyfe
$(invited t.invited)
::
- =/ pubkey=@udpoint (ship-life-to-pubid our now i.invited life)
+ =/ pubkey=@udpoint (ship-life-to-pubid our now i.invited u.lyfe)
::
- =. participants (~(put in participants) [i.invited life])
+ =. participants (~(put in participants) [i.invited u.lyfe])
=. keys (~(put in keys) pubkey)
::
$(invited t.invited)
:: get our ships' current life
::
=/ our-life=life
- .^(life %k /(scot %p our)/life/(scot %da now)/(scot %p our))
+ .^(life %j /(scot %p our)/life/(scot %da now)/(scot %p our))
:: get our ships' secret keyfile ring
::
=/ secret-ring=ring
- .^(ring %k /(scot %p our)/vein/(scot %da now)/(scot %ud our-life))
+ .^(ring %j /(scot %p our)/vein/(scot %da now)/(scot %ud our-life))
:: fetch the encoded auth seed from the ring
::
=/ secret-auth-seed=@
