urbit/gen/ticket.hoon
2017-10-31 13:00:34 -07:00

17 lines
355 B
Plaintext

:: generate secret for starting a ship XX |ticket in cc-release
::
:::: /hoon/ticket/gen
::
/? 310
::
::::
::
:- %say
|= $: {now/@da eny/@uvJ bec/beak}
{{her/@p $~} $~}
==
:- %noun
~_ leaf+"can't ticket {<her>} (not a child of {<p.bec>})"
?> =(p.bec (sein:title her))
.^(@p /a/(scot %p p.bec)/tick/(scot %da now)/(scot %p her))