urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-12 10:29:01 +03:00
Code Issues Packages Projects Releases Wiki Activity

Auth working?

Browse Source
This commit is contained in:
Anton Dyudin 2015-01-13 16:23:44 -08:00
parent de1b5afaf8
commit bdde93d01c
1 changed files with 48 additions and 50 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
arvo/eyre.hoon
View File

@ -867,7 +867,7 @@
[~ u=~(. ya [our ses] u.suf u.cuz)] [~ u=~(. ya [our ses] u.suf u.cuz)]
:: ::
++ noon :: login page ++ noon :: login page
|= [our=ship whu=(unit ship) rul=tape ruf=tape] |= [our=ship ses=hole whu=(unit ship) rul=tape ruf=tape]
^- manx ^- manx
=+ ^= sic ^- manx =+ ^= sic ^- manx
;script:''' ;script:'''
@ -913,7 +913,7 @@
console.log('redirect') console.log('redirect')
window.location="http://"+seal.who+".urbit.org/gul" window.location="http://"+seal.who+".urbit.org/gul"
+ $.params(all); + $.param(all);
return false; return false;
} }
@ -985,6 +985,7 @@
; var goal = '{?~(whu ~ (trip (rsh 3 1 (scot %p u.whu))))}'; ; var goal = '{?~(whu ~ (trip (rsh 3 1 (scot %p u.whu))))}';
; var burl = '{rul}'; ; var burl = '{rul}';
; var form = '{ruf}'; ; var form = '{ruf}';
; var session = '{(trip ses)}';
== ==
=> .(+.sic (weld `marl`cof `marl`+.sic)) => .(+.sic (weld `marl`cof `marl`+.sic))
=+ jqu="//ajax.googleapis.com/ajax/libs/jquery/1.10.2/jquery.min.js" =+ jqu="//ajax.googleapis.com/ajax/libs/jquery/1.10.2/jquery.min.js"
@ -1435,7 +1436,6 @@
=+ thu=?~(tuh ~ (rush u.tuh fed:ag)) =+ thu=?~(tuh ~ (rush u.tuh fed:ag))
=+ sus=(~(get by yaq) %ses) =+ sus=(~(get by yaq) %ses)
=+ foy=?~(sus ~ ?~(thu ~ [~ u.thu u.sus])) =+ foy=?~(sus ~ ?~(thu ~ [~ u.thu u.sus]))
~& folk-auth/aut.ced
?~ pyl ~ ?~ pyl ~
?: &(wit |(=(~ whu) =(~ ses))) ~ ?: &(wit |(=(~ whu) =(~ ses))) ~
:: ~& [%folk-quay whu u.pyl wit foy pus] :: ~& [%folk-quay whu u.pyl wit foy pus]
@ -1585,11 +1585,10 @@
^- (unit seam) ^- (unit seam)
:+ ~ :+ ~
%red %red
:: :+ [& q.p.pul r.p.pul] :: :+ [p.p.pul q.p.pul r.p.pul]
%+ earl our :+ [| q.p.pul r.p.pul] :: XX https
:+ [p.p.pul q.p.pul r.p.pul]
[~ /gul] [~ /gul]
:- [%url (crip (urle (earn (earl our pul))))] :- [%url (crip (earn pul(p.p |)))]
?~ whu ~ ?~ whu ~
[%who (rsh 3 1 (scot %p u.whu))]~ [%who (rsh 3 1 (scot %p u.whu))]~
:: ::
@ -1597,7 +1596,6 @@
|= [pul=purl moh=moth] |= [pul=purl moh=moth]
^- (unit seam) ^- (unit seam)
?~ q.q.pul ~ ?~ q.q.pul ~
~& holy-aut/aut.ced
=* nep i.q.q.pul =* nep i.q.q.pul
=+ paw=t.q.q.pul =+ paw=t.q.q.pul
=+ [one=(end 3 1 nep) two=(cut 3 [1 1] nep) tri=(cut 3 [2 1] nep)] =+ [one=(end 3 1 nep) two=(cut 3 [1 1] nep) tri=(cut 3 [2 1] nep)]
@ -1650,10 +1648,11 @@
[(slav %p (cat 3 '~' i.paw)) t.paw] [(slav %p (cat 3 '~' i.paw)) t.paw]
%o [our paw] %o [our paw]
== ==
:: ?: &(=(%i two) =(~ aut.ced)) ?: &(=(%i two) !(~(has ju aut.ced) %$ (scot %p yun)))
:: (holt ~ pul) (holt [~ yun] pul)
:: ?: &(=(%o two) !(~(has ju aut.ced) %$ (scot %p our))) ?: &(=(%o two) !(~(has ju aut.ced) %$ (scot %p our)))
:: (holt [~ our] pul) ~& holy-admin/[aut.ced pul]
(holt [~ our] pul)
?+ one ~ ?+ one ~
%g %g
?+ tri ~ ?+ tri ~
@ -1784,6 +1783,7 @@
++ wink :: advance request ++ wink :: advance request
|= [num=@ud pip=pimp] |= [num=@ud pip=pimp]
^- [(unit pimp) _+>] ^- [(unit pimp) _+>]
:: ~& wink-do/[?@(pez.pip pez.pip -.pez.pip) -.som.pip]
?- pez.pip ?- pez.pip
%way [[~ pip] +>.$] %way [[~ pip] +>.$]
%new %new
@ -1854,8 +1854,14 @@
+>.$(..ya (honk our num ses kas)) +>.$(..ya (honk our num ses kas))
:: ::
%lon %lon
?^ pus.p.som.pip ?~ pus.p.som.pip
~& eyre-lass/=(lass u.pus.p.som.pip) :_ +>.$
?: wit.p.som.pip
[~ pip(pez [%who %$ (scot %p (need whu.p.som.pip))])]
=+ rul=(earn pul.p.som.pip)
=+ ruf=(earn pul.p.som.pip(q.q /pul, r ~))
=+ ham=(noon our ses whu.p.som.pip rul ruf)
[~ pip(pez [%fin %ham ham])]
?. =(lass u.pus.p.som.pip) ?. =(lass u.pus.p.som.pip)
:_ +>.$ :_ +>.$
:- ~ :- ~
@ -1864,7 +1870,6 @@
[%fin %mid /text/json (tact (pojo (jobe [%ok [%b |]]~)))] [%fin %mid /text/json (tact (pojo (jobe [%ok [%b |]]~)))]
== ==
=. aut.ced (~(put ju aut.ced) %$ (scot %p (need whu.p.som.pip))) =. aut.ced (~(put ju aut.ced) %$ (scot %p (need whu.p.som.pip)))
~& lass-aut/aut.ced
?~ foy.p.som.pip ?~ foy.p.som.pip
=+ ^= jon =+ ^= jon
%- jobe %- jobe
@ -1886,13 +1891,6 @@
== ==
=+ jon=(jobe ~[[%ok [%b &]] [%next (jape (earn lup))]]) =+ jon=(jobe ~[[%ok [%b &]] [%next (jape (earn lup))]])
:_(+>.$ [~ pip(pez [%fin %mid /text/json (tact (pojo jon))])]) :_(+>.$ [~ pip(pez [%fin %mid /text/json (tact (pojo jon))])])
:_ +>.$
?: wit.p.som.pip
[~ pip(pez [%who %$ (scot %p (need whu.p.som.pip))])]
=+ rul=(earn pul.p.som.pip)
=+ ruf=(earn pul.p.som.pip(q.q /pul, r ~))
=+ ham=(noon our whu.p.som.pip rul ruf)
[~ pip(pez [%fin %ham ham])]
:: ::
%red %red
:_ +>.$ :_ +>.$
@ -1901,7 +1899,7 @@
pez pez
:- %fin :- %fin
:- %raw :- %raw
:+ 301 :+ 307
[%location (crip (earn p.som.pip))]~ [%location (crip (earn p.som.pip))]~
~ ~
== ==