<planet-admin> ( -- responder )

Vocabulary

webapps.planet

Inputs

None

Outputs

responder

an object

Definition

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

IN: webapps.planet

: <planet-admin> ( -- responder )
    planet-admin new-dispatcher <edit-blogroll-action> ""
    add-responder <update-action> "update" add-responder
    <new-blog-action> "new-blog" add-responder
    <edit-blog-action> "edit-blog" add-responder
    <delete-blog-action> "delete-blog" add-responder
    <protected> "administer Planet Factor" >>description
    { can-administer-planet? } >>capabilities ;