contrib/httpd/default-responders.factor

   1 ! Copyright (C) 2004, 2006 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 IN: httpd
   4 USING: callback-responder file-responder io kernel namespaces ;
   5
   6 #! Remove all existing responders, and create a blank
   7 #! responder table.
   8 global [
   9     H{ } clone responders set
  10
  11     ! 404 error message pages are served by this guy
  12     "404" [ no-such-responder ] add-simple-responder
  13
  14     ! Used by other responders
  15     "callback" [ callback-responder ] add-simple-responder
  16
  17     ! Javascript source used by ajax libraries
  18     "resources" [
  19         [
  20             "contrib/httpd/resources/" resource-path "doc-root" set
  21             file-responder
  22         ] with-scope
  23     ] add-simple-responder
  24
  25     ! Serves files from a directory stored in the "doc-root"
  26     ! variable. You can set the variable in the global namespace,
  27     ! or inside the responder.
  28     "file" [ file-responder ] add-simple-responder
  29
  30     ! The root directory is served by...
  31     "file" set-default-responder
  32
  33     vhosts nest [ H{ } clone "default" set ] bind
  34 ] bind