Software / code / verse
Changeset
8:f2b55ba66e14
plugins.sasl: Add plugin
| author | Matthew Wild <mwild1@gmail.com> |
|---|---|
| date | Sat, 28 Nov 2009 22:25:41 +0000 |
| parents | 7:3d69d012f41c |
| children | 9:ca225a2d67b4 |
| files | plugins/sasl.lua |
| diffstat | 1 files changed, 40 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/plugins/sasl.lua Sat Nov 28 22:25:41 2009 +0000 @@ -0,0 +1,40 @@ +local st = require "util.stanza"; +local stx = require "util.xstanza"; +local base64 = require "mime".b64; +local xmlns_sasl = "urn:ietf:params:xml:ns:xmpp-sasl"; + +function verse.plugins.sasl(stream) + local function handle_features(features_stanza) + if stream.authenticated then return; end + stream:debug("Authenticating with SASL..."); + local initial_data = base64("\0"..stream.username.."\0"..stream.password); + + --stream.sasl_state, initial_data = sasl_new({"PLAIN"}, stream.username, stream.password, stream.jid); + + stream:debug("Selecting PLAIN mechanism..."); + local auth_stanza = st.stanza("auth", { xmlns = xmlns_sasl, mechanism = "PLAIN" }); + if initial_data then + auth_stanza:text(initial_data); + end + stream:send(auth_stanza); + return true; + end + + local function handle_sasl(sasl_stanza) + if sasl_stanza.name == "success" then + stream.authenticated = true; + stream:event("authentication-success"); + elseif sasl_stanza.name == "failure" then + local err = sasl_stanza.tags[1]; + stream:event("authentication-failure", { condition = err.name }); + end + stream:reopen(); + return true; + end + + stream:hook("stream-features", handle_features, 300); + stream:hook("stream/"..xmlns_sasl, handle_sasl); + + return true; +end +
