<mason-app> ( -- dispatcher )

Vocabulary

webapps.mason

Inputs

None

Outputs

dispatcher

an object

Definition

USING: accessors furnace.actions furnace.redirection
http.server.dispatchers urls webapps.mason.counter
webapps.mason.docs-update webapps.mason.downloads
webapps.mason.increment-counter webapps.mason.make-release
webapps.mason.package webapps.mason.release webapps.mason.report
webapps.mason.status-update ;

IN: webapps.mason

: <mason-app> ( -- dispatcher )
    mason-app new-dispatcher <build-report-action> "report"
    add-responder <download-package-action>
    { mason-app "download-package" } >>template
    "package" add-responder <download-release-action>
    { mason-app "download-release" } >>template
    "release" add-responder <downloads-action>
    { mason-app "downloads" } >>template
    "downloads" add-responder
    <status-update-action> "status-update" add-responder
    <docs-update-action> "docs-update" add-responder
    <counter-action> "counter" add-responder
    <dispatcher> <dashboard-action>
    { mason-app "dashboard" } >>template "" add-responder
    <make-release-action> <mason-protected> "make-release"
    add-responder
    <increment-counter-action> <mason-protected>
    "increment-counter" add-responder "dashboard" add-responder
    <action>
    [ URL" %24mason-app/dashboard" <redirect> ] >>display
    "" add-responder ;