nat/natalieee.net
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

misc updates to server code; improve Cache-Control settings

Browse Source
This commit is contained in:
natalie roentgen connolly
2025-05-11 15:31:09 -07:00
parent c84e04e784
commit 10f7e9bebb
3 changed files with 15 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
srv/content/file_io.hy
View File

@ -29,4 +29,4 @@
(with [f (open path "rb")] (with [f (open path "rb")]
(setv data (.read f))) (setv data (.read f)))
(return #({"Content-Type" mime-type "Cache-Control" "max-age=0, stale-while-revalidate=31536000"} data))) (return #({"Content-Type" mime-type "Cache-Control" "max-age=300, stale-while-revalidate=3600"} data)))

10
srv/http_utils/request.hy
View File

@ -19,8 +19,8 @@
(setv [http-method route http-version] (.split (.decode request-line "utf-8") " ")) (setv [http-method route http-version] (.split (.decode request-line "utf-8") " "))
(doto request (doto request
(assoc :method http-method) (assoc "method" http-method)
(assoc :route (let (assoc "route" (let
[[_ _ path query _] (urlsplit route)] [[_ _ path query _] (urlsplit route)]
(dict (dict
:path (.join "/" :path (.join "/"
@ -35,8 +35,8 @@
:parameters (parse-url-encoded query)))) :parameters (parse-url-encoded query))))
(assoc :version http-version) (assoc "version" http-version)
(assoc :headers (dict (assoc "headers" (dict
(dfor header (dfor header
(map (fn [x] (map (fn [x]
(.split (.decode x "utf-8") ": ")) headers) (.split (.decode x "utf-8") ": ")) headers)
@ -44,7 +44,7 @@
(get header 1)))) (get header 1))))
(assoc :body (branch (in it (. request (get "headers") (get "Content-Type" ""))) (assoc "body" (branch (in it (. request (get "headers") (get "Content-Type" "")))
"application/x-www-form-urlencoded" (parse-url-encoded (.decode (.join b"\n" body) "utf-8")) "application/x-www-form-urlencoded" (parse-url-encoded (.decode (.join b"\n" body) "utf-8"))
"" "" "" ""
;;"multipart/form-data" ;(do ;;"multipart/form-data" ;(do