diff options
Diffstat (limited to 'auth.txr')
| -rw-r--r-- | auth.txr | 28 |
1 files changed, 14 insertions, 14 deletions
@@ -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)) |