1 files changed, 22 insertions, 0 deletions
diff --git a/learn-you-some-erlang/release/ppool-1.0/src/ppool_supersup.erl b/learn-you-some-erlang/release/ppool-1.0/src/ppool_supersup.erl
new file mode 100644
index 0000000..06fa0af
--- /dev/null
+++ b/learn-you-some-erlang/release/ppool-1.0/src/ppool_supersup.erl
@@ -0,0 +1,22 @@
+-module(ppool_supersup).
+-behaviour(supervisor).
+-export([start_link/0, start_pool/3, stop_pool/1]).
+-export([init/1]).
+
+start_link() ->
+    supervisor:start_link({local, ppool}, ?MODULE, []).
+
+start_pool(Name, Limit, MFA) ->
+    ChildSpec = {Name,
+                 {ppool_sup, start_link, [Name, Limit, MFA]},
+                  permanent, 10500, supervisor, [ppool_sup]},
+    supervisor:start_child(ppool, ChildSpec).
+
+stop_pool(Name) ->
+    supervisor:terminate_child(ppool, Name),
+    supervisor:delete_child(ppool, Name).
+
+init([]) ->
+    MaxRestart = 6,
+    MaxTime = 3000,
+    {ok, {{one_for_one, MaxRestart, MaxTime}, []}}.