Chatting works now

1 files changed, 18 insertions, 0 deletions

diff --git a/src/core/ephraim.erl b/src/core/ephraim.erl
index 61c3c68..c0ab7ae 100644
--- a/src/core/ephraim.erl
+++ b/src/core/ephraim.erl
@@ -97,6 +97,24 @@ loop(State) ->
 	    end,
 	    loop(State2);
 	
+	{send_message, To, Type, Message} ->
+	    {State2, Conv} = get_conv(State, To),
+	    case Conv of
+		undefined ->
+		    io:format("ephraim: send_message: ~p~n", [Message]);
+		_ ->
+		    Conv ! {send_message, Type, Message}
+	    end,
+	    loop(State2);
+	
+	{start_conversation, To} ->
+	    {State2, _Conv} = get_conv(State, To),
+	    loop(State2);
+	
+	{send_packet, Packet} ->
+	    State#state.conn ! {send_packet, Packet},
+	    loop(State);
+	
 	{receive_event, From, Packet} ->
 	    State#state.event ! {receive_event, From, Packet},
 	    loop(State);