login-required* ( description capabilities realm -- response )

Vocabulary

furnace.auth

Inputs

description	a string
capabilities	a sequence of capabilities
realm	an authenticaiton realm

Outputs

response

a response

Generic word contract

Constructs an HTTP response for redirecting the client to a login page.

Definition

IN: furnace.auth

GENERIC: login-required*
    ( description capabilities realm -- response )

Methods

USING: accessors furnace.auth furnace.auth.basic kernel ;

M: basic-auth-realm login-required* 2nip name>> <401> ;


USING: accessors furnace.asides furnace.auth furnace.auth.login
furnace.auth.login.private furnace.conversations
furnace.redirection kernel namespaces urls ;

M: login-realm login-required*
    begin-conversation
    [ description cset ] [ capabilities cset ] [ secure>> ] tri* 
    [
        url get >secure-url begin-aside
        URL" %24realm/login" >secure-url <continue-conversation>
    ] [
        url get begin-aside
        URL" %24realm/login" <continue-conversation>
    ] if ;