2016-04-06 23:43:02 +03:00
|
|
|
:: Basic authentication
|
|
|
|
|
::
|
|
|
|
|
:::: /hoon/basic-auth/lib
|
|
|
|
|
::
|
|
|
|
|
|%
|
|
|
|
|
++ keys @t
|
|
|
|
|
--
|
|
|
|
|
::
|
|
|
|
|
::::
|
|
|
|
|
::
|
2016-04-07 20:37:28 +03:00
|
|
|
|_ {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+(earn p.a)
|
|
|
|
|
%_(a q.q (~(add ja q.q.a) %authorization header:auth))
|
2016-04-06 23:43:02 +03:00
|
|
|
::
|
|
|
|
|
++ standard
|
|
|
|
|
|%
|
|
|
|
|
++ out-adding-header
|
|
|
|
|
|= a/hiss ^- sec-move
|
2016-04-07 20:37:28 +03:00
|
|
|
[%send (add-auth-header a)]
|
2016-04-06 23:43:02 +03:00
|
|
|
--
|
|
|
|
|
--
|
