From fe332740f7c0be59d4ede7097e5bd1eabbf40e39 Mon Sep 17 00:00:00 2001 From: Matthias Schiffer Date: Fri, 25 Jun 2010 06:14:12 +0200 Subject: Chatting works now --- src/core/ephraim.erl | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) (limited to 'src/core/ephraim.erl') 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); -- cgit v1.2.3