<new-user-action> ( -- action )

Vocabulary

webapps.user-admin

Inputs

None

Outputs

action

an object

Definition

USING: accessors db.tuples furnace.actions furnace.auth
furnace.auth.providers furnace.redirection html.forms
http.server kernel urls validators ;

IN: webapps.user-admin

: <new-user-action> ( -- action )
    <page-action>
    [ "username" param <user> from-object init-capabilities ]
    >>init { user-admin "new-user" } >>template [
        init-capabilities validate-capabilities validate-user {
            { "new-password" [ v-password ] }
            { "verify-password" [ v-password ] }
        } validate-params
        same-password-twice user new "username" value >>username
        select-tuple [ user-exists ] when
    ] >>validate [
        "username" value <user> "realname" value >>realname
        "email" value >>email
        "new-password" value >>encoded-password
        H{ } clone >>profile
        selected-capabilities >>capabilities insert-tuple
        URL" %24user-admin" <redirect>
    ] >>submit ;