Mercurial > verse / changeset

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/plugins/bind.lua	Sat Nov 28 22:25:54 2009 +0000
@@ -0,0 +1,28 @@
+local st = require "util.stanza";
+local xmlns_bind = "urn:ietf:params:xml:ns:xmpp-bind";
+
+function verse.plugins.bind(stream)
+	local function handle_features(features)
+		if stream.bound then return; end
+		stream:debug("Binding resource...");
+		stream:send_iq(st.iq({ type = "set" }):tag("bind", {xmlns=xmlns_bind}):text(stream.jid),
+			function (reply)
+				if reply.attr.type == "result" then
+					local result_jid = reply
+						:get_child("bind", xmlns_bind)
+							:get_child("jid")
+								:get_text();
+					stream.username, stream.host, stream.resource = jid.split(result_jid);
+					stream.jid, stream.bound = result_jid, true;
+					stream:event("binding-success", full_jid);
+				elseif reply.attr.type == "error" then
+					local err = result:child_with_name("error");
+					local type, condition, text = result:get_error();
+					stream:event("binding-failure", { error = condition, text = text, type = type });
+				end
+			end);
+	end
+	stream:hook("stream-features", handle_features, 200);
+	return true;
+end
+