<download-package-action> ( -- action )

Vocabulary

webapps.mason.package

Inputs

None

Outputs

action

an object

Definition

USING: accessors combinators furnace.actions html.forms kernel
mason.platform mason.report webapps.mason.backend
webapps.mason.report webapps.mason.utils ;

IN: webapps.mason.package

: <download-package-action> ( -- action )
    <page-action> [
        [
            validate-os/cpu "os" value "cpu" value (platform)
            "platform" set-value current-builder [
                {
                    [ package-link "package" set-value ]
                    [
                        release-git-id>> git-link "git-id"
                        set-value
                    ]
                    [ requirements "requirements" set-value ]
                    [ host-name>> "host-name" set-value ]
                    [
                        heartbeat-timestamp>>
                        "heartbeat-timestamp" set-value
                    ]
                    [ current-status "status" set-value ]
                    [ last-build-status "last-build" set-value ]
                    [
                        clean-build-status "last-clean-build"
                        set-value
                    ]
                    [
                        current-timestamp>> "current-timestamp"
                        set-value
                    ]
                    [ packages-link "binaries" set-value ]
                    [
                        clean-image-link "clean-images"
                        set-value
                    ]
                    [ report-link "last-report" set-value ]
                } cleave
            ] when*
        ] with-mason-db
    ] >>init ;