fixed mime-type mappings

This commit is contained in:
Brent Gordon 2020-02-29 11:41:23 -05:00
parent 6e9071af2b
commit 6a5eee6390

14
bot.rkt
View File

@ -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)