mirror of
https://github.com/urbit/shrub.git
synced 2024-12-04 23:04:24 +03:00
35 lines
551 B
Plaintext
35 lines
551 B
Plaintext
:: Basic authentication
|
|
::
|
|
:::: /hoon/basic-auth/lib
|
|
::
|
|
=, eyre
|
|
|%
|
|
++ keys @t
|
|
--
|
|
::
|
|
::::
|
|
::
|
|
|_ {bal/(bale keys) $~}
|
|
++ auth
|
|
|%
|
|
++ header
|
|
^- cord
|
|
?~ key.bal
|
|
~_ leaf+"Run |init-auth-basic {<`path`dom.bal>}"
|
|
~|(%basic-auth-no-key !!)
|
|
(cat 3 'Basic ' key.bal)
|
|
--
|
|
::
|
|
++ add-auth-header
|
|
|= a/hiss ^- hiss
|
|
~& auth+(en-purl:html p.a)
|
|
%_(a q.q (~(add ja q.q.a) %authorization header:auth))
|
|
::
|
|
++ standard
|
|
|%
|
|
++ out-adding-header
|
|
|= a/hiss ^- sec-move
|
|
[%send (add-auth-header a)]
|
|
--
|
|
--
|