From 88227898edd26a823d0942fc7226adb61a20cb5d Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Lo=C3=AFc=20Hoguin?= Date: Mon, 13 Jun 2016 13:23:22 +0200 Subject: Merge static_world and web_server examples The new example is called file_server and it's basically the same as web_server was. The name is clearer than the original, all examples being "Web servers". The new example is also tested and the test suite has been refactored a little. --- examples/README.asciidoc | 9 +-- examples/file_server/Makefile | 8 +++ examples/file_server/README.asciidoc | 89 +++++++++++++++++++++++++ examples/file_server/priv/small.mp4 | Bin 0 -> 383631 bytes examples/file_server/priv/small.ogv | Bin 0 -> 872453 bytes examples/file_server/priv/test.txt | 1 + examples/file_server/priv/video.html | 11 +++ examples/file_server/relx.config | 2 + examples/file_server/src/directory_handler.erl | 47 +++++++++++++ examples/file_server/src/directory_lister.erl | 32 +++++++++ examples/file_server/src/file_server_app.erl | 29 ++++++++ examples/file_server/src/file_server_sup.erl | 23 +++++++ examples/static_world/Makefile | 8 --- examples/static_world/README.asciidoc | 30 --------- examples/static_world/priv/index.html | 1 - examples/static_world/priv/small.mp4 | Bin 383631 -> 0 bytes examples/static_world/priv/small.ogv | Bin 872453 -> 0 bytes examples/static_world/priv/test.txt | 1 - examples/static_world/priv/video.html | 11 --- examples/static_world/relx.config | 2 - examples/static_world/src/static_world_app.erl | 27 -------- examples/static_world/src/static_world_sup.erl | 23 ------- examples/web_server/Makefile | 8 --- examples/web_server/README.asciidoc | 11 --- examples/web_server/priv/small.mp4 | Bin 383631 -> 0 bytes examples/web_server/priv/small.ogv | Bin 872453 -> 0 bytes examples/web_server/priv/test.txt | 1 - examples/web_server/priv/video.html | 11 --- examples/web_server/relx.config | 2 - examples/web_server/src/directory_handler.erl | 47 ------------- examples/web_server/src/directory_lister.erl | 36 ---------- examples/web_server/src/web_server_app.erl | 29 -------- examples/web_server/src/web_server_sup.erl | 23 ------- 33 files changed, 245 insertions(+), 277 deletions(-) create mode 100644 examples/file_server/Makefile create mode 100644 examples/file_server/README.asciidoc create mode 100644 examples/file_server/priv/small.mp4 create mode 100644 examples/file_server/priv/small.ogv create mode 100644 examples/file_server/priv/test.txt create mode 100644 examples/file_server/priv/video.html create mode 100644 examples/file_server/relx.config create mode 100644 examples/file_server/src/directory_handler.erl create mode 100644 examples/file_server/src/directory_lister.erl create mode 100644 examples/file_server/src/file_server_app.erl create mode 100644 examples/file_server/src/file_server_sup.erl delete mode 100644 examples/static_world/Makefile delete mode 100644 examples/static_world/README.asciidoc delete mode 100644 examples/static_world/priv/index.html delete mode 100644 examples/static_world/priv/small.mp4 delete mode 100644 examples/static_world/priv/small.ogv delete mode 100644 examples/static_world/priv/test.txt delete mode 100644 examples/static_world/priv/video.html delete mode 100644 examples/static_world/relx.config delete mode 100644 examples/static_world/src/static_world_app.erl delete mode 100644 examples/static_world/src/static_world_sup.erl delete mode 100644 examples/web_server/Makefile delete mode 100644 examples/web_server/README.asciidoc delete mode 100644 examples/web_server/priv/small.mp4 delete mode 100644 examples/web_server/priv/small.ogv delete mode 100644 examples/web_server/priv/test.txt delete mode 100644 examples/web_server/priv/video.html delete mode 100644 examples/web_server/relx.config delete mode 100644 examples/web_server/src/directory_handler.erl delete mode 100644 examples/web_server/src/directory_lister.erl delete mode 100644 examples/web_server/src/web_server_app.erl delete mode 100644 examples/web_server/src/web_server_sup.erl (limited to 'examples') diff --git a/examples/README.asciidoc b/examples/README.asciidoc index 965aba5..7e5c6e0 100644 --- a/examples/README.asciidoc +++ b/examples/README.asciidoc @@ -21,6 +21,9 @@ * link:eventsource[]: eventsource emitter and consumer +* link:file_server[]: + file server with directory listing + * link:hello_world[]: simplest example application @@ -42,15 +45,9 @@ * link:ssl_hello_world[]: simplest SSL application -* link:static_world[]: - static file handler - * link:upload[]: multipart/form-data upload -* link:web_server[]: - serve files with lists directory entries - * link:websocket[]: websocket example diff --git a/examples/file_server/Makefile b/examples/file_server/Makefile new file mode 100644 index 0000000..7efa6ef --- /dev/null +++ b/examples/file_server/Makefile @@ -0,0 +1,8 @@ +PROJECT = file_server +PROJECT_DESCRIPTION = Cowboy file server example with directory listing +PROJECT_VERSION = 1 + +DEPS = cowboy jsx +dep_cowboy_commit = master + +include ../../erlang.mk diff --git a/examples/file_server/README.asciidoc b/examples/file_server/README.asciidoc new file mode 100644 index 0000000..f6bc61c --- /dev/null +++ b/examples/file_server/README.asciidoc @@ -0,0 +1,89 @@ += File server example with directory listing + +To try this example, you need GNU `make` and `git` in your PATH. + +To build and run the example, use the following command: + +[source,bash] +$ make run + +Then point your browser to http://localhost:8080 +to browse the contents of the `priv` directory. + +Interesting examples include: + +* http://localhost:8080/test.txt[Plain text file] +* http://localhost:8080/video.html[HTML5 video demo] + +== HTTP/1.1 example output + +[source,bash] +---- +$ curl -i http://localhost:8080/test.txt +HTTP/1.1 200 OK +connection: keep-alive +server: Cowboy +date: Mon, 09 Sep 2013 13:49:50 GMT +content-length: 52 +content-type: text/plain +last-modified: Fri, 18 Jan 2013 16:33:31 GMT + +If you read this then the static file server works! +---- + +== HTTP/2 example output + +[source,bash] +---- +$ nghttp -v http://localhost:8080/test.txt +[ 0.000] Connected +[ 0.000] send SETTINGS frame + (niv=2) + [SETTINGS_MAX_CONCURRENT_STREAMS(0x03):100] + [SETTINGS_INITIAL_WINDOW_SIZE(0x04):65535] +[ 0.000] send PRIORITY frame + (dep_stream_id=0, weight=201, exclusive=0) +[ 0.000] send PRIORITY frame + (dep_stream_id=0, weight=101, exclusive=0) +[ 0.000] send PRIORITY frame + (dep_stream_id=0, weight=1, exclusive=0) +[ 0.000] send PRIORITY frame + (dep_stream_id=7, weight=1, exclusive=0) +[ 0.000] send PRIORITY frame + (dep_stream_id=3, weight=1, exclusive=0) +[ 0.000] send HEADERS frame + ; END_STREAM | END_HEADERS | PRIORITY + (padlen=0, dep_stream_id=11, weight=16, exclusive=0) + ; Open new stream + :method: GET + :path: /test.txt + :scheme: http + :authority: localhost:8080 + accept: */* + accept-encoding: gzip, deflate + user-agent: nghttp2/1.7.1 +[ 0.001] recv SETTINGS frame + (niv=0) +[ 0.001] recv SETTINGS frame + ; ACK + (niv=0) +[ 0.001] send SETTINGS frame + ; ACK + (niv=0) +[ 0.007] recv (stream_id=13) :status: 200 +[ 0.007] recv (stream_id=13) content-length: 52 +[ 0.007] recv (stream_id=13) content-type: text/plain +[ 0.007] recv (stream_id=13) date: Mon, 13 Jun 2016 11:25:20 GMT +[ 0.007] recv (stream_id=13) etag: "1371478245" +[ 0.007] recv (stream_id=13) last-modified: Tue, 12 Aug 2014 17:00:17 GMT +[ 0.007] recv (stream_id=13) server: Cowboy +[ 0.007] recv HEADERS frame + ; END_HEADERS + (padlen=0) + ; First response header +If you read this then the static file server works! +[ 0.007] recv DATA frame + ; END_STREAM +[ 0.007] send GOAWAY frame + (last_stream_id=0, error_code=NO_ERROR(0x00), opaque_data(0)=[]) +---- diff --git a/examples/file_server/priv/small.mp4 b/examples/file_server/priv/small.mp4 new file mode 100644 index 0000000..1fc4788 Binary files /dev/null and b/examples/file_server/priv/small.mp4 differ diff --git a/examples/file_server/priv/small.ogv b/examples/file_server/priv/small.ogv new file mode 100644 index 0000000..6409d6e Binary files /dev/null and b/examples/file_server/priv/small.ogv differ diff --git a/examples/file_server/priv/test.txt b/examples/file_server/priv/test.txt new file mode 100644 index 0000000..760cddb --- /dev/null +++ b/examples/file_server/priv/test.txt @@ -0,0 +1 @@ +If you read this then the static file server works! diff --git a/examples/file_server/priv/video.html b/examples/file_server/priv/video.html new file mode 100644 index 0000000..0830ae0 --- /dev/null +++ b/examples/file_server/priv/video.html @@ -0,0 +1,11 @@ + + + +

