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

Eyre js auth redirect: req script under /gop, get window.location change

Browse Source
This commit is contained in:
Anton Dyudin 2015-01-27 12:21:43 -08:00
parent 189c20d7db
commit 9cdab44c9b
1 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
arvo/eyre.hoon
View File

@ -1598,7 +1598,7 @@
%red %red
:: :+ [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 :+ [| q.p.pul r.p.pul] :: XX https
[~ /gul] [p.q.pul /gul] :: XX js discrimination
:- [%url (crip (earn pul(p.p |)))] :- [%url (crip (earn pul(p.p |)))]
?~ whu ~ ?~ whu ~
[%who (rsh 3 1 (scot %p u.whu))]~ [%who (rsh 3 1 (scot %p u.whu))]~
@ -1797,6 +1797,12 @@
++ lash :: user is authorized ++ lash :: user is authorized
|=(a=ship (~(has ju aut.ced) %$ (scot %p a))) |=(a=ship (~(has ju aut.ced) %$ (scot %p a)))
:: ::
++ redi :: js login redirect
|= pul=purl ^- tape
"window.location = '{(earn pul)}".
"{?~(r.pul "?" "&")}url=' +".
"encodeURIComponent(window.location)"
::
++ step :: step in work ++ step :: step in work
|- ^+ + |- ^+ +
=^ zib +.$ =^ zib +.$
@ -1932,9 +1938,13 @@
%= pip %= pip
pez pez
:- %fin :- %fin
=+ pul=p.som.pip
?: ?=([~ %js] p.q.pul) :: XX js discrimination
[%mid /application/javascript (tact (redi pul(p.q ~)))]
=. p.q.pul ~
:- %raw :- %raw
:+ 307 :+ 307
[%location (crip (earn p.som.pip))]~ [%location (crip (earn pul))]~
~ ~
== ==
:: ::