urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2025-01-07 05:26:56 +03:00
Code Issues Packages Projects Releases Wiki Activity

get id directly from invite poke

Browse Source
This commit is contained in:
Anton Dyudin 2016-07-05 11:38:44 -07:00
parent 2f144b56ab
commit 6c983460ed
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lib/womb.hoon
View File

@ -620,12 +620,12 @@
%+ ~(put by hotel) u.ref %+ ~(put by hotel) u.ref
=+ cli=(fall (~(get by hotel) u.ref) *client) =+ cli=(fall (~(get by hotel) u.ref) *client)
cli(sta +(sta.cli)) cli(sta +(sta.cli))
(invite-from(eny (shax tid)) ~ inv) (invite-from ~ tid inv)
:: ::
++ invite-from :: traced invitation ++ invite-from :: traced invitation
|= {hiz/(list mail) inv/invite} ^+ +> |= {hiz/(list mail) tid/cord inv/invite} ^+ +>
?> |(=(our src) =([~ src] boss)) :: priveledged ?> |(=(our src) =([~ src] boss)) :: priveledged
=+ pas=`passcode`(end 6 1 (shaf %pass eny)) =+ pas=`passcode`(slav %p tid)
?: (~(has by bureau) pas) ?: (~(has by bureau) pas)
~|([%duplicate-passcode pas who.inv replay=replay] !!) ~|([%duplicate-passcode pas who.inv replay=replay] !!)
=. bureau (~(put by bureau) pas [pla.inv sta.inv who.inv hiz]) =. bureau (~(put by bureau) pas [pla.inv sta.inv who.inv hiz])
@ -642,7 +642,8 @@
=. stars.bal (sub stars.bal sta.inv) =. stars.bal (sub stars.bal sta.inv)
=. planets.bal (sub planets.bal pla.inv) =. planets.bal (sub planets.bal pla.inv)
=. bureau (~(put by bureau) aut bal) =. bureau (~(put by bureau) aut bal)
(invite-from [owner.bal history.bal] inv) =+ tid=(scot %p (end 6 1 (shaf %pass eny)))
(invite-from [owner.bal history.bal] tid inv)
:: ::
++ poke-obey :: set/reset boss ++ poke-obey :: set/reset boss
|= who/(unit @p) |= who/(unit @p)