simpler auth

This commit is contained in:
Galen Wolfe-Pauly 2015-01-23 10:07:05 -08:00
parent ac1552ee69
commit 6627ea38d1

View File

@ -869,7 +869,7 @@
[~ u=~(. ya [our ses] u.suf u.cuz)]
::
++ noon :: login page
|= [our=ship ses=hole whu=(unit ship) rul=tape ruf=tape]
|= [our=ship ses=hole whu=(unit ship) rul=tape]
^- manx
=+ ^= sic ^- manx
;script:'''
@ -940,7 +940,7 @@
$output.html(output.replace(
'sorry. please try again.<br>',''))
$.post(form, seal, function(data,xhr,status) {
$.post("/pul", seal, function(data,xhr,status) {
console.log(data);
if(data.ok == true) {
document.location = data.next;
@ -992,7 +992,6 @@
; var host = '{(trip (rsh 3 1 (scot %p our)))}';
; var goal = '{?~(whu ~ (trip (rsh 3 1 (scot %p u.whu))))}';
; var burl = '{rul}';
; var form = '{ruf}';
; var sesh = '{(trip ses)}';
==
=> .(+.sic (weld `marl`cof `marl`+.sic))
@ -1890,10 +1889,9 @@
?: wit.p.som.pip
[~ pip(pez [%who %$ (scot %p (need whu.p.som.pip))])]
=+ rul=(earn pul.p.som.pip)
=+ ruf=(earn (erle our pul.p.som.pip(q.q /pul, r ~)))
=+ sus=?~(foy.p.som.pip ses q.u.foy.p.som.pip)
~& auth-request/secret=`cord`lass
=+ ham=(noon our sus whu.p.som.pip rul ruf)
=+ ham=(noon our sus whu.p.som.pip rul)
[~ pip(pez [%fin %ham ham])]
?. =(lass u.pus.p.som.pip)
:_ +>.$