FEAT: using mime-types module in httpd scheme for more complete list of mime types

Author: Oldes

src/modules/httpd.reb

@@ -36,6 +36,8 @@ Rebol [
 	]
 ]
 
+import 'mime-types
+
 append system/options/log [httpd: 1]
 
 ;------------------------------------------------------------------------
@@ -461,39 +463,6 @@ sys/make-scheme [
 		;511 "Network Authentication Required"
 	]
 
-	MIME-Types: make map! [
-		%.txt   "text/plain"
-		%.html  "text/html"
-		%.htm   "text/html"
-		%.js    "text/javascript"
-		%.css   "text/css"
-		%.csv   "text/csv"
-		%.ics   "text/calendar"
-		%.gif   "image/gif"
-		%.png   "image/png"
-		%.jpg   "image/jpeg"
-		%.jpeg  "image/jpeg"
-		%.ico   "image/x-icon"
-		%.svg   "image/svg+xml"
-		%.json  "application/json"
-		%.pdf   "application/pdf"
-		%.swf   "application/x-shockwave-flash"
-		%.wasm  "application/wasm"
-		%.xls   "application/vnd.ms-excel"
-		%.xlsx  "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet"
-		%.zip   "application/zip"
-		%.7z    "application/x-7z-compressed"
-		%.doc   "application/msword"
-		%.wav   "audio/wav"
-		%.mid   "audio/midi"
-		%.midi  "audio/x-midi"
-		%.otf   "font/otf"
-		%.ttf   "font/ttf"
-		%.woff  "font/woff"
-		%.woff2 "font/woff2"
-		%.xhtml "application/xhtml+xml"
-	]
-
 	Respond: function [port [port!]][
 		ctx: port/extra
 		out: ctx/out
@@ -504,7 +473,7 @@ sys/make-scheme [
 
 		unless out/header/Content-Type [
 			if out/target [
-				out/header/Content-Type: pick MIME-Types suffix? out/target
+				out/header/Content-Type: mime-type? out/target
 			]
 			if all [
 				none? out/header/Content-Type ; no mime found above