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

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

@ -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