diff options
Diffstat (limited to 'ephraim_conn.erl')
-rw-r--r-- | ephraim_conn.erl | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/ephraim_conn.erl b/ephraim_conn.erl index 211db4d..18edd6a 100644 --- a/ephraim_conn.erl +++ b/ephraim_conn.erl @@ -7,6 +7,7 @@ roster :: any() }). +-spec init() -> ok. init() -> application:start(exmpp), Session = exmpp_session:start(), @@ -15,11 +16,13 @@ init() -> exmpp_session:connect_TCP(Session, "jabber.ccc.de", 5222), session(#conn_state{session=Session}). +-spec session(#conn_state{}) -> ok. session(State) -> exmpp_session:login(State#conn_state.session), exmpp_session:send_packet(State#conn_state.session, exmpp_presence:set_status(exmpp_presence:available(), "Foo/Test\\Bar")), loop(State). +-spec loop(#conn_state{}) -> ok. loop(State) -> receive stop -> |