From 0940e725a032321b00deb05785dc525a5087c14d Mon Sep 17 00:00:00 2001 From: ruanpienaar Date: Wed, 7 Nov 2018 23:35:32 +0000 Subject: [PATCH] Fix directory_h.erl back ( ../ ) web links. --- examples/file_server/src/directory_h.erl | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) 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