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

feat dir: only read content of regular files

Browse source 
no need to look into sockets, pipes, etc.
This commit is contained in:
Simon Cruanes 2024-02-21 22:06:24 -05:00
parent a39df1ba47
commit e69f1b7c8c
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/Tiny_httpd_dir.ml
View file

@ -94,8 +94,12 @@ let vfs_of_dir (top : string) : vfs =
let list_dir f = Sys.readdir (top // f)
let read_file_content f =
let ic = Unix.(openfile (top // f) [ O_RDONLY ] 0) in
let fpath = top // f in
match Unix.stat fpath with
| { st_kind = Unix.S_REG; _ } ->
let ic = Unix.(openfile fpath [ O_RDONLY ] 0) in
Tiny_httpd_stream.of_fd_close_noerr ic
| _ -> failwith (Printf.sprintf "not a regular file: %S" f)
let create f =
let oc = open_out_bin (top // f) in