From f112cdf643c520bb6554a2d8efa882e8e904b984 Mon Sep 17 00:00:00 2001 From: Adam Cammack Date: Sat, 16 Feb 2013 02:21:54 -0600 Subject: Add a web server example Explore re-routing in middleware. --- examples/README.md | 3 ++ examples/web_server/README.md | 27 ++++++++++++++ examples/web_server/priv/small.mp4 | Bin 0 -> 383631 bytes examples/web_server/priv/small.ogv | Bin 0 -> 872453 bytes examples/web_server/priv/test.txt | 1 + examples/web_server/priv/video.html | 11 ++++++ examples/web_server/rebar.config | 8 ++++ examples/web_server/src/directory_handler.erl | 51 ++++++++++++++++++++++++++ examples/web_server/src/directory_lister.erl | 37 +++++++++++++++++++ examples/web_server/src/web_server.app.src | 15 ++++++++ examples/web_server/src/web_server.erl | 14 +++++++ examples/web_server/src/web_server_app.erl | 30 +++++++++++++++ examples/web_server/src/web_server_sup.erl | 23 ++++++++++++ examples/web_server/start.sh | 3 ++ 14 files changed, 223 insertions(+) create mode 100644 examples/web_server/README.md create mode 100644 examples/web_server/priv/small.mp4 create mode 100644 examples/web_server/priv/small.ogv create mode 100644 examples/web_server/priv/test.txt create mode 100644 examples/web_server/priv/video.html create mode 100644 examples/web_server/rebar.config create mode 100644 examples/web_server/src/directory_handler.erl create mode 100644 examples/web_server/src/directory_lister.erl create mode 100644 examples/web_server/src/web_server.app.src create mode 100644 examples/web_server/src/web_server.erl create mode 100644 examples/web_server/src/web_server_app.erl create mode 100644 examples/web_server/src/web_server_sup.erl create mode 100755 examples/web_server/start.sh (limited to 'examples') diff --git a/examples/README.md b/examples/README.md index e166876..a50b54b 100644 --- a/examples/README.md +++ b/examples/README.md @@ -40,5 +40,8 @@ Cowboy Examples * [static_world](./static_world): static file handler + * [web_sever](./web_server): + serves files with lists directory entries + * [websocket](./websocket): websocket example diff --git a/examples/web_server/README.md b/examples/web_server/README.md new file mode 100644 index 0000000..c123c98 --- /dev/null +++ b/examples/web_server/README.md @@ -0,0 +1,27 @@ +Cowboy Static File Handler with Index Support +============================================= + +To compile this example you need rebar in your PATH. + +Type the following command: +``` +$ rebar get-deps compile +``` + +You can then start the Erlang node with the following command: +``` +./start.sh +``` + +Cowboy will serve all the files you put in the priv/ directory. You can replace +the filename given in the example URL with the one of a file you added to this +directory to receive that file. A middleware has been added that will re-route +the request to a different handler if the requested path is a directory. + +Example +------- + +Point your browser to http://localhost:8080 to see the contents of `priv/`. You +can click on a link to see that file. If HTML is not preferred, the contents of +a directory will be listed as a JSON array (e.g. with `curl +http://localhost:8080`). diff --git a/examples/web_server/priv/small.mp4 b/examples/web_server/priv/small.mp4 new file mode 100644 index 0000000..1fc4788 Binary files /dev/null and b/examples/web_server/priv/small.mp4 differ diff --git a/examples/web_server/priv/small.ogv b/examples/web_server/priv/small.ogv new file mode 100644 index 0000000..6409d6e Binary files /dev/null and b/examples/web_server/priv/small.ogv differ diff --git a/examples/web_server/priv/test.txt b/examples/web_server/priv/test.txt new file mode 100644 index 0000000..760cddb --- /dev/null +++ b/examples/web_server/priv/test.txt @@ -0,0 +1 @@ +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 new file mode 100644 index 0000000..eca63ee --- /dev/null +++ b/examples/web_server/priv/video.html @@ -0,0 +1,11 @@ + + + +

HTML5 Video Example

+ +

Videos taken from TechSlides

