Software / code / verse
Changeset
9:ca225a2d67b4
plugins.bind: Add plugin
| author | Matthew Wild <mwild1@gmail.com> |
|---|---|
| date | Sat, 28 Nov 2009 22:25:54 +0000 |
| parents | 8:f2b55ba66e14 |
| children | 10:3a422606a040 |
| files | plugins/bind.lua |
| diffstat | 1 files changed, 28 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- /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 +
