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_conv.erl | 11 +++++++++++ 1 file changed, 11 insertions(+) (limited to 'src/core/ephraim_conv.erl') diff --git a/src/core/ephraim_conv.erl b/src/core/ephraim_conv.erl index 3010036..ac4c26d 100644 --- a/src/core/ephraim_conv.erl +++ b/src/core/ephraim_conv.erl @@ -19,7 +19,18 @@ loop(State) -> ok; {receive_message, Packet} -> + Type = exmpp_message:get_type(Packet), + Body = exmpp_message:get_body(Packet), io:format("Received message from ~p:~n~p~n", [State#conv_state.jid, Packet]), + ephraim ! {ui_update, {receive_message, State#conv_state.jid, Type, Body}}, + loop(State); + + {send_message, Type, Message} -> + Packet = exmpp_message:normal(Message), + Packet2 = exmpp_message:set_type(Packet, Type), + Packet3 = exmpp_xml:set_attribute(Packet2, to, State#conv_state.jid), + ephraim ! {send_packet, Packet3}, + ephraim ! {ui_update, {sent_message, State#conv_state.jid, Type, Message}}, loop(State); Msg -> -- cgit v1.2.3