inets: Add profile option

To enable the HTTP server to run in a virtualized environment,
where there can be more that one server that has the same
bind_address and port, we add a new option profile.
The profile name will be used in concatenation with bind_address and port
to identify the HTTP server instance.

The name profile was chosen as there is a similar concept in the HTTP client
where profile names can be used to instantiate client configurations.

1 files changed, 19 insertions, 19 deletions

diff --git a/lib/inets/src/http_server/httpd_misc_sup.erl b/lib/inets/src/http_server/httpd_misc_sup.erl
index fd7c28bd7d..e5de66d773 100644
--- a/lib/inets/src/http_server/httpd_misc_sup.erl
+++ b/lib/inets/src/http_server/httpd_misc_sup.erl
@@ -27,8 +27,8 @@
 -behaviour(supervisor).
 
 %% API 
--export([start_link/2, start_auth_server/2, stop_auth_server/2, 
-	 start_sec_server/2,  stop_sec_server/2]).
+-export([start_link/3, start_auth_server/3, stop_auth_server/3, 
+	 start_sec_server/3,  stop_sec_server/3]).
 
 %% Supervisor callback
 -export([init/1]).
@@ -37,26 +37,26 @@
 %%%  API
 %%%=========================================================================
 
-start_link(Addr, Port) ->
-    SupName = make_name(Addr, Port),
+start_link(Addr, Port, Profile) ->
+    SupName = make_name(Addr, Port, Profile),
     supervisor:start_link({local, SupName}, ?MODULE, []).
 
 %%----------------------------------------------------------------------
 %% Function: [start|stop]_[auth|sec]_server/3
 %% Description: Starts a [auth | security] worker (child) process
 %%----------------------------------------------------------------------
-start_auth_server(Addr, Port) ->
-    start_permanent_worker(mod_auth_server, Addr, Port, [gen_server]).
+start_auth_server(Addr, Port, Profile) ->
+    start_permanent_worker(mod_auth_server, Addr, Port, Profile, [gen_server]).
 
-stop_auth_server(Addr, Port) ->
-    stop_permanent_worker(mod_auth_server, Addr, Port).
+stop_auth_server(Addr, Port, Profile) ->
+    stop_permanent_worker(mod_auth_server, Addr, Port, Profile).
 
 
-start_sec_server(Addr, Port) ->
-    start_permanent_worker(mod_security_server, Addr, Port, [gen_server]).
+start_sec_server(Addr, Port, Profile) ->
+    start_permanent_worker(mod_security_server, Addr, Port, Profile, [gen_server]).
 
-stop_sec_server(Addr, Port) ->
-    stop_permanent_worker(mod_security_server, Addr, Port).
+stop_sec_server(Addr, Port, Profile) ->
+    stop_permanent_worker(mod_security_server, Addr, Port, Profile).
 
 
 %%%=========================================================================
@@ -70,15 +70,15 @@ init(_) ->
 %%%=========================================================================
 %%%  Internal functions
 %%%=========================================================================
-start_permanent_worker(Mod, Addr, Port, Modules) ->
-    SupName = make_name(Addr, Port),
+start_permanent_worker(Mod, Addr, Port, Profile, Modules) ->
+    SupName = make_name(Addr, Port, Profile),
     Spec    = {{Mod, Addr, Port},
-	       {Mod, start_link, [Addr, Port]}, 
+	       {Mod, start_link, [Addr, Port, Profile]}, 
 	       permanent, timer:seconds(1), worker, [Mod] ++ Modules},
     supervisor:start_child(SupName, Spec).
 
-stop_permanent_worker(Mod, Addr, Port) ->
-    SupName = make_name(Addr, Port),
+stop_permanent_worker(Mod, Addr, Port, Profile) ->
+    SupName = make_name(Addr, Port, Profile),
     Name    = {Mod, Addr, Port},
     case supervisor:terminate_child(SupName, Name) of
 	ok ->
@@ -87,5 +87,5 @@ stop_permanent_worker(Mod, Addr, Port) ->
 	    Error
     end.
     
-make_name(Addr,Port) ->
-    httpd_util:make_name("httpd_misc_sup",Addr,Port).
+make_name(Addr,Port, Profile) ->
+    httpd_util:make_name("httpd_misc_sup",Addr,Port, Profile).