HTML5 Video Example

+ +

Videos taken from TechSlides

+ + diff --git a/examples/file_server/relx.config b/examples/file_server/relx.config new file mode 100644 index 0000000..9e365e9 --- /dev/null +++ b/examples/file_server/relx.config @@ -0,0 +1,2 @@ +{release, {file_server_example, "1"}, [file_server]}. +{extended_start_script, true}. diff --git a/examples/file_server/src/directory_handler.erl b/examples/file_server/src/directory_handler.erl new file mode 100644 index 0000000..d16e014 --- /dev/null +++ b/examples/file_server/src/directory_handler.erl @@ -0,0 +1,47 @@ +%% 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/directory_lister.erl b/examples/file_server/src/directory_lister.erl new file mode 100644 index 0000000..2ca9d30 --- /dev/null +++ b/examples/file_server/src/directory_lister.erl @@ -0,0 +1,32 @@ +%% Feel free to use, reuse and abuse the code in this file. + +-module(directory_lister). +-behaviour(cowboy_middleware). + +-export([execute/2]). + +execute(Req, Env=#{handler := cowboy_static}) -> + redirect_directory(Req, Env); +execute(Req, Env) -> + {ok, Req, Env}. + +redirect_directory(Req, Env=#{handler_opts := {_, _, _, Extra}}) -> + Path = cowboy_req:path_info(Req), + Path1 = << <> || S <- Path >>, + {dir_handler, DirHandler} = lists:keyfind(dir_handler, 1, Extra), + FullPath = resource_path(Path1), + case valid_path(Path) and filelib:is_dir(FullPath) of + true -> handle_directory(Req, Env, Path1, FullPath, DirHandler); + false -> {ok, Req, Env} + end. + +handle_directory(Req, Env, Prefix, Path, DirHandler) -> + {ok, Req, Env#{handler => DirHandler, handler_opts => {Prefix, Path}}}. + +valid_path([]) -> true; +valid_path([<<"..">> | _T]) -> false; +valid_path([<<"/", _/binary>> | _T]) -> false; +valid_path([_H | Rest]) -> valid_path(Rest). + +resource_path(Path) -> + filename:join([code:priv_dir(file_server), Path]). diff --git a/examples/file_server/src/file_server_app.erl b/examples/file_server/src/file_server_app.erl new file mode 100644 index 0000000..49924ba --- /dev/null +++ b/examples/file_server/src/file_server_app.erl @@ -0,0 +1,29 @@ +%% Feel free to use, reuse and abuse the code in this file. + +%% @private +-module(file_server_app). +-behaviour(application). + +%% API. +-export([start/2]). +-export([stop/1]). + +%% API. + +start(_Type, _Args) -> + Dispatch = cowboy_router:compile([ + {'_', [ + {"/[...]", cowboy_static, {priv_dir, file_server, "", [ + {mimetypes, cow_mimetypes, all}, + {dir_handler, directory_handler} + ]}} + ]} + ]), + {ok, _} = cowboy:start_clear(http, 100, [{port, 8080}], #{ + env => #{dispatch => Dispatch}, + middlewares => [cowboy_router, directory_lister, cowboy_handler] + }), + file_server_sup:start_link(). + +stop(_State) -> + ok. diff --git a/examples/file_server/src/file_server_sup.erl b/examples/file_server/src/file_server_sup.erl new file mode 100644 index 0000000..961eb5e --- /dev/null +++ b/examples/file_server/src/file_server_sup.erl @@ -0,0 +1,23 @@ +%% Feel free to use, reuse and abuse the code in this file. + +%% @private +-module(file_server_sup). +-behaviour(supervisor). + +%% API. +-export([start_link/0]). + +%% supervisor. +-export([init/1]). + +%% API. + +-spec start_link() -> {ok, pid()}. +start_link() -> + supervisor:start_link({local, ?MODULE}, ?MODULE, []). + +%% supervisor. + +init([]) -> + Procs = [], + {ok, {{one_for_one, 10, 10}, Procs}}. diff --git a/examples/static_world/Makefile b/examples/static_world/Makefile deleted file mode 100644 index cbce76c..0000000 --- a/examples/static_world/Makefile +++ /dev/null @@ -1,8 +0,0 @@ -PROJECT = static_world -PROJECT_DESCRIPTION = Cowboy static file handler example -PROJECT_VERSION = 1 - -DEPS = cowboy -dep_cowboy_commit = master - -include ../../erlang.mk diff --git a/examples/static_world/README.asciidoc b/examples/static_world/README.asciidoc deleted file mode 100644 index 3f09900..0000000 --- a/examples/static_world/README.asciidoc +++ /dev/null @@ -1,30 +0,0 @@ -= Static file handler example - -To try this example, you need GNU `make` and `git` in your PATH. - -To build and run the example, use the following command: - -[source,bash] -$ make run - -The example will serve all the files found in the 'priv/' -directory. For example: - -* http://localhost:8080/test.txt[Plain text file] -* http://localhost:8080/video.html[HTML5 video demo] - -== Example output - -[source,bash] ----- -$ curl -i http://localhost:8080/test.txt -HTTP/1.1 200 OK -connection: keep-alive -server: Cowboy -date: Mon, 09 Sep 2013 13:49:50 GMT -content-length: 52 -content-type: text/plain -last-modified: Fri, 18 Jan 2013 16:33:31 GMT - -If you read this then the static file server works! ----- diff --git a/examples/static_world/priv/index.html b/examples/static_world/priv/index.html deleted file mode 100644 index 2ebe508..0000000 --- a/examples/static_world/priv/index.html +++ /dev/null @@ -1 +0,0 @@ -

Howdy, Pardner

diff --git a/examples/static_world/priv/small.mp4 b/examples/static_world/priv/small.mp4 deleted file mode 100644 index 1fc4788..0000000 Binary files a/examples/static_world/priv/small.mp4 and /dev/null differ diff --git a/examples/static_world/priv/small.ogv b/examples/static_world/priv/small.ogv deleted file mode 100644 index 6409d6e..0000000 Binary files a/examples/static_world/priv/small.ogv and /dev/null differ diff --git a/examples/static_world/priv/test.txt b/examples/static_world/priv/test.txt deleted file mode 100644 index 760cddb..0000000 --- a/examples/static_world/priv/test.txt +++ /dev/null @@ -1 +0,0 @@ -If you read this then the static file server works! diff --git a/examples/static_world/priv/video.html b/examples/static_world/priv/video.html deleted file mode 100644 index eca63ee..0000000 --- a/examples/static_world/priv/video.html +++ /dev/null @@ -1,11 +0,0 @@ - - - -

HTML5 Video Example

- -

Videos taken from TechSlides

- - diff --git a/examples/static_world/relx.config b/examples/static_world/relx.config deleted file mode 100644 index a480902..0000000 --- a/examples/static_world/relx.config +++ /dev/null @@ -1,2 +0,0 @@ -{release, {static_world_example, "1"}, [static_world]}. -{extended_start_script, true}. diff --git a/examples/static_world/src/static_world_app.erl b/examples/static_world/src/static_world_app.erl deleted file mode 100644 index 4d194c7..0000000 --- a/examples/static_world/src/static_world_app.erl +++ /dev/null @@ -1,27 +0,0 @@ -%% Feel free to use, reuse and abuse the code in this file. - -%% @private --module(static_world_app). --behaviour(application). - -%% API. --export([start/2]). --export([stop/1]). - -%% API. - -start(_Type, _Args) -> - Dispatch = cowboy_router:compile([ - {'_', [ - {"/", cowboy_static, {priv_file, static_world, "index.html"}}, - {"/[...]", cowboy_static, {priv_dir, static_world, "", - [{mimetypes, cow_mimetypes, all}]}} - ]} - ]), - {ok, _} = cowboy:start_http(http, 100, [{port, 8080}], [ - {env, [{dispatch, Dispatch}]} - ]), - static_world_sup:start_link(). - -stop(_State) -> - ok. diff --git a/examples/static_world/src/static_world_sup.erl b/examples/static_world/src/static_world_sup.erl deleted file mode 100644 index a57d07a..0000000 --- a/examples/static_world/src/static_world_sup.erl +++ /dev/null @@ -1,23 +0,0 @@ -%% Feel free to use, reuse and abuse the code in this file. - -%% @private --module(static_world_sup). --behaviour(supervisor). - -%% API. --export([start_link/0]). - -%% supervisor. --export([init/1]). - -%% API. - --spec start_link() -> {ok, pid()}. -start_link() -> - supervisor:start_link({local, ?MODULE}, ?MODULE, []). - -%% supervisor. - -init([]) -> - Procs = [], - {ok, {{one_for_one, 10, 10}, Procs}}. diff --git a/examples/web_server/Makefile b/examples/web_server/Makefile deleted file mode 100644 index 34ec805..0000000 --- a/examples/web_server/Makefile +++ /dev/null @@ -1,8 +0,0 @@ -PROJECT = web_server -PROJECT_DESCRIPTION = Cowboy static directory indexing example -PROJECT_VERSION = 1 - -DEPS = cowboy -dep_cowboy_commit = master - -include ../../erlang.mk diff --git a/examples/web_server/README.asciidoc b/examples/web_server/README.asciidoc deleted file mode 100644 index 8f0eb4b..0000000 --- a/examples/web_server/README.asciidoc +++ /dev/null @@ -1,11 +0,0 @@ -= Directory indexing example - -To try this example, you need GNU `make` and `git` in your PATH. - -To build and run the example, use the following command: - -[source,bash] -$ make run - -Then point your browser to http://localhost:8080 -to browse the contents of the `priv` directory. diff --git a/examples/web_server/priv/small.mp4 b/examples/web_server/priv/small.mp4 deleted file mode 100644 index 1fc4788..0000000 Binary files a/examples/web_server/priv/small.mp4 and /dev/null differ diff --git a/examples/web_server/priv/small.ogv b/examples/web_server/priv/small.ogv deleted file mode 100644 index 6409d6e..0000000 Binary files a/examples/web_server/priv/small.ogv and /dev/null differ diff --git a/examples/web_server/priv/test.txt b/examples/web_server/priv/test.txt deleted file mode 100644 index 760cddb..0000000 --- a/examples/web_server/priv/test.txt +++ /dev/null @@ -1 +0,0 @@ -If you read this then the static file server works! diff --git a/examples/web_server/priv/video.html b/examples/web_server/priv/video.html deleted file mode 100644 index eca63ee..0000000 --- a/examples/web_server/priv/video.html +++ /dev/null @@ -1,11 +0,0 @@ - - - -

HTML5 Video Example

- -

Videos taken from TechSlides

- - diff --git a/examples/web_server/relx.config b/examples/web_server/relx.config deleted file mode 100644 index 305ab94..0000000 --- a/examples/web_server/relx.config +++ /dev/null @@ -1,2 +0,0 @@ -{release, {web_server_example, "1"}, [web_server]}. -{extended_start_script, true}. diff --git a/examples/web_server/src/directory_handler.erl b/examples/web_server/src/directory_handler.erl deleted file mode 100644 index 7af67ba..0000000 --- a/examples/web_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) -> - {[ - {{<<"application">>, <<"json">>, []}, list_json}, - {{<<"text">>, <<"html">>, []}, list_html} - ], 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/web_server/src/directory_lister.erl b/examples/web_server/src/directory_lister.erl deleted file mode 100644 index bc34073..0000000 --- a/examples/web_server/src/directory_lister.erl +++ /dev/null @@ -1,36 +0,0 @@ -%% Feel free to use, reuse and abuse the code in this file. - --module(directory_lister). --behaviour(cowboy_middleware). - --export([execute/2]). - -execute(Req, Env) -> - case lists:keyfind(handler, 1, Env) of - {handler, cowboy_static} -> redirect_directory(Req, Env); - _H -> {ok, Req, Env} - end. - -redirect_directory(Req, Env) -> - Path = cowboy_req:path_info(Req), - Path1 = << <> || S <- Path >>, - {handler_opts, {_, _, _, Extra}} = lists:keyfind(handler_opts, 1, Env), - {dir_handler, DirHandler} = lists:keyfind(dir_handler, 1, Extra), - FullPath = resource_path(Path1), - case valid_path(Path) and filelib:is_dir(FullPath) of - true -> handle_directory(Req, Env, Path1, FullPath, DirHandler); - false -> {ok, Req, Env} - end. - -handle_directory(Req, Env, Prefix, Path, DirHandler) -> - Env1 = lists:keydelete(handler, 1, - lists:keydelete(handler_opts, 1, Env)), - {ok, Req, [{handler, DirHandler}, {handler_opts, {Prefix, Path}} | Env1]}. - -valid_path([]) -> true; -valid_path([<<"..">> | _T]) -> false; -valid_path([<<"/", _/binary>> | _T]) -> false; -valid_path([_H | Rest]) -> valid_path(Rest). - -resource_path(Path) -> - filename:join([code:priv_dir(web_server), Path]). diff --git a/examples/web_server/src/web_server_app.erl b/examples/web_server/src/web_server_app.erl deleted file mode 100644 index e32d947..0000000 --- a/examples/web_server/src/web_server_app.erl +++ /dev/null @@ -1,29 +0,0 @@ -%% Feel free to use, reuse and abuse the code in this file. - -%% @private --module(web_server_app). --behaviour(application). - -%% API. --export([start/2]). --export([stop/1]). - -%% API. - -start(_Type, _Args) -> - Dispatch = cowboy_router:compile([ - {'_', [ - {"/[...]", cowboy_static, {priv_dir, web_server, "", [ - {mimetypes, cow_mimetypes, all}, - {dir_handler, directory_handler} - ]}} - ]} - ]), - {ok, _} = cowboy:start_http(http, 100, [{port, 8080}], [ - {env, [{dispatch, Dispatch}]}, - {middlewares, [cowboy_router, directory_lister, cowboy_handler]} - ]), - web_server_sup:start_link(). - -stop(_State) -> - ok. diff --git a/examples/web_server/src/web_server_sup.erl b/examples/web_server/src/web_server_sup.erl deleted file mode 100644 index 03f9f67..0000000 --- a/examples/web_server/src/web_server_sup.erl +++ /dev/null @@ -1,23 +0,0 @@ -%% Feel free to use, reuse and abuse the code in this file. - -%% @private --module(web_server_sup). --behaviour(supervisor). - -%% API. --export([start_link/0]). - -%% supervisor. --export([init/1]). - -%% API. - --spec start_link() -> {ok, pid()}. -start_link() -> - supervisor:start_link({local, ?MODULE}, ?MODULE, []). - -%% supervisor. - -init([]) -> - Procs = [], - {ok, {{one_for_one, 10, 10}, Procs}}. -- cgit v1.2.3