# HG changeset patch
# User Matthew Wild <mwild1@gmail.com>
# Date 1219752906 -3600
# Node ID 65622bf34afc9dc6dab2c6d211ae0f72572e10e3
# Parent  ae161e9071492b4d7f8142d54dfc0613ba22ead7# Parent  9a2685f39f9f489a5759eca07ae333bbcf022837
Merged in Tobias's SASL lib

diff -r ae161e907149 -r 65622bf34afc util/sasl.lua
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/util/sasl.lua	Tue Aug 26 13:15:06 2008 +0100
@@ -0,0 +1,34 @@
+require "base64"
+sasl = {}
+
+function sasl:new_plain(onAuth, onSuccess, onFail, onWrite)
+	local object = { mechanism = "PLAIN", onAuth = onAuth, onSuccess = onSuccess, onFail = onFail,
+	 				onWrite = onWrite}
+	local challenge = base64.encode("");
+	onWrite(stanza.stanza("challenge", {xmlns = "urn:ietf:params:xml:ns:xmpp-sasl"}):text(challenge))
+	object.feed = 	function(self, stanza)
+						if (stanza.name ~= "response") then self.onFail() end
+						if (stanza.attr.xmlns ~= "urn:ietf:params:xml:ns:xmpp-sasl") then self.onFail() end
+						local response = base64.decode(stanza.tag[1])
+						local authorization = string.match(response, [[([^&\0]+)]])
+						local authentication = string.match(response, [[\0([^&\0]+)\0]])
+						local password = string.match(response, [[\0[^&\0]+\0([^&\0]+)]])
+						if self.onAuth(authorization, password) == true then
+							self.onWrite(stanza.stanza("success", {xmlns = "urn:ietf:params:xml:ns:xmpp-sasl"}))
+							self.onSuccess()
+						else
+							self.onWrite(stanza.stanza("failure", {xmlns = "urn:ietf:params:xml:ns:xmpp-sasl"}):tag("temporary-auth-failure"));
+						end
+					end
+	return object
+end
+
+function sasl:new(mechanism, onAuth, onSuccess, onFail, onWrite)
+	local object
+	if mechanism == "PLAIN" then object = new_plain(onAuth, onSuccess, onFail, onWrite)
+	else onFail()
+	end
+	return object
+end
+
+module "sasl"