successful-login ( user -- response )


Vocabulary
furnace.auth.login

Inputs
useran object


Outputs
responsean object


Definition
USING: accessors furnace.asides furnace.auth
furnace.auth.login.permits kernel logging namespaces urls ;

IN: furnace.auth.login

: successful-login ( user -- response )
1 \ successful-login \ DEBUG log-stack
[ username>> make-permit permit-id set ] [ init-user ] bi
URL" %24realm" end-aside put-permit-cookie ;