diff options
| -rw-r--r-- | aliases.txr | 4 | ||||
| -rw-r--r-- | auth.txr | 28 |
2 files changed, 16 insertions, 16 deletions
diff --git a/aliases.txr b/aliases.txr index 8684ac1..f6fff50 100644 --- a/aliases.txr +++ b/aliases.txr @@ -9,8 +9,8 @@ (rand 1000) (rand 1000) (rand 10000))))) (:method equal (alias) alias.address) (:method alt-addresses (alias) - (list (regsub #/-/ "." alias.address) - (regsub #/-/ "_" alias.address))) + (list (regsub #/-/ "." alias.address) + (regsub #/-/ "_" alias.address))) (:method get-decoded-memo (alias) (url-decode alias.memo)) (:method get-html-memo (alias) @@ -1,19 +1,19 @@ @(do - (defun put-binary-str (str stream) - (let ((len (length str))) - (put-byte (trunc len 256) stream) - (put-byte (mod len 256) stream) - (put-string str stream))) + (defun put-binary-str (str stream) + (let ((len (length str))) + (put-byte (trunc len 256) stream) + (put-byte (mod len 256) stream) + (put-string str stream))) - (defun sasl-auth (user pass) - (let ((sock (open-socket af-unix sock-stream))) - (sock-connect sock (new sockaddr-un path sasl-sock)) - (put-binary-str user sock) - (put-binary-str pass sock) - (put-binary-str "" sock) - (put-binary-str "" sock) - (let ((response (get-string sock))) - (equal [response 2..4] "OK"))))) + (defun sasl-auth (user pass) + (let ((sock (open-socket af-unix sock-stream))) + (sock-connect sock (new sockaddr-un path sasl-sock)) + (put-binary-str user sock) + (put-binary-str pass sock) + (put-binary-str "" sock) + (put-binary-str "" sock) + (let ((response (get-string sock))) + (equal [response 2..4] "OK"))))) @(define auth (userid password)) @ (if (eq auth :sasl)) @ (require (sasl-auth userid password)) |