suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixing help-desk

Browse Source 
svn: r6744
This commit is contained in:
Jay McCarthy 2007-06-27 00:08:00 +00:00
parent 5b67fcbb86
commit 4e72b10ce4
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/web-server/web-server-unit.ss
View File

@ -10,7 +10,8 @@
"configuration/configuration-table-structs.ss" "configuration/configuration-table-structs.ss"
"private/cache-table.ss" "private/cache-table.ss"
(prefix http: "private/request.ss")) (prefix http: "private/request.ss"))
(require (prefix fsmap: "dispatchers/filesystem-map.ss") (require "dispatchers/dispatch.ss"
(prefix fsmap: "dispatchers/filesystem-map.ss")
(prefix sequencer: "dispatchers/dispatch-sequencer.ss") (prefix sequencer: "dispatchers/dispatch-sequencer.ss")
(prefix timeout: (lib "dispatch-timeout.ss" "web-server" "dispatchers")) (prefix timeout: (lib "dispatch-timeout.ss" "web-server" "dispatchers"))
(prefix passwords: "dispatchers/dispatch-passwords.ss") (prefix passwords: "dispatchers/dispatch-passwords.ss")
@ -51,8 +52,11 @@
(define (host-info->dispatcher host-info) (define (host-info->dispatcher host-info)
(sequencer:make (sequencer:make
(timeout:make initial-connection-timeout) (timeout:make initial-connection-timeout)
(log:make #:format (log:log-format->format (host-log-format host-info)) (if (and (host-log-format host-info)
#:log-path (host-log-path host-info)) (host-log-path host-info))
(log:make #:format (log:log-format->format (host-log-format host-info))
#:log-path (host-log-path host-info))
(lambda (conn req) (next-dispatcher)))
(let-values ([(update-password-cache! password-check) (let-values ([(update-password-cache! password-check)
(passwords:make #:password-file (host-passwords host-info) (passwords:make #:password-file (host-passwords host-info)
#:authentication-responder (responders-authentication (host-responders host-info)))]) #:authentication-responder (responders-authentication (host-responders host-info)))])