Paste: Web example

Author: doublec
Mode: factor
Date: Fri, 10 Oct 2008 15:12:14
Plain Text | 
USING: http http.server threads furnace.actions namespaces accessors ;
IN: web-example

: start ( -- )
  <action> [
    <response>
      200 >>code
      "text/plain" >>content-type
      "Hello World" >>body
  ] >>display main-responder set-global
  [ 8888 http  ] in-thread ;

New Annotation

Summary:
Author:
Mode:
Body: