restore ++sec-move, ++bale to zuse

This commit is contained in:
Anton Dyudin 2016-11-11 13:46:40 -08:00
parent 7408f29e83
commit 278641b6c7
5 changed files with 16 additions and 14 deletions

View File

@ -105,20 +105,6 @@
sec/(map {user (list @t)} driv) :: security drivers
== ::
::
++ sec-move :: driver effect
$% {$send p/hiss} :: http out
{$show p/purl} :: direct user to url
{$give p/httr} :: respond immediately
{$redo $~} :: restart request qeu
== ::
::
++ bale :: driver state
|* a/_* :: %jael keys type
$: {our/ship now/@da eny/@uvJ byk/beak} :: base info
{usr/user dom/(list @t)} :: req user, domain
key/a :: secrets from %jael
== ::
::
++ driv :: driver state
%+ pair (unit $@($~ vase)) :: main core
{liv/? req/(qeu (trel duct mark vase:hiss))} :: waiting requests

View File

@ -585,6 +585,13 @@
::
:::: :: (1e2)
::
++ bale :: driver state
|* a/_* :: %jael keys type
$: {our/ship now/@da eny/@uvJ byk/beak} :: base info
{usr/user dom/(list @t)} :: req user, domain
key/a :: secrets from %jael
== ::
::
++ clip (each @if @is) :: client IP
++ cred :: credential
$: hut/hart :: client host
@ -662,6 +669,12 @@
{$| p/pork q/quay} :: relative
== ::
++ rout {p/(list host) q/path r/oryx s/path} :: http route (new)
++ sec-move :: driver effect
$% {$send p/hiss} :: http out
{$show p/purl} :: direct user to url
{$give p/httr} :: respond immediately
{$redo $~} :: restart request qeu
== ::
-- ::eyre
::
++ ford ^?

View File

@ -2,6 +2,7 @@
::
:::: /hoon/basic-auth/lib
::
=, ^eyre
|%
++ keys @t
--

View File

@ -3,6 +3,7 @@
:::: /hoon/oauth1/lib
::
/+ interpolate, hep-to-cab
=, ^eyre
|%
++ keys cord:{key/@t sec/@t} :: app key pair
++ token :: user keys

View File

@ -3,6 +3,7 @@
:::: /hoon/oauth2/lib
::
/+ hep-to-cab, interpolate
=, ^eyre
|%
++ parse-url parse-url:interpolate
++ join