login-realm
Furnace framework » Furnace authentication » Authentication realms » Login authentication

Next:

<login-realm> ( responder name -- realm )

Vocabulary
furnace.auth.login

Class description
The login realm class. Slots are described in Authentication realm configuration.

Definition

USING: furnace.auth ;

IN: furnace.auth.login

TUPLE: login-realm < realm timeout domain ;

Methods

USING: accessors furnace.auth furnace.auth.login namespaces ;

M: login-realm init-realm
    name>> client-permit-id permit-id set ;


USING: furnace.auth furnace.auth.login
furnace.auth.login.permits kernel namespaces ;

M: login-realm logged-in-username
    drop permit-id get dup [ get-permit-uid ] when ;


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 ;


USING: accessors furnace.auth furnace.auth.login
furnace.utilities kernel namespaces ;

M: login-realm modify-form
    drop
    permit-id get realm get name>> permit-id-key
    hidden-form-field ;


USING: furnace.auth furnace.auth.login kernel ;

M: login-realm user-registered drop successful-login ;