Added option list argument to the init function in ssl_session_cache_api.

1 files changed, 20 insertions, 13 deletions

diff --git a/lib/ssl/src/ssl_sup.erl b/lib/ssl/src/ssl_sup.erl
index bd5a02417a..b7cb5c3ab3 100644
--- a/lib/ssl/src/ssl_sup.erl
+++ b/lib/ssl/src/ssl_sup.erl
@@ -1,19 +1,19 @@
 %%
 %% %CopyrightBegin%
-%% 
-%% Copyright Ericsson AB 1998-2009. All Rights Reserved.
-%% 
+%%
+%% Copyright Ericsson AB 1998-2010. All Rights Reserved.
+%%
 %% The contents of this file are subject to the Erlang Public License,
 %% Version 1.1, (the "License"); you may not use this file except in
 %% compliance with the License. You should have received a copy of the
 %% Erlang Public License along with this software. If not, it can be
 %% retrieved online at http://www.erlang.org/.
-%% 
+%%
 %% Software distributed under the License is distributed on an "AS IS"
 %% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
 %% the License for the specific language governing rights and limitations
 %% under the License.
-%% 
+%%
 %% %CopyrightEnd%
 %%
 
@@ -40,8 +40,7 @@ start_link() ->
 %%%=========================================================================
 %% init([]) -> {ok,  {SupFlags,  [ChildSpec]}}
 %%
-init([]) ->
-    
+init([]) ->    
     %% OLD ssl - moved start to ssl.erl only if old
     %% ssl is acctualy run!
     %%Child1 = {ssl_server, {ssl_server, start_link, []},
@@ -67,7 +66,7 @@ init([]) ->
 session_and_cert_manager_child_spec() ->
     Opts = manager_opts(),
     Name = ssl_manager,  
-    StartFunc = {ssl_manager, start_link, Opts},
+    StartFunc = {ssl_manager, start_link, [Opts]},
     Restart = permanent, 
     Shutdown = 4000,
     Modules = [ssl_manager],
@@ -86,11 +85,12 @@ connection_manager_child_spec() ->
 
 manager_opts() ->
     CbOpts = case application:get_env(ssl, session_cb) of
-	{ok, Cb} when is_atom(Cb) ->
-	    [{session_cb, Cb}];
-	_  ->
-	    []
-    end,
+		 {ok, Cb} when is_atom(Cb) ->
+		     InitArgs = session_cb_init_args(),
+		     [{session_cb, Cb}, {session_cb_init_args, InitArgs}];
+		 _  ->
+		     []
+	     end,
     case application:get_env(ssl, session_lifetime) of
 	{ok, Time} when is_integer(Time) ->
 	    [{session_lifetime, Time}| CbOpts];
@@ -98,3 +98,10 @@ manager_opts() ->
 	    CbOpts
     end.
     
+session_cb_init_args() ->
+    case application:get_env(ssl, session_cb_init_args) of
+	{ok, Args} when is_list(Args) ->
+	    Args;
+	_  ->
+	    []
+    end.