+ + diff --git a/examples/web_server/rebar.config b/examples/web_server/rebar.config new file mode 100644 index 0000000..f9cbdef --- /dev/null +++ b/examples/web_server/rebar.config @@ -0,0 +1,8 @@ +{deps, [ + {cowboy, ".*", + {git, "git://github.com/extend/cowboy.git", "master"}}, + {mimetypes, ".*", + {git, "git://github.com/spawngrid/mimetypes.git", "master"}}, + {jsx, ".*", + {git, "git://github.com/talentdeficit/jsx.git", "master"}} +]}. diff --git a/examples/web_server/src/directory_handler.erl b/examples/web_server/src/directory_handler.erl new file mode 100644 index 0000000..ed342b5 --- /dev/null +++ b/examples/web_server/src/directory_handler.erl @@ -0,0 +1,51 @@ +%% Feel free to use, reuse and abuse the code in this file. + +%% @doc Directory handler. +-module(directory_handler). + +%% REST Callbacks +-export([init/3]). +-export([rest_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(_Transport, _Req, _Paths) -> + {upgrade, protocol, cowboy_rest}. + +rest_init(Req, Paths) -> + {ok, 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 new file mode 100644 index 0000000..a59f957 --- /dev/null +++ b/examples/web_server/src/directory_lister.erl @@ -0,0 +1,37 @@ +%% 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, Req1} = cowboy_req:path_info(Req), + Path1 = << <> || S <- Path >>, + {handler_opts, StaticOpts} = lists:keyfind(handler_opts, 1, Env), + {dir_handler, DirHandler} = lists:keyfind(dir_handler, 1, StaticOpts), + FullPath = resource_path(Path1), + case valid_path(Path) and filelib:is_dir(FullPath) of + true -> handle_directory(Req1, Env, Path1, FullPath, DirHandler); + false -> {ok, Req1, 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) -> + {ok, Cwd} = file:get_cwd(), + filename:join([Cwd, "priv", Path]). diff --git a/examples/web_server/src/web_server.app.src b/examples/web_server/src/web_server.app.src new file mode 100644 index 0000000..b4326d7 --- /dev/null +++ b/examples/web_server/src/web_server.app.src @@ -0,0 +1,15 @@ +%% Feel free to use, reuse and abuse the code in this file. + +{application, web_server, [ + {description, "Cowboy static file handler with directory indexes."}, + {vsn, "1"}, + {modules, []}, + {registered, []}, + {applications, [ + kernel, + stdlib, + cowboy + ]}, + {mod, {web_server_app, []}}, + {env, []} +]}. diff --git a/examples/web_server/src/web_server.erl b/examples/web_server/src/web_server.erl new file mode 100644 index 0000000..ae75c3a --- /dev/null +++ b/examples/web_server/src/web_server.erl @@ -0,0 +1,14 @@ +%% Feel free to use, reuse and abuse the code in this file. + +-module(web_server). + +%% API. +-export([start/0]). + +%% API. + +start() -> + ok = application:start(crypto), + ok = application:start(ranch), + ok = application:start(cowboy), + ok = application:start(web_server). diff --git a/examples/web_server/src/web_server_app.erl b/examples/web_server/src/web_server_app.erl new file mode 100644 index 0000000..43dc078 --- /dev/null +++ b/examples/web_server/src/web_server_app.erl @@ -0,0 +1,30 @@ +%% 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, [ + {directory, {priv_dir, web_server, []}}, + {dir_handler, directory_handler}, + {mimetypes, {fun mimetypes:path_to_mimes/2, default}} + ]} + ]} + ]), + {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 new file mode 100644 index 0000000..03f9f67 --- /dev/null +++ b/examples/web_server/src/web_server_sup.erl @@ -0,0 +1,23 @@ +%% 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}}. diff --git a/examples/web_server/start.sh b/examples/web_server/start.sh new file mode 100755 index 0000000..ede9bf9 --- /dev/null +++ b/examples/web_server/start.sh @@ -0,0 +1,3 @@ +#!/bin/sh +erl -pa ebin deps/*/ebin -s web_server \ + -eval "io:format(\"Point your browser at http://localhost:8080/~n\")." -- cgit v1.2.3