wispserve Files

# HG changeset patch # User Arne Babenhauserheide # Date 1650179333 -7200 # Sun Apr 17 09:08:53 2022 +0200 # Node ID eefaf44964fa7293f25466fc1af3d00e69815cec # Parent aa5e4232fc377f960b51b3d7637b62951945218a add charset and viewport diff --git a/wispserve/serve.w b/wispserve/serve.w --- a/wispserve/serve.w +++ b/wispserve/serve.w @@ -400,7 +400,7 @@ sort files stringwispserve Files

Upload

Files

" @@ -515,7 +515,7 @@ . #f or cdr begin-end - ;; if no size is requested, optimize for streaming video, since that’s tho only thing that really needs optimizing + ;; if no size is requested, optimize for streaming video, since that’s the only thing that really needs optimizing min : - filesize 1 + range-begin cond @@ -779,7 +779,7 @@ define : server-file-download-handler folder-path request body define headers : request-headers request - pretty-print : and body (utf8->string body) + ;; pretty-print : and body (utf8->string body) let* : range-requested : assoc-item headers 'range disallow-range : not : or range-requested : assoc-item headers 'accept-language ;; accept-language is typically interactive, so if it is not present, we fall back to providing the whole file in one go. This is just a heuristic, though. There is no good way to detect "will accept Range response, even though it did not request it".