<status-update-action> ( -- action )

Vocabulary

webapps.mason.status-update

Inputs

None

Outputs

action

an action

Word description

The mason server receives updates from the build machines on this url.

Definition

USING: accessors db.tuples furnace.actions html.forms
http.server.responses kernel validators webapps.mason.backend
webapps.mason.utils ;

IN: webapps.mason.status-update

: <status-update-action> ( -- action )
    <action> [
        {
            { "host-name" [ v-one-line ] }
            { "target-cpu" [ v-one-line ] }
            { "target-os" [ v-one-line ] }
            { "message" [ v-one-line ] }
            { "arg" [ [ v-one-line ] v-optional ] }
            { "report" [ ] }
        } validate-params validate-secret
    ] >>validate [
        [
            "host-name" value "target-os" value "target-cpu"
            value find-builder
            [ update-builder ] [ update-tuple ] bi
        ] with-mason-db "OK" <text-content>
    ] >>submit ;