forked from erlang/signerl
34 lines
1.2 KiB
Erlang
34 lines
1.2 KiB
Erlang
|
%%% $Id: tcap_components_sup.erl,v 1.2 2005/08/04 09:33:17 vances Exp $
|
||
|
%%%---------------------------------------------------------------------
|
||
|
%%% @copyright 2004-2005 Motivity Telecom Inc.
|
||
|
%%% @author Vance Shipley <vances@motivity.ca> [http://www.motivity.ca]
|
||
|
%%% @end
|
||
|
%%%
|
||
|
%%% Copyright Motivity Telecom Inc. 2003-2005
|
||
|
%%%
|
||
|
%%% All rights reserved. No part of this computer program(s) may be
|
||
|
%%% used, reproduced, stored in any retrieval system, or transmitted,
|
||
|
%%% in any form or by any means, electronic, mechanical, photocopying,
|
||
|
%%% recording, or otherwise without prior written permission of
|
||
|
%%% Motivity Telecom Inc.
|
||
|
%%%---------------------------------------------------------------------
|
||
|
|
||
|
-module(tcap_components_sup).
|
||
|
-copyright('Copyright (c) 2003-2005 Motivity Telecom Inc.').
|
||
|
-author('vances@motivity.ca').
|
||
|
-vsn('$Revision: 1.2 $').
|
||
|
|
||
|
-behaviour(supervisor).
|
||
|
|
||
|
%% call backs needed for supervisor behaviour
|
||
|
-export([init/1]).
|
||
|
|
||
|
init([USAP, ID]) ->
|
||
|
Name = list_to_atom("cco_" ++ integer_to_list(ID)),
|
||
|
StartArgs = [tcap_cco_server, [USAP, ID, self()], []],
|
||
|
StartFunc = {gen_fsm, start_link, StartArgs},
|
||
|
ChildSpec = {Name, StartFunc, temporary, 4000, worker,
|
||
|
[tcap_cco_server]},
|
||
|
{ok,{{one_for_all, 0, 1}, [ChildSpec]}}.
|
||
|
|