verse
3c93d6119477
plugins/register.lua

Find changesets by keywords by author, files, the commit message, revision number or hash, or revset expression.

Software / code / verse

Annotate

plugins/register.lua @ 235:3c93d6119477

plugins.register: Add in-band registration plugin
author Matthew Wild <mwild1@gmail.com>
date Sun, 27 Nov 2011 21:56:21 +0000
child 250:a5ac643a7fd6
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
235
3c93d6119477 plugins.register: Add in-band registration plugin
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
1 local xmlns_register = "jabber:iq:register";
3c93d6119477 plugins.register: Add in-band registration plugin
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
2
3c93d6119477 plugins.register: Add in-band registration plugin
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
3 function verse.plugins.register(stream)
3c93d6119477 plugins.register: Add in-band registration plugin
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
4 local function handle_features(features_stanza)
3c93d6119477 plugins.register: Add in-band registration plugin
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
5 if features_stanza:get_child("register", "http://jabber.org/features/iq-register") then
3c93d6119477 plugins.register: Add in-band registration plugin
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
6 stream:send_iq(verse.iq({ to = stream.host_, type = "set" })
3c93d6119477 plugins.register: Add in-band registration plugin
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
7 :tag("query", { xmlns = xmlns_register })
3c93d6119477 plugins.register: Add in-band registration plugin
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
8 :tag("username"):text(stream.username):up()
3c93d6119477 plugins.register: Add in-band registration plugin
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
9 :tag("password"):text(stream.password):up()
3c93d6119477 plugins.register: Add in-band registration plugin
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
10 , function (result)
3c93d6119477 plugins.register: Add in-band registration plugin
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
11 if result.attr.type == "result" then
3c93d6119477 plugins.register: Add in-band registration plugin
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
12 stream:event("registration-success");
3c93d6119477 plugins.register: Add in-band registration plugin
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
13 else
3c93d6119477 plugins.register: Add in-band registration plugin
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
14 local type, condition, text = result:get_error();
3c93d6119477 plugins.register: Add in-band registration plugin
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
15 stream:debug("Registration failed: %s", condition);
3c93d6119477 plugins.register: Add in-band registration plugin
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
16 stream:event("registration-failure", { type = type, condition = condition, text = text });
3c93d6119477 plugins.register: Add in-band registration plugin
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
17 end
3c93d6119477 plugins.register: Add in-band registration plugin
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
18 end);
3c93d6119477 plugins.register: Add in-band registration plugin
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
19 else
3c93d6119477 plugins.register: Add in-band registration plugin
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
20 stream:debug("In-band registration not offered by server");
3c93d6119477 plugins.register: Add in-band registration plugin
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
21 stream:event("registration-failed", { condition = "service-unavailable" });
3c93d6119477 plugins.register: Add in-band registration plugin
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
22 end
3c93d6119477 plugins.register: Add in-band registration plugin
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
23 stream:unhook("stream-features", handle_features);
3c93d6119477 plugins.register: Add in-band registration plugin
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
24 return true;
3c93d6119477 plugins.register: Add in-band registration plugin
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
25 end
3c93d6119477 plugins.register: Add in-band registration plugin
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
26 stream:hook("stream-features", handle_features, 310);
3c93d6119477 plugins.register: Add in-band registration plugin
Matthew Wild <mwild1@gmail.com>
parents:
diff changeset
27 end