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

feat: in http_of_dir, sort entries and display their size

Browse source
This commit is contained in:
Simon Cruanes 2019-11-21 08:17:48 -06:00
parent cac954f10a
commit 3824966217
1 changed files with 13 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
src/bin/http_of_dir.ml
View file

@ -29,11 +29,18 @@ let contains_dot_dot s =
false false
with Exit -> true with Exit -> true
(* Human readable size *)
let human_size (x:int) : string =
if x >= 1_000_000 then Printf.sprintf "%d.%dM" (x / 1_000_000) ((x/1000) mod 1_000)
else if x >= 1_000 then Printf.sprintf "%d.%dk" (x/1000) ((x/100) mod 10)
else Printf.sprintf "%db" x
let header_html = "Content-Type", "text/html" let header_html = "Content-Type", "text/html"
let (//) = Filename.concat let (//) = Filename.concat
let html_list_dir ~top ~parent d : string = let html_list_dir ~top ~parent d : string =
let entries = Sys.readdir @@ (top // d) in let entries = Sys.readdir @@ (top // d) in
Array.sort compare entries;
let body = Buffer.create 256 in let body = Buffer.create 256 in
Printf.bprintf body {|<head><title> http_of_dir %S</title> Printf.bprintf body {|<head><title> http_of_dir %S</title>
</head><body> </head><body>
@ -52,8 +59,12 @@ let html_list_dir ~top ~parent d : string =
if not @@ Sys.file_exists fpath then ( if not @@ Sys.file_exists fpath then (
Printf.bprintf body " <li> %s [invalid file]</li>\n" f Printf.bprintf body " <li> %s [invalid file]</li>\n" f
) else ( ) else (
Printf.bprintf body " <li> <a href=\"/%s\"> %s %s </a> </li>\n" let size =
(d // f) f (if Sys.is_directory fpath then "[dir]" else "") try Printf.sprintf " (%s)" @@ human_size (Unix.stat fpath).Unix.st_size
with _ -> ""
in
Printf.bprintf body " <li> <a href=\"/%s\"> %s </a> %s%s </li>\n"
(d // f) f (if Sys.is_directory fpath then "[dir]" else "") size
); );
) )
) )