From 2f9a43cd42ebd70299cddb339c5996d3391ce8a5 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Thu, 23 Nov 2006 20:33:00 +0000 Subject: [PATCH] use new code, now that the web-server is fixed svn: r4938 --- collects/handin-server/web-status-server.ss | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/collects/handin-server/web-status-server.ss b/collects/handin-server/web-status-server.ss index aed1ff4462..caa58805d5 100644 --- a/collects/handin-server/web-status-server.ss +++ b/collects/handin-server/web-status-server.ss @@ -54,18 +54,18 @@ (password-authentication ,(path->string (build-path (current-directory) "web-status-passwords")))))) (virtual-host-table))) + #; ; old version (define config@ (let ([file (make-temporary-file)]) (with-output-to-file file (lambda () (write config)) 'truncate) (begin0 (load-configuration file) (delete-file file)))) - #; ; This is working now (define config@ - (load-configuration-sexpr + (load-configuration-sexpr web-dir config - #:make-servlet-namespace - (make-make-servlet-namespace - #:to-be-copied-module-specs - '((lib "logger.ss" "handin-server" "private"))))) + #:make-servlet-namespace + (make-make-servlet-namespace + #:to-be-copied-module-specs + '((lib "logger.ss" "handin-server" "private"))))) (define-values/invoke-unit/sig web-server^ (compound-unit/sig