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

fix(http_of_dir): handle bad symlinks

Browse source 
close #6
This commit is contained in:
Simon Cruanes 2019-11-19 18:27:32 -06:00
parent f548041263
commit cac954f10a
1 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/bin/http_of_dir.ml
View file

@ -48,8 +48,13 @@ let html_list_dir ~top ~parent d : string =
Array.iter
(fun f ->
if not @@ contains_dot_dot (d // f) then (
Printf.bprintf body " <li> <a href=\"/%s\"> %s %s </a> </li>\n"
(d // f) f (if Sys.is_directory (top // d // f) then "[dir]" else "");
let fpath = top // d // f in
if not @@ Sys.file_exists fpath then (
Printf.bprintf body " <li> %s [invalid file]</li>\n" f
) else (
Printf.bprintf body " <li> <a href=\"/%s\"> %s %s </a> </li>\n"
(d // f) f (if Sys.is_directory fpath then "[dir]" else "")
);
)
)
entries;