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

   1 ! Copyright (C) 2010 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: accessors furnace.actions html.forms
   4 http.server.responses mason.server mason.version validators ;
   5 IN: webapps.mason.make-release
   6
   7 : <make-release-action> ( -- action )
   8     <page-action>
   9     [ { { "version" [ v-one-line ] } } validate-params ] >>validate
  10     [
  11         [
  12             "version" value "announcement-url" value do-release
  13             "OK" "text/html" <content>
  14         ] with-mason-db
  15     ] >>submit ;