From 094387a08f95c91ec6e297aa5e5786aff0ab0a65 Mon Sep 17 00:00:00 2001 From: ruanpienaar Date: Wed, 7 Nov 2018 23:35:32 +0000 Subject: file_server example: Fix ../ links Amended to fix an issue with repeated path segments. --- examples/file_server/src/directory_h.erl | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/examples/file_server/src/directory_h.erl b/examples/file_server/src/directory_h.erl index 3232a7e..66e1466 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"]. -- cgit v1.2.3