From 4e72b10ce48aac9ae961dd2920a11f61b3bcbe62 Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Wed, 27 Jun 2007 00:08:00 +0000 Subject: [PATCH] Fixing help-desk svn: r6744 --- collects/web-server/web-server-unit.ss | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/collects/web-server/web-server-unit.ss b/collects/web-server/web-server-unit.ss index e5495474cb..de1dc0cb7c 100644 --- a/collects/web-server/web-server-unit.ss +++ b/collects/web-server/web-server-unit.ss @@ -10,7 +10,8 @@ "configuration/configuration-table-structs.ss" "private/cache-table.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 timeout: (lib "dispatch-timeout.ss" "web-server" "dispatchers")) (prefix passwords: "dispatchers/dispatch-passwords.ss") @@ -51,8 +52,11 @@ (define (host-info->dispatcher host-info) (sequencer:make (timeout:make initial-connection-timeout) - (log:make #:format (log:log-format->format (host-log-format host-info)) - #:log-path (host-log-path host-info)) + (if (and (host-log-format 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) (passwords:make #:password-file (host-passwords host-info) #:authentication-responder (responders-authentication (host-responders host-info)))])