Index

From 86cb105679ff80214bfc9d979afa27b1eb747307 Mon Sep 17 00:00:00 2001 From: Herman Singh Date: Fri, 7 Sep 2018 13:48:43 -0400 Subject: Rename handler modules to _h --- examples/file_server/src/directory_h.erl | 47 ++++++++++++++++++++++++++ examples/file_server/src/directory_handler.erl | 47 -------------------------- examples/file_server/src/file_server_app.erl | 2 +- 3 files changed, 48 insertions(+), 48 deletions(-) create mode 100644 examples/file_server/src/directory_h.erl delete mode 100644 examples/file_server/src/directory_handler.erl (limited to 'examples/file_server') diff --git a/examples/file_server/src/directory_h.erl b/examples/file_server/src/directory_h.erl new file mode 100644 index 0000000..3232a7e --- /dev/null +++ b/examples/file_server/src/directory_h.erl @@ -0,0 +1,47 @@ +%% Feel free to use, reuse and abuse the code in this file. + +%% @doc Directory handler. +-module(directory_h). + +%% 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 = [<<"Index", + "">>, Body, <<"\n">>], + {HTML, Req, Path}. + +links(<<>>, File) -> + ["", File, "
\n"]; +links(Prefix, File) -> + ["", File, "
\n"]. 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 = [<<"Index", - "">>, Body, <<"\n">>], - {HTML, Req, Path}. - -links(<<>>, File) -> - ["", File, "
\n"]; -links(Prefix, File) -> - ["", File, "
\n"]. diff --git a/examples/file_server/src/file_server_app.erl b/examples/file_server/src/file_server_app.erl index 3f51855..89d5af0 100644 --- a/examples/file_server/src/file_server_app.erl +++ b/examples/file_server/src/file_server_app.erl @@ -15,7 +15,7 @@ start(_Type, _Args) -> {'_', [ {"/[...]", cowboy_static, {priv_dir, file_server, "", [ {mimetypes, cow_mimetypes, all}, - {dir_handler, directory_handler} + {dir_handler, directory_h} ]}} ]} ]), -- cgit v1.2.3