From 6ced95fb32cc22ca55d169944c8cb3f31f01dd4c Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Sat, 12 Mar 2016 18:57:09 -0800
Subject: Move sasl socket path to configuration.

---
 auth.txr   | 2 +-
 config.txr | 1 +
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/auth.txr b/auth.txr
index f2c062e..bb8f4cf 100644
--- a/auth.txr
+++ b/auth.txr
@@ -7,7 +7,7 @@
 
   (defun sasl-auth (user pass)
     (let ((sock (open-socket af-unix sock-stream)))
-      (sock-connect sock (new sockaddr-un path "/var/run/saslauthd/mux"))
+      (sock-connect sock (new sockaddr-un path sasl-sock))
       (put-binary-str user sock)
       (put-binary-str pass sock)
       (put-binary-str "" sock)
diff --git a/config.txr b/config.txr
index 4f8d815..4f28b53 100644
--- a/config.txr
+++ b/config.txr
@@ -1,4 +1,5 @@
 @(bind debug-enable t)
 @(bind aliases-file "/etc/tamarind/aliases")
 @(bind sessions-dir "/var/run/tamarind/sessions")
+@(bind sasl-sock "/var/run/saslauthd/mux")
 @(bind csslink "")
-- 
cgit v1.2.3