aboutsummaryrefslogtreecommitdiffstats
path: root/examples/file_server/src/directory_handler.erl
diff options
context:
space:
mode:
authorHerman Singh <[email protected]>2018-09-07 13:48:43 -0400
committerLoïc Hoguin <[email protected]>2018-09-23 14:12:38 +0200
commit86cb105679ff80214bfc9d979afa27b1eb747307 (patch)
tree873da2ab17c954c9fdf5e8adc5458212274b6c41 /examples/file_server/src/directory_handler.erl
parent8045f7a998f03b8995d30dc14b3308e9a67422bc (diff)
downloadcowboy-86cb105679ff80214bfc9d979afa27b1eb747307.tar.gz
cowboy-86cb105679ff80214bfc9d979afa27b1eb747307.tar.bz2
cowboy-86cb105679ff80214bfc9d979afa27b1eb747307.zip
Rename handler modules to _h
Diffstat (limited to 'examples/file_server/src/directory_handler.erl')
-rw-r--r--examples/file_server/src/directory_handler.erl47
1 files changed, 0 insertions, 47 deletions
diff --git a/examples/file_server/src/directory_handler.erl b/examples/file_server/src/directory_handler.erl
deleted file mode 100644
index d16e014..0000000
--- a/examples/file_server/src/directory_handler.erl
+++ /dev/null
@@ -1,47 +0,0 @@
-%% Feel free to use, reuse and abuse the code in this file.
-
-%% @doc Directory handler.
--module(directory_handler).
-
-%% REST Callbacks
--export([init/2]).
--export([allowed_methods/2]).
--export([resource_exists/2]).
--export([content_types_provided/2]).
-
-%% Callback Callbacks
--export([list_json/2]).
--export([list_html/2]).
-
-init(Req, Paths) ->
- {cowboy_rest, Req, Paths}.
-
-allowed_methods(Req, State) ->
- {[<<"GET">>], Req, State}.
-
-resource_exists(Req, {ReqPath, FilePath}) ->
- case file:list_dir(FilePath) of
- {ok, Fs} -> {true, Req, {ReqPath, lists:sort(Fs)}};
- _Err -> {false, Req, {ReqPath, FilePath}}
- end.
-
-content_types_provided(Req, State) ->
- {[
- {{<<"text">>, <<"html">>, []}, list_html},
- {{<<"application">>, <<"json">>, []}, list_json}
- ], Req, State}.
-
-list_json(Req, {Path, Fs}) ->
- Files = [ <<(list_to_binary(F))/binary>> || F <- Fs ],
- {jsx:encode(Files), Req, Path}.
-
-list_html(Req, {Path, Fs}) ->
- Body = [[ links(Path, F) || F <- [".."|Fs] ]],
- HTML = [<<"<!DOCTYPE html><html><head><title>Index</title></head>",
- "<body>">>, Body, <<"</body></html>\n">>],
- {HTML, Req, Path}.
-
-links(<<>>, File) ->
- ["<a href='/", File, "'>", File, "</a><br>\n"];
-links(Prefix, File) ->
- ["<a href='/", Prefix, $/, File, "'>", File, "</a><br>\n"].