From 00156d1b7740c4177fc29bd10d75ea4e0e59cc6e Mon Sep 17 00:00:00 2001
From: Magnus Ahltorp <map@kth.se>
Date: Fri, 24 Oct 2014 04:37:18 +0200
Subject: Use mochiweb for v1 API

Conflicts:
	catlfish.config
	src/v1.erl
---
 src/catlfish_sup.erl | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100644 src/catlfish_sup.erl

(limited to 'src/catlfish_sup.erl')

diff --git a/src/catlfish_sup.erl b/src/catlfish_sup.erl
new file mode 100644
index 0000000..e8f2de9
--- /dev/null
+++ b/src/catlfish_sup.erl
@@ -0,0 +1,30 @@
+%%% Copyright (c) 2014, NORDUnet A/S.
+%%% See LICENSE for licensing information.
+
+-module(catlfish_sup).
+-behaviour(supervisor).
+
+-export([start_link/1, init/1]).
+
+start_link(_Args) ->
+    supervisor:start_link({local, ?MODULE}, ?MODULE, []).
+
+init([]) ->
+    SSLOptions = [{certfile, application:get_env(catlfish, https_certfile, none)},
+                  {keyfile, application:get_env(catlfish, https_keyfile, none)}],
+    Servers = lists:map(fun (Config) ->
+                                {IpAddress, Port, Module} = Config,
+                                {ok, IPv4Address} = inet:parse_ipv4strict_address(IpAddress),
+                                WebConfig = [{ip, IPv4Address},
+                                             {port, Port},
+                                             {ssl, true},
+                                             {ssl_opts, SSLOptions}
+                                            ],
+                                {catlfish_web,
+                                 {catlfish_web, start, [WebConfig, Module]},
+                                 permanent, 5000,
+                                 worker, dynamic}
+                        end, application:get_env(catlfish, https_servers, [])),
+    {ok,
+     {{one_for_one, 3, 10},
+      Servers}}.
-- 
cgit v1.1