Add the irc_conn PID to the ETS table

diff --git a/irc/irc_conn.erl b/irc/irc_conn.erl
index 2108db6..eb1c9ce 100644 (file)
--- a/irc/irc_conn.erl
+++ b/irc/irc_conn.erl
@@ -29,6 +29,8 @@ start_link(Instance, Supervisor, TableId) ->
         {Instance, Supervisor, TableId}, []).
 
 init({Instance, Supervisor, TableId}) ->
+    ets:insert(TableId, {irc_conn_pid, self()}), % record the connection PID in the table
+
     {Instance, Config} = lists:keyfind(Instance, 1, config:get_config(irc)),
     {Host, Port, Nick, Realname, _Channels} = Config,
     {ok, Socket} = gen_tcp:connect(Host, Port, [list]),