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

use new code, now that the web-server is fixed

Browse Source 
svn: r4938
This commit is contained in:
Eli Barzilay 2006-11-23 20:33:00 +00:00
parent ed58b58c90
commit 2f9a43cd42
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/handin-server/web-status-server.ss
View File

@ -54,18 +54,18 @@
(password-authentication ,(path->string (build-path (current-directory) "web-status-passwords")))))) (password-authentication ,(path->string (build-path (current-directory) "web-status-passwords"))))))
(virtual-host-table))) (virtual-host-table)))
#; ; old version
(define config@ (define config@
(let ([file (make-temporary-file)]) (let ([file (make-temporary-file)])
(with-output-to-file file (lambda () (write config)) 'truncate) (with-output-to-file file (lambda () (write config)) 'truncate)
(begin0 (load-configuration file) (delete-file file)))) (begin0 (load-configuration file) (delete-file file))))
#; ; This is working now
(define config@ (define config@
(load-configuration-sexpr (load-configuration-sexpr
web-dir config web-dir config
#:make-servlet-namespace #:make-servlet-namespace
(make-make-servlet-namespace (make-make-servlet-namespace
#:to-be-copied-module-specs #:to-be-copied-module-specs
'((lib "logger.ss" "handin-server" "private"))))) '((lib "logger.ss" "handin-server" "private")))))
(define-values/invoke-unit/sig web-server^ (define-values/invoke-unit/sig web-server^
(compound-unit/sig (compound-unit/sig