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

Simple rename

Browse Source 
svn: r6440
This commit is contained in:
Jay McCarthy 2007-06-01 15:38:44 +00:00
parent 830cb95912
commit 334bb4cb23
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/web-server/prototype-web-server/dispatch-servlets2.ss → collects/web-server/prototype-web-server/dispatch-lang.ss
View File

@ -1,4 +1,4 @@
(module dispatch-servlets2 mzscheme
(module dispatch-lang mzscheme
(require (lib "kw.ss")
(lib "contract.ss")
(lib "url.ss" "net")

10
collects/web-server/prototype-web-server/run.ss
View File

@ -6,7 +6,7 @@
(prefix filter: (lib "dispatch-filter.ss" "web-server" "dispatchers"))
(prefix const: (lib "dispatch-const.ss" "web-server" "dispatchers"))
(prefix sequencer: (lib "dispatch-sequencer.ss" "web-server" "dispatchers"))
(prefix servlets2: (lib "dispatch-servlets2.ss" "web-server" "prototype-web-server")))
(prefix lang: (lib "dispatch-lang.ss" "web-server" "prototype-web-server")))
(define server-root-path (build-path "~" "Development" "plt" "default-web-root"))
(define default-host-path (build-path server-root-path "conf"))
@ -22,10 +22,10 @@
#:dispatch (sequencer:make
(filter:make
#rx"\\.ss"
(servlets2:make #:url->path (fsmap:make-url->path/optimism url->path)
#:timeouts-servlet-connection 86400
#:responders-servlet-loading (gen-servlet-responder servlet-error-file)
#:responders-servlet (gen-servlet-responder servlet-error-file)))
(lang:make #:url->path (fsmap:make-url->path/optimism url->path)
#:timeouts-servlet-connection 86400
#:responders-servlet-loading (gen-servlet-responder servlet-error-file)
#:responders-servlet (gen-servlet-responder servlet-error-file)))
(files:make #:url->path url->path
#:mime-types-path (build-path server-root-path "mime.types")
#:indices (list "index.html" "index.htm"))