logged-in-username ( realm -- username )

Vocabulary

furnace.auth

Inputs

realm

an object

Outputs

username

an object

Definition

IN: furnace.auth

GENERIC: logged-in-username ( realm -- username )

Methods

USING: furnace.auth furnace.auth.basic http kernel namespaces ;

M: basic-auth-realm logged-in-username
    drop request get "authorization" header parse-basic-auth dup
    [ over check-login swap and ] [ 2drop f ] if ;


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 ;