mirror of
https://github.com/ilyakooo0/urbit.git
synced 2025-01-04 13:19:48 +03:00
Move eyre passcode printing into +code generator
This commit is contained in:
parent
c0a2ca3c1c
commit
e9ec3b2ded
@ -472,7 +472,7 @@
|
|||||||
;input#ship.mono(contenteditable "", placeholder "planet");
|
;input#ship.mono(contenteditable "", placeholder "planet");
|
||||||
==
|
==
|
||||||
;input#pass.mono(type "password", placeholder "passcode");
|
;input#pass.mono(type "password", placeholder "passcode");
|
||||||
;h2.advice: Your passcode code has been printed to your console.
|
;h2.advice: Type +{;code:("+code")} in your dojo for your passcode.
|
||||||
;pre:code#err;
|
;pre:code#err;
|
||||||
==
|
==
|
||||||
==
|
==
|
||||||
@ -1347,8 +1347,7 @@
|
|||||||
?. ?| (~(has in aut.yac) him.ham)
|
?. ?| (~(has in aut.yac) him.ham)
|
||||||
?~(paz.ham | =(u.paz.ham load-secret))
|
?~(paz.ham | =(u.paz.ham load-secret))
|
||||||
==
|
==
|
||||||
~& code=`@t`load-secret
|
~|(%auth-fail !!)
|
||||||
~|([%try 'code' %in %console] !!) :: XX security
|
|
||||||
=^ jon ..ya stat-json:(logon:yac him.ham)
|
=^ jon ..ya stat-json:(logon:yac him.ham)
|
||||||
=. cug.yac :_(cug.yac (set-cookie %ship (scot %p him.ham)))
|
=. cug.yac :_(cug.yac (set-cookie %ship (scot %p him.ham)))
|
||||||
(give-json 200 cug.yac jon)
|
(give-json 200 cug.yac jon)
|
||||||
@ -1356,7 +1355,6 @@
|
|||||||
::
|
::
|
||||||
++ show-login-page
|
++ show-login-page
|
||||||
|= ses/(unit hole) ^- (each pest _done)
|
|= ses/(unit hole) ^- (each pest _done)
|
||||||
%- (slog leaf+"login code for {(scow %p our)}: {(trip load-secret)}" ~)
|
|
||||||
?. ?=($@($~ {$~ $html}) p.pok)
|
?. ?=($@($~ {$~ $html}) p.pok)
|
||||||
[%& %red ~]
|
[%& %red ~]
|
||||||
?~ ses
|
?~ ses
|
||||||
|
17
gen/code.hoon
Normal file
17
gen/code.hoon
Normal file
@ -0,0 +1,17 @@
|
|||||||
|
::
|
||||||
|
:::: /hoon/code/gen
|
||||||
|
::
|
||||||
|
/- sole
|
||||||
|
=+ sole
|
||||||
|
:- %ask
|
||||||
|
|= $: {now/@da eny/@uvI bec/beak}
|
||||||
|
$~
|
||||||
|
$~
|
||||||
|
==
|
||||||
|
^- (sole-result)
|
||||||
|
%+ sole-yo
|
||||||
|
:- %leaf
|
||||||
|
%+ slag 1
|
||||||
|
%+ scow %p
|
||||||
|
.^(@p %a /(scot %p p.bec)/code/(scot %da now)/(scot %p p.bec))
|
||||||
|
sole-no
|
Loading…
Reference in New Issue
Block a user