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

Fixing mime type detection for prefixless files, pr 7564

Browse Source 
svn: r751
This commit is contained in:
Jay McCarthy 2005-09-02 12:46:21 +00:00
parent 8c251a0970
commit 828a942f58
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/web-server/util.ss
View File

@ -4,6 +4,7 @@
(lib "list.ss") (lib "list.ss")
(lib "url.ss" "net") (lib "url.ss" "net")
(lib "xml.ss" "xml") (lib "xml.ss" "xml")
(lib "plt-match.ss")
(lib "errortrace-lib.ss" "errortrace")) (lib "errortrace-lib.ss" "errortrace"))
(require "response-structs.ss" (require "response-structs.ss"
"request-structs.ss") "request-structs.ss")
@ -122,11 +123,12 @@
(define get-mime-type (define get-mime-type
(let ([file-suffix-regexp (byte-regexp #".*\\.([^\\.]*$)")]) (let ([file-suffix-regexp (byte-regexp #".*\\.([^\\.]*$)")])
(lambda (path) (lambda (path)
(let ([sffx (cadr (regexp-match file-suffix-regexp (path->bytes path)))]) (match (regexp-match file-suffix-regexp (path->bytes path))
(hash-table-get MIME-TYPE-TABLE [(list path-bytes sffx)
(lowercase-symbol! sffx) (hash-table-get MIME-TYPE-TABLE
;(string->symbol (bytes->string/utf-8 sffx)) (lowercase-symbol! sffx)
(lambda () DEFAULT-MIME-TYPE)))))) (lambda () DEFAULT-MIME-TYPE))]
[_ DEFAULT-MIME-TYPE]))))
(define DEFAULT-MIME-TYPE #"text/plain") (define DEFAULT-MIME-TYPE #"text/plain")