<user-admin> ( -- responder )
Furnace user administration tool

Next:

can-administer-users?

Vocabulary
webapps.user-admin

Inputs
None

Outputs

responder

a new responder

Word description
Creates a new instance of the user admin tool. This tool must be added to an authentication realm, and access is restricted to users having the can-administer-users? capability.

Definition

USING: accessors furnace.auth furnace.boilerplate
http.server.dispatchers ;

IN: webapps.user-admin

: <user-admin> ( -- responder )
    user-admin new-dispatcher <user-list-action> ""
    add-responder <new-user-action> "new" add-responder
    <edit-user-action> "edit" add-responder
    <delete-user-action> "delete" add-responder <boilerplate>
    { user-admin "user-admin" } >>template
    <protected> "administer users" >>description
    { can-administer-users? } >>capabilities ;