2005-04-17 18:34:09 -04:00
|
|
|
! Copyright (C) 2004, 2005 Slava Pestov.
|
|
|
|
|
! See http://factor.sf.net/license.txt for BSD license.
|
2005-05-02 00:18:34 -04:00
|
|
|
IN: httpd
|
2006-01-24 05:50:32 -05:00
|
|
|
USING: io browser-responder cont-responder file-responder
|
2006-01-23 20:05:39 -05:00
|
|
|
help-responder inspect-responder kernel namespaces prettyprint ;
|
2004-07-16 02:26:21 -04:00
|
|
|
|
2004-09-02 19:38:05 -04:00
|
|
|
#! Remove all existing responders, and create a blank
|
|
|
|
|
#! responder table.
|
2005-05-23 01:18:51 -04:00
|
|
|
global [
|
2005-10-29 23:25:38 -04:00
|
|
|
H{ } clone responders set
|
2004-08-29 23:30:54 -04:00
|
|
|
|
2005-05-23 01:18:51 -04:00
|
|
|
! 404 error message pages are served by this guy
|
2005-08-22 02:06:32 -04:00
|
|
|
[
|
2005-05-23 01:18:51 -04:00
|
|
|
"404" "responder" set
|
|
|
|
|
[ drop no-such-responder ] "get" set
|
2005-08-22 02:06:32 -04:00
|
|
|
] make-responder
|
2006-01-20 01:26:50 -05:00
|
|
|
|
|
|
|
|
! Online help browsing
|
2006-01-23 20:05:39 -05:00
|
|
|
"help" [ help-responder ] install-cont-responder
|
2006-01-23 18:01:46 -05:00
|
|
|
|
2006-01-24 05:50:32 -05:00
|
|
|
! Javascript source used by ajax libraries
|
|
|
|
|
[
|
|
|
|
|
"contrib/httpd/javascript/" resource-path "doc-root" set
|
|
|
|
|
"javascript" "responder" set
|
|
|
|
|
[ file-responder ] "get" set
|
|
|
|
|
[ file-responder ] "post" set
|
|
|
|
|
[ file-responder ] "head" set
|
|
|
|
|
] make-responder
|
|
|
|
|
|
2006-01-23 18:01:46 -05:00
|
|
|
! Global variables
|
|
|
|
|
"inspector" [ inspect-responder ] install-cont-responder
|
2005-05-23 01:18:51 -04:00
|
|
|
|
2005-09-01 16:37:32 -04:00
|
|
|
! Servers Factor word definitions from the image.
|
|
|
|
|
"browser" [ browser-responder ] install-cont-responder
|
|
|
|
|
|
2005-05-23 01:18:51 -04:00
|
|
|
! Serves files from a directory stored in the "doc-root"
|
|
|
|
|
! variable. You can set the variable in the global namespace,
|
|
|
|
|
! or inside the responder.
|
2005-08-22 02:06:32 -04:00
|
|
|
[
|
2005-05-23 01:18:51 -04:00
|
|
|
! "/var/www/" "doc-root" set
|
|
|
|
|
"file" "responder" set
|
|
|
|
|
[ file-responder ] "get" set
|
|
|
|
|
[ file-responder ] "post" set
|
|
|
|
|
[ file-responder ] "head" set
|
2005-08-22 02:06:32 -04:00
|
|
|
] make-responder
|
2005-05-23 01:18:51 -04:00
|
|
|
|
|
|
|
|
! The root directory is served by...
|
|
|
|
|
"file" set-default-responder
|
2004-07-16 02:26:21 -04:00
|
|
|
|
2005-10-29 23:25:38 -04:00
|
|
|
vhosts nest [ H{ } clone "default" set ] bind
|
2005-05-23 01:18:51 -04:00
|
|
|
] bind
|
