Software /
code /
verse
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 |