Added some basic echo functionality

This commit is contained in:
Jonatan Pålsson 2011-02-16 19:49:43 +01:00
parent 63170fd0de
commit 70a6beb8b9
17 changed files with 70 additions and 448 deletions

View file

@ -2,17 +2,12 @@
-behaviour(supervisor).
%% API
-export([start/1, start_link/1]).
-export([start_link/1]).
%% Supervisor callbacks
-export([init/1]).
-define(SERVER, ?MODULE).
start(Port) ->
[FirstArg] = Port,
{IntPort, _} = string:to_integer(FirstArg),
start_link(IntPort).
start_link(Port) ->
supervisor:start_link({local, ?SERVER}, ?MODULE, [Port]).
@ -29,7 +24,7 @@ init([Port]) ->
permanent,
2000,
worker,
[ggs_dispatcher]
[ggs_coordinator]
},
Children = [Dispatcher, Coordinator],