simon/tiny_httpd
1
0
Fork 0
mirror of https://github.com/c-cube/tiny_httpd.git synced 2025-12-06 11:15:35 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Index seems not to work wirg non empty prefix

Browse source 
Here is a proposed fix ?
This commit is contained in:
Christophe Raffalli 2022-12-04 07:24:23 -10:00 • committed by Simon Cruanes
parent a3f27bd3cb
commit b52407ea00
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Tiny_httpd_dir.ml
View file

@ -247,7 +247,7 @@ let add_vfs_ ~on_fs ~top ~config ~vfs:((module VFS:VFS) as vfs) ~prefix server :
match config.dir_behavior with match config.dir_behavior with
| Index | Index_or_lists when VFS.contains (path // "index.html") -> | Index | Index_or_lists when VFS.contains (path // "index.html") ->
(* redirect using path, not full path *) (* redirect using path, not full path *)
let new_path = "/" // path // "index.html" in let new_path = "/" // prefix // path // "index.html" in
S._debug (fun k->k "redirect to `%s`" new_path); S._debug (fun k->k "redirect to `%s`" new_path);
S.Response.make_raw ~code:301 "" S.Response.make_raw ~code:301 ""
~headers:S.Headers.(empty |> set "location" new_path) ~headers:S.Headers.(empty |> set "location" new_path)