From 03fde5d50c537b0ddad02972d0cf619a779f9fd8 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micka=C3=ABl=20R=C3=A9mond?=
 <mickael.remond@process-one.net>
Date: Sat, 30 Jun 2007 06:07:09 +0000
Subject: [PATCH] * Added missing file.

SVN Revision: 807
---
 src/stringprep/stringprep_sup.erl | 49 +++++++++++++++++++++++++++++++
 1 file changed, 49 insertions(+)
 create mode 100644 src/stringprep/stringprep_sup.erl

diff --git a/src/stringprep/stringprep_sup.erl b/src/stringprep/stringprep_sup.erl
new file mode 100644
index 000000000..e3b957965
--- /dev/null
+++ b/src/stringprep/stringprep_sup.erl
@@ -0,0 +1,49 @@
+%%%-------------------------------------------------------------------
+%%% File    : stringprep_sup.erl
+%%% Author  : Mickael Remond <mremond@process-one.net>
+%%% Description : Supervisor for the Stringprep worker.
+%%%
+%%% Created : 29 Jun 2007 by Mickael Remond <mremond@process-one.net>
+%%%-------------------------------------------------------------------
+-module(stringprep_sup).
+
+-behaviour(supervisor).
+
+%% API
+-export([start_link/0]).
+
+%% Supervisor callbacks
+-export([init/1]).
+
+-define(SERVER, ?MODULE).
+
+%%====================================================================
+%% API functions
+%%====================================================================
+%%--------------------------------------------------------------------
+%% Function: start_link() -> {ok,Pid} | ignore | {error,Error}
+%% Description: Starts the supervisor
+%%--------------------------------------------------------------------
+start_link() ->
+    supervisor:start_link({local, ?SERVER}, ?MODULE, []).
+
+%%====================================================================
+%% Supervisor callbacks
+%%====================================================================
+%%--------------------------------------------------------------------
+%% Func: init(Args) -> {ok,  {SupFlags,  [ChildSpec]}} |
+%%                     ignore                          |
+%%                     {error, Reason}
+%% Description: Whenever a supervisor is started using 
+%% supervisor:start_link/[2,3], this function is called by the new process 
+%% to find out about restart strategy, maximum restart frequency and child 
+%% specifications.
+%%--------------------------------------------------------------------
+init([]) ->
+    StringPrep = {stringprep,
+	      {stringprep, start_link, []},
+	      permanent,
+	      brutal_kill,
+	      worker,
+	      [stringprep]},
+    {ok,{{one_for_all,10,1}, [StringPrep]}}.