! Copyright (C) 2009, 2010 Slava Pestov. ! See http://factorcode.org/license.txt for BSD license. USING: accessors furnace.auth furnace.db http.server.dispatchers mason.server webapps.mason.grids webapps.mason.make-release webapps.mason.package webapps.mason.release webapps.mason.report webapps.mason.downloads webapps.mason.status-update ; IN: webapps.mason TUPLE: mason-app < dispatcher ; SYMBOL: can-make-releases? can-make-releases? define-capability : ( -- dispatcher ) mason-app new-dispatcher "report" add-responder { mason-app "download-package" } >>template "package" add-responder { mason-app "download-release" } >>template "release" add-responder { mason-app "downloads" } >>template "downloads" add-responder { mason-app "make-release" } >>template "make releases" >>description { can-make-releases? } >>capabilities "make-release" add-responder "status-update" add-responder ;