diff --git a/examples/file_server/src/directory_h.erl b/examples/file_server/src/directory_h.erl index 3232a7ee..a1e0f009 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, "..") -> + Toks = string:tokens(binary_to_list(Prefix), "/"), + Back = lists:join( "/", lists:delete(lists:last(Toks), Toks)), + ["", "..", "
\n"]; links(<<>>, File) -> - ["", File, "
\n"]; + ["", File, "
\n"]; links(Prefix, File) -> - ["", File, "
\n"]. + ["", File, "
\n"]. \ No newline at end of file