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

closer to new unit code

Browse Source 
svn: r5019
This commit is contained in:
Eli Barzilay 2006-12-04 07:32:30 +00:00
parent cdabc3a38d
commit a9446922ab
1 changed files with 10 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -48,21 +48,22 @@
[else #f]))
(file-root "htdocs")
(servlet-root ,web-dir)
(mime-types ,(path->string (build-path (collection-path "web-server")
"default-web-root"
"mime.types")))
(password-authentication ,(path->string (build-path (current-directory) "web-status-passwords"))))))
(mime-types ,(path->string
(build-path (collection-path "web-server")
"default-web-root"
"mime.types")))
(password-authentication "unused"))))
(virtual-host-table)))
(define config@
(define configuration
(load-configuration-sexpr
web-dir config
#:make-servlet-namespace
(make-make-servlet-namespace
#:to-be-copied-module-specs
'((lib "logger.ss" "handin-server" "private")
(lib "config.ss" "handin-server" "private")
(lib "md5.ss" "handin-server" "private")))))
'((lib "md5.ss" "handin-server" "private")
(lib "logger.ss" "handin-server" "private")
(lib "config.ss" "handin-server" "private")))))
(define-values/invoke-unit/sig web-server^
(compound-unit/sig
@ -70,11 +71,9 @@
(link [T : net:tcp^ ((make-ssl-tcp@
"server-cert.pem" "private-key.pem" #f #f
#f #f #f))]
[C : web-config^ (config@)]
[C : web-config^ (configuration)]
[S : web-server^ (web-server@ T C)])
(export (open S)))
#f)
(putenv "HANDIN_SERVER_DIR" (path->string (current-directory)))
(serve)))