urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2025-01-05 19:46:50 +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
=+ cli=(fall (~(get by hotel) u.ref) *client)
cli(sta +(sta.cli))
(invite-from(eny (shax tid)) ~ inv)
(invite-from ~ tid inv)
::
++ invite-from :: traced invitation
|= {hiz/(list mail) inv/invite} ^+ +>
|= {hiz/(list mail) tid/cord inv/invite} ^+ +>
?> |(=(our src) =([~ src] boss)) :: priveledged
=+ pas=`passcode`(end 6 1 (shaf %pass eny))
=+ pas=`passcode`(slav %p tid)
?: (~(has by bureau) pas)
~|([%duplicate-passcode pas who.inv replay=replay] !!)
=. bureau (~(put by bureau) pas [pla.inv sta.inv who.inv hiz])
@ -642,7 +642,8 @@
=. stars.bal (sub stars.bal sta.inv)
=. planets.bal (sub planets.bal pla.inv)
=. 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
|= who/(unit @p)