Software / code / verse
Annotate
plugins/bind.lua @ 54:1a2a3d598254
verse: Take advantage of server.lua's new onconnect callback for a more robust "connected" event
| author | Matthew Wild <mwild1@gmail.com> |
|---|---|
| date | Thu, 06 May 2010 10:27:11 +0100 |
| parent | 43:a33036b7e5ab |
| child | 78:f4188eff53a7 |
| rev | line source |
|---|---|
| 9 | 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..."); | |
|
40
afd037420977
plugins.bind: Requested JID^Wresource should be in <jid/>^W<resource/> tag (thanks Maranda :) )
Matthew Wild <mwild1@gmail.com>
parents:
39
diff
changeset
|
8 stream:send_iq(st.iq({ type = "set" }):tag("bind", {xmlns=xmlns_bind}):tag("resource"):text(stream.resource), |
| 9 | 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 | |
|
43
a33036b7e5ab
verse.plugins.bind: Fix incorrect variable name causing traceback on unsuccessful bind
Matthew Wild <mwild1@gmail.com>
parents:
40
diff
changeset
|
19 local err = reply:child_with_name("error"); |
|
a33036b7e5ab
verse.plugins.bind: Fix incorrect variable name causing traceback on unsuccessful bind
Matthew Wild <mwild1@gmail.com>
parents:
40
diff
changeset
|
20 local type, condition, text = reply:get_error(); |
| 9 | 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 |
