From f112cdf643c520bb6554a2d8efa882e8e904b984 Mon Sep 17 00:00:00 2001
From: Adam Cammack <acammack42@gmail.com>
Date: Sat, 16 Feb 2013 02:21:54 -0600
Subject: Add a web server example

Explore re-routing in middleware.
---
 examples/web_server/src/web_server_app.erl | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100644 examples/web_server/src/web_server_app.erl

(limited to 'examples/web_server/src/web_server_app.erl')

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.
-- 
cgit v1.2.3