Comparison

plugins/bind.lua @ 9:ca225a2d67b4

plugins.bind: Add plugin
author Matthew Wild <mwild1@gmail.com>
date Sat, 28 Nov 2009 22:25:54 +0000
child 39:07192be5020b
comparison
equal deleted inserted replaced
8:f2b55ba66e14 9:ca225a2d67b4
1 local st = require "util.stanza";
2 local xmlns_bind = "urn:ietf:params:xml:ns:xmpp-bind";
3
4 function verse.plugins.bind(stream)
5 local function handle_features(features)
6 if stream.bound then return; end
7 stream:debug("Binding resource...");
8 stream:send_iq(st.iq({ type = "set" }):tag("bind", {xmlns=xmlns_bind}):text(stream.jid),
9 function (reply)
10 if reply.attr.type == "result" then
11 local result_jid = reply
12 :get_child("bind", xmlns_bind)
13 :get_child("jid")
14 :get_text();
15 stream.username, stream.host, stream.resource = jid.split(result_jid);
16 stream.jid, stream.bound = result_jid, true;
17 stream:event("binding-success", full_jid);
18 elseif reply.attr.type == "error" then
19 local err = result:child_with_name("error");
20 local type, condition, text = result:get_error();
21 stream:event("binding-failure", { error = condition, text = text, type = type });
22 end
23 end);
24 end
25 stream:hook("stream-features", handle_features, 200);
26 return true;
27 end
28