ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-09-22 16:09:13 +03:00
Code Issues Packages Projects Releases Wiki Activity

remember logins

Browse Source
This commit is contained in:
Anton Dyudin 2015-05-15 16:21:09 -07:00
parent d90d090dd0
commit 17df698c70
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
base/arvo/eyre.hoon
View File

@ -653,8 +653,8 @@
++ host-to-ship :: host to ship ++ host-to-ship :: host to ship
|= hot=host |= hot=host
^- (unit ship) ^- (unit ship)
=+ gow=(~(get by dop) hot) :: =+ gow=(~(get by dop) hot) :: XX trust
?^ gow gow :: ?^ gow gow
?. ?=(& -.hot) ~ ?. ?=(& -.hot) ~
=+ dom=(flop p.hot) :: domain name =+ dom=(flop p.hot) :: domain name
?~ dom ~ ?~ dom ~
@ -989,8 +989,10 @@
%get %get
~| aute/ham ~| aute/ham
?: |(=(anon him.ham) (~(has in aut.yac) him.ham)) ?: |(=(anon him.ham) (~(has in aut.yac) him.ham))
=. aut & =. ..ya abet.yac(him him.ham)
process(pok rem.ham, ..ya abet.yac(him him.ham)) =+ pez=process(pok rem.ham, aut &)
?: ?=(%| -.pez) pez
[%| (resolve ~ p.pez)]
?. =(our him.ham) ?. =(our him.ham)
[%| ((teba foreign-auth.yac) him.ham hat rem.ham quy)] [%| ((teba foreign-auth.yac) him.ham hat rem.ham quy)]
(show-login-page ~) (show-login-page ~)