From fcf338a9c6642dc95b123834977428187b2bb310 Mon Sep 17 00:00:00 2001
From: Matthias Schiffer <mschiffer@universe-factory.net>
Date: Sun, 13 Jun 2010 20:21:25 +0200
Subject: Initial commit

---
 ephraim_conn.erl | 49 +++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 49 insertions(+)
 create mode 100644 ephraim_conn.erl

(limited to 'ephraim_conn.erl')

diff --git a/ephraim_conn.erl b/ephraim_conn.erl
new file mode 100644
index 0000000..009d38d
--- /dev/null
+++ b/ephraim_conn.erl
@@ -0,0 +1,49 @@
+-module(ephraim_conn).
+-include_lib("exmpp/include/exmpp_client.hrl").
+-compile([debug_info, export_all]).
+
+-record(conn_state, {
+	  session :: any(),
+	  roster  :: any()
+	 }).
+
+init() ->
+    application:start(exmpp),
+    Session = exmpp_session:start(),
+    JID = exmpp_jid:make("ephraim-test", "jabber.ccc.de", "Bar"),
+    exmpp_session:auth_basic_digest(Session, JID, "foobarbla"),
+    exmpp_session:connect_TCP(Session, "jabber.ccc.de", 5222),
+    session(#conn_state{session=Session}).
+
+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).
+
+loop(State) ->
+    receive
+        stop ->
+            exmpp_session:stop(State#conn_state.session);
+	
+	#received_packet{packet_type=presence, raw_packet=Packet} ->
+	    From = exmpp_xml:get_attribute(Packet, from, <<"unknown">>),
+	    Type = atom_to_list(exmpp_presence:get_type(Packet)),
+	    Status = exmpp_presence:get_status(Packet),
+	    io:format("~ts is now ~ts: ~ts~n", [From, Type, Status]),
+            loop(State);
+	
+        #received_packet{packet_type=message, raw_packet=Packet} ->
+	    case exmpp_message:get_type(Packet) of
+		chat ->
+		    From = exmpp_xml:get_attribute(Packet, from, <<"unknown">>),
+		    Body = exmpp_message:get_body(Packet),
+		    io:format("~ts: ~ts~n", [From, Body]);
+		_ ->
+		    ok
+	    end,
+            loop(State);
+	
+        Msg ->
+            io:format("ephraim_conn: ~p~n", [Msg]),
+            loop(State)
+    end.
-- 
cgit v1.2.3