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

Removed unused

Browse Source 
svn: r6345
This commit is contained in:
Jay McCarthy 2007-05-27 00:29:16 +00:00
parent b6391ebfdd
commit 53d844fe91
1 changed files with 3 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
collects/web-server/prototype-web-server/hardcoded-configuration.ss
View File

@ -4,21 +4,8 @@
(lib "response.ss" "web-server") (lib "response.ss" "web-server")
(lib "dirs.ss" "setup")) (lib "dirs.ss" "setup"))
(provide config:port (provide hardcoded-host)
config:max-waiting
config:listen-ip
config:initial-connection-timeout
config:virtual-hosts
hardcoded-host)
;; ************************************************************
;; HARDCODED CONFIGURATION STUFF
(define config:port 8000)
(define config:max-waiting 20)
(define config:listen-ip #f)
(define config:initial-connection-timeout 30)
;; ************************************************************ ;; ************************************************************
;; HARDCODED HOST ;; HARDCODED HOST
@ -146,10 +133,4 @@
; mime-types ; mime-types
(build-path server-root-path "mime.types") (build-path server-root-path "mime.types")
; password-authentication ; password-authentication
(build-path server-root-path "passwords")))) (build-path server-root-path "passwords")))))
;; config:virtual-hosts: alpha -> host
;; return a default host structure
(define config:virtual-hosts
(lambda (ignore)
hardcoded-host)))