Handbook
Glossary
<login-action> ( -- action )
Vocabulary
furnace.auth.login
Inputs
None
Outputs
action
an
object
Definition
USING:
accessors
furnace.actions
furnace.auth
furnace.auth.login.private
furnace.conversations
furnace.utilities
html.forms
kernel
validators
;
IN:
furnace.auth.login
:
<login-action>
( -- action )
<page-action>
[
description
cget
"description"
set-value
capabilities
cget
words>strings
"capabilities"
set-value
]
>>init
{
login-realm
"login"
}
>>template
[
{
{
"username"
[
v-required
]
}
{
"password"
[
v-required
]
}
}
validate-params
"password"
value
"username"
value
check-login
[
successful-login
]
[
login-failed
]
if*
]
>>submit
<auth-boilerplate>
<secure-realm-only>
;