factor/contrib/httpd/default-responders.factor

! Copyright (C) 2004, 2006 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
IN: httpd
USING: callback-responder file-responder io kernel namespaces ;

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

    ! 404 error message pages are served by this guy
    "404" [ no-such-responder ] add-simple-responder
    
    ! Used by other responders
    "callback" [ callback-responder ] add-simple-responder

    ! Javascript source used by ajax libraries
    "resources" [ 
        [
            "contrib/httpd/resources/" resource-path "doc-root" set
            file-responder
        ] with-scope
    ] add-simple-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.
    "file" [ file-responder ] add-simple-responder
    
    ! The root directory is served by...
    "file" set-default-responder

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