From 00ae83ac53d6b7f8f3c351187c26d04b5c11ce41 Mon Sep 17 00:00:00 2001 From: Matt Mullins Date: Wed, 18 May 2011 00:33:32 -0500 Subject: [PATCH] Updated how configuration is bubbled through --- irc/irc_conn.erl | 11 ++++++----- irc/irc_net_sup.erl | 8 ++++---- 2 files changed, 10 insertions(+), 9 deletions(-) diff --git a/irc/irc_conn.erl b/irc/irc_conn.erl index 53ce76e..31d1037 100644 --- a/irc/irc_conn.erl +++ b/irc/irc_conn.erl @@ -14,16 +14,17 @@ code_change/3 ]). --record(irc_state, {instance, host, port, nick}). +-record(irc_state, {instance, host, port, nick, socket}). -start_link(Instance, Host, Port, Nick) -> +start_link(Instance, Config) -> gen_server:start_link(?MODULE, - {Instance, Host, Port, Nick}, []). + {Instance, Config}, []). -init({Instance, Host, Port, Nick}) -> +init({Instance, {Host, Port, Nick}}) -> + {ok, Socket} = gen_tcp:connect(Host, Port, [list]), State = #irc_state{ instance=Instance, host=Host, - port=Port, nick=Nick}, + port=Port, nick=Nick, socket=Socket}, {ok, State}. handle_call(_Request, _From, _State) -> diff --git a/irc/irc_net_sup.erl b/irc/irc_net_sup.erl index 64d0e6b..3d26ad6 100644 --- a/irc/irc_net_sup.erl +++ b/irc/irc_net_sup.erl @@ -11,13 +11,13 @@ ]). -export([init/1]). -start_link(Instance, Host, Port, Nick) -> +start_link(Instance, Config) -> supervisor:start_link(?MODULE, - {Instance, Host, Port, Nick}). + {Instance, Config}). -init({Instance, Host, Port, Nick}) -> +init({Instance, Config}) -> Connection = {connection, - {irc_conn, start_link, [Instance, Host, Port, Nick]}, + {irc_conn, start_link, [Instance, Config]}, permanent, % persistence type ("Restart" in the manual) 5, % shutdown [sends signal, with timeout for response] worker, % it's not a supervisor itself -- 2.11.0