xmpp: Re-introduce SASL authentication

1 files changed, 36 insertions, 0 deletions

diff --git a/xmpp/sasl.go b/xmpp/sasl.go
new file mode 100644
index 0000000..1cb3670
--- /dev/null
+++ b/xmpp/sasl.go
@@ -0,0 +1,36 @@
+package xmpp
+
+import (
+	"encoding/xml"
+	"encoding/base64"
+	"log"
+)
+
+func (s *session) sasl() {
+	tokens := make([]xml.Token, 0, 3)
+
+	start := xml.StartElement{
+		xml.Name{"urn:ietf:params:xml:ns:xmpp-sasl", "auth"},
+		[]xml.Attr{
+			xml.Attr{xml.Name{"", "mechanism"}, "PLAIN"},
+		},
+	}
+	tokens = append(tokens, start)
+
+	data := []byte("\x00" + username(s.jid) + "\x00" + s.pwd)
+	dst := make([]byte, base64.StdEncoding.EncodedLen(len(data)))
+	base64.StdEncoding.Encode(dst, data)
+	payload := xml.CharData(dst)
+	tokens = append(tokens, payload)
+
+	end := start.End()
+	tokens = append(tokens, end)
+
+	for _, t := range tokens {
+		err := s.ed.encodeToken(t)
+		if err != nil {
+			log.Println("Could not encode stream end!")
+			return
+		}
+	}
+}