Author: | Lorca |
---|---|
Mode: | factor |
Date: | Fri, 26 Oct 2012 21:01:49 |
USING: kernel namespaces io.servers http.server http.server.dispatchers http.server.responses ; IN: http-unzip : <main-page-action> ( -- trivial-responder ) 200 "Hello World!" <trivial-response> <trivial-responder> ; : set-main-responder ( -- ) <dispatcher> <main-page-action> "" add-responder main-responder set-global ; : run-http-unzip ( -- ) set-main-responder 8080 httpd wait-for-server ; MAIN: run-http-unzip