factor/extra/webapps/mason/make-release/make-release.factor

! Copyright (C) 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors furnace.actions html.forms
http.server.responses mason.server mason.version validators ;
IN: webapps.mason.make-release

: <make-release-action> ( -- action )
    <page-action>
    [ { { "version" [ v-one-line ] } } validate-params ] >>validate
    [
        [
            "version" value "announcement-url" value do-release
            "OK" "text/html" <content>
        ] with-mason-db
    ] >>submit ;