gistfile1.txt

start_link() ->
    supervisor:start_link({local, ?SERVER}, ?MODULE, []).

start_proxy(SessionPid, ChannelID) ->
    Name = list_to_atom(ChannelID),
    supervisor:terminate_child(proxy_sup, Name),
    supervisor:delete_child(proxy_sup, Name),
    SpecProxy = {Name, {proxy, start_link, [SessionPid, ChannelID, Name]},
                 transient, 2000, worker, [Name]},
    case supervisor:start_child(?SERVER, SpecProxy) of
        {ok, Pid} -> {ok, Pid};
        {error, {already_started, Pid}} -> {ok, Pid};
        {error, Error} -> {error, Error}
    end.
    
init([]) ->
    {ok, {{one_for_one, 3, 1}, []}}.