diff --git a/examples/file_server/src/directory_h.erl b/examples/file_server/src/directory_h.erl index 3232a7ee..66e1466b 100644 --- a/examples/file_server/src/directory_h.erl +++ b/examples/file_server/src/directory_h.erl @@ -41,7 +41,13 @@ list_html(Req, {Path, Fs}) -> "">>, Body, <<"\n">>], {HTML, Req, Path}. +links(<<>>, "..") -> + "..
\n"; +links(Prefix, "..") -> + Tokens = string:tokens(binary_to_list(Prefix), "/"), + Back = lists:join("/", lists:reverse(tl(lists:reverse(Tokens)))), + ["..
\n"]; links(<<>>, File) -> ["", File, "
\n"]; links(Prefix, File) -> - ["", File, "
\n"]. + ["", File, "
\n"].