21 lines
591 B
Factor
21 lines
591 B
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 ] }
|
|
{ "announcement-url" [ v-url ] }
|
|
} validate-params
|
|
] >>validate
|
|
[
|
|
[
|
|
"version" value "announcement-url" value do-release
|
|
"OK" "text/html" <content>
|
|
] with-mason-db
|
|
] >>submit ;
|