fixed mime-type mappings
This commit is contained in:
parent
6e9071af2b
commit
6a5eee6390
14
bot.rkt
14
bot.rkt
@ -15,12 +15,12 @@
|
|||||||
(define boundary-line (string-append "--" boundary CRLF))
|
(define boundary-line (string-append "--" boundary CRLF))
|
||||||
; a table to map file extensions to MIME types:
|
; a table to map file extensions to MIME types:
|
||||||
(define ext=>mime-type
|
(define ext=>mime-type
|
||||||
#hash(("jpg" . #"image/jpeg")
|
#hash(("jpg" . "image/jpeg")
|
||||||
("png" . #"image/png")
|
("png" . "image/png")
|
||||||
("gif" . #"image/Gif")
|
("gif" . "image/Gif")
|
||||||
("swf" . #"application/x-shockwave-flash")
|
("swf" . "application/x-shockwave-flash")
|
||||||
("mp4" . #"video/mp4")
|
("mp4" . "video/mp4")
|
||||||
("webm" . #"video/webm")))
|
("webm" . "video/webm")))
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
@ -78,3 +78,5 @@
|
|||||||
(loop))
|
(loop))
|
||||||
|
|
||||||
(loop)
|
(loop)
|
||||||
|
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user