diff options
author | Adam Cammack <[email protected]> | 2013-02-27 23:55:05 -0600 |
---|---|---|
committer | Adam Cammack <[email protected]> | 2013-03-01 16:43:19 -0600 |
commit | 52a181347c4f85b9c313e400c20fd21ecef7b9b2 (patch) | |
tree | 5941e919bddf503ec914321e853f7dd49b6d3f99 /examples/ssl_hello_world/src | |
parent | b448939282b282d09a6618e1ffcd5efcef2ff4e1 (diff) | |
download | cowboy-52a181347c4f85b9c313e400c20fd21ecef7b9b2.tar.gz cowboy-52a181347c4f85b9c313e400c20fd21ecef7b9b2.tar.bz2 cowboy-52a181347c4f85b9c313e400c20fd21ecef7b9b2.zip |
Add an SSL example
Diffstat (limited to 'examples/ssl_hello_world/src')
-rw-r--r-- | examples/ssl_hello_world/src/ssl_hello_world.app.src | 15 | ||||
-rw-r--r-- | examples/ssl_hello_world/src/ssl_hello_world.erl | 14 | ||||
-rw-r--r-- | examples/ssl_hello_world/src/ssl_hello_world_app.erl | 28 | ||||
-rw-r--r-- | examples/ssl_hello_world/src/ssl_hello_world_sup.erl | 23 | ||||
-rw-r--r-- | examples/ssl_hello_world/src/toppage_handler.erl | 18 |
5 files changed, 98 insertions, 0 deletions
diff --git a/examples/ssl_hello_world/src/ssl_hello_world.app.src b/examples/ssl_hello_world/src/ssl_hello_world.app.src new file mode 100644 index 0000000..514da1c --- /dev/null +++ b/examples/ssl_hello_world/src/ssl_hello_world.app.src @@ -0,0 +1,15 @@ +%% Feel free to use, reuse and abuse the code in this file. + +{application, ssl_hello_world, [ + {description, "Cowboy Hello World example with SSL."}, + {vsn, "1"}, + {modules, []}, + {registered, []}, + {applications, [ + kernel, + stdlib, + cowboy + ]}, + {mod, {ssl_hello_world_app, []}}, + {env, []} +]}. diff --git a/examples/ssl_hello_world/src/ssl_hello_world.erl b/examples/ssl_hello_world/src/ssl_hello_world.erl new file mode 100644 index 0000000..1413b7b --- /dev/null +++ b/examples/ssl_hello_world/src/ssl_hello_world.erl @@ -0,0 +1,14 @@ +%% Feel free to use, reuse and abuse the code in this file. + +-module(ssl_hello_world). + +%% API. +-export([start/0]). + +%% API. + +start() -> + ok = application:start(crypto), + ok = application:start(ranch), + ok = application:start(cowboy), + ok = application:start(ssl_hello_world). diff --git a/examples/ssl_hello_world/src/ssl_hello_world_app.erl b/examples/ssl_hello_world/src/ssl_hello_world_app.erl new file mode 100644 index 0000000..ae8f0cf --- /dev/null +++ b/examples/ssl_hello_world/src/ssl_hello_world_app.erl @@ -0,0 +1,28 @@ +%% Feel free to use, reuse and abuse the code in this file. + +%% @private +-module(ssl_hello_world_app). +-behaviour(application). + +%% API. +-export([start/2]). +-export([stop/1]). + +%% API. + +start(_Type, _Args) -> + Dispatch = cowboy_router:compile([ + {'_', [ + {"/", toppage_handler, []} + ]} + ]), + {ok, _} = cowboy:start_https(https, 100, [ + {port, 8443}, + {cacertfile, "priv/ssl/cowboy-ca.crt"}, + {certfile, "priv/ssl/server.crt"}, + {keyfile, "priv/ssl/server.key"} + ], [{env, [{dispatch, Dispatch}]}]), + ssl_hello_world_sup:start_link(). + +stop(_State) -> + ok. diff --git a/examples/ssl_hello_world/src/ssl_hello_world_sup.erl b/examples/ssl_hello_world/src/ssl_hello_world_sup.erl new file mode 100644 index 0000000..27b63f8 --- /dev/null +++ b/examples/ssl_hello_world/src/ssl_hello_world_sup.erl @@ -0,0 +1,23 @@ +%% Feel free to use, reuse and abuse the code in this file. + +%% @private +-module(ssl_hello_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/ssl_hello_world/src/toppage_handler.erl b/examples/ssl_hello_world/src/toppage_handler.erl new file mode 100644 index 0000000..4124b5a --- /dev/null +++ b/examples/ssl_hello_world/src/toppage_handler.erl @@ -0,0 +1,18 @@ +%% Feel free to use, reuse and abuse the code in this file. + +%% @doc Hello world handler. +-module(toppage_handler). + +-export([init/3]). +-export([handle/2]). +-export([terminate/3]). + +init(_Transport, Req, []) -> + {ok, Req, undefined}. + +handle(Req, State) -> + {ok, Req2} = cowboy_req:reply(200, [], <<"Hello world!">>, Req), + {ok, Req2, State}. + +terminate(_Reason, _Req, _State) -> + ok. |