diff options
Diffstat (limited to 'src/core/ephraim_conn.erl')
-rw-r--r-- | src/core/ephraim_conn.erl | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/core/ephraim_conn.erl b/src/core/ephraim_conn.erl index 7a6ddae..65bbacc 100644 --- a/src/core/ephraim_conn.erl +++ b/src/core/ephraim_conn.erl @@ -1,6 +1,7 @@ -module(ephraim_conn). -compile([debug_info, export_all]). -include_lib("exmpp/include/exmpp_client.hrl"). +-include_lib("exmpp/include/exmpp_xml.hrl"). -record(conn_state, { session :: any() @@ -21,6 +22,8 @@ init() -> session(State) -> io:format("Logging in...~n"), exmpp_session:login(State#conn_state.session), + io:format("Getting profile...~n"), + exmpp_session:send_packet(State#conn_state.session, exmpp_iq:get('jabber:client', #xmlel{ns='vcard-temp',name='vCard'})), io:format("Getting roster...~n"), exmpp_session:send_packet(State#conn_state.session, exmpp_client_roster:get_roster("foo")), io:format("Setting presence...~n"), @@ -49,8 +52,9 @@ loop(State) -> loop(State); #received_packet{packet_type=iq, raw_packet=Packet} -> + From = exmpp_stanza:get_sender(Packet), IQ = exmpp_iq:xmlel_to_iq(Packet), - ephraim ! {receive_iq, IQ}, + ephraim ! {receive_iq, From, IQ}, loop(State); {send_packet, Packet} -> |