! Copyright (C) 2004, 2005 Slava Pestov.
! See http://factor.sf.net/license.txt for BSD license.
IN: httpd
USING: browser-responder cont-responder file-responder kernel
namespaces prettyprint quit-responder resource-responder
test-responder ;

#! Remove all existing responders, and create a blank
#! responder table.
global [
    {{ }} clone responders set

    ! Runs all unit tests and dumps result to the client. This uses
    ! a lot of server resources, so disable it on a busy server.
    [
        "test" "responder" set
        [ test-responder ] "get" set
    ] make-responder
    
    ! 404 error message pages are served by this guy
    [
        "404" "responder" set
        [ drop no-such-responder ] "get" set
    ] make-responder
    
    ! Serves files from a directory stored in the "doc-root"
    ! variable. You can set the variable in the global namespace,
    ! or inside the responder.
    [
        ! "/var/www/" "doc-root" set
        "file" "responder" set
        [ file-responder ] "get" set
        [ file-responder ] "post" set
        [ file-responder ] "head" set
    ] make-responder
    
    ! Serves Factor source code 
    [
        "resource" "responder" set
        [ resource-responder ] "get" set
    ] make-responder
    
    ! Servers Factor word definitions from the image.
    "browser" [ browser-responder ] install-cont-responder
    
    ! The root directory is served by...
    "file" set-default-responder

    vhosts nest [ {{ }} clone "default" set ] bind
] bind