Add MIME types file from Apache to correctly serve files.
This commit is contained in:
parent
58e746e777
commit
5670d0ed4d
File diff suppressed because it is too large
Load Diff
|
@ -13,6 +13,7 @@
|
||||||
web-server/managers/none
|
web-server/managers/none
|
||||||
web-server/http/redirect
|
web-server/http/redirect
|
||||||
web-server/http/request-structs
|
web-server/http/request-structs
|
||||||
|
web-server/private/mime-types
|
||||||
"../collection/tree.rkt"
|
"../collection/tree.rkt"
|
||||||
"weblet-parameter.rkt"
|
"weblet-parameter.rkt"
|
||||||
"website.rkt"
|
"website.rkt"
|
||||||
|
@ -202,9 +203,14 @@
|
||||||
(serve
|
(serve
|
||||||
#:dispatch
|
#:dispatch
|
||||||
(sequencer:make
|
(sequencer:make
|
||||||
(files:make #:url->path (make-url->path (string->path (webcontainer-static wcontainer)))) ; File dispatcher, search in the static directory for files
|
; File dispatcher, search in the static directory for files
|
||||||
(servlet:make (webcontainer-dispatcher wcontainer)) ; Servlet dispatcher
|
(files:make
|
||||||
(servlet:make (webcontainer-not-found-dispatcher wcontainer)) ; 404 error servlet
|
#:url->path (make-url->path (string->path (webcontainer-static wcontainer)))
|
||||||
|
#:path->mime-type (make-path->mime-type "./mime.types"))
|
||||||
|
; Servlet dispatcher
|
||||||
|
(servlet:make (webcontainer-dispatcher wcontainer))
|
||||||
|
; 404 error servlet
|
||||||
|
(servlet:make (webcontainer-not-found-dispatcher wcontainer))
|
||||||
)
|
)
|
||||||
#:port (webcontainer-server-port wcontainer)
|
#:port (webcontainer-server-port wcontainer)
|
||||||
#:listen-ip (webcontainer-server-address wcontainer))
|
#:listen-ip (webcontainer-server-address wcontainer))
|
||||||
|
|
Loading…
Reference in New Issue