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