Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Authz fixes.

  • Loading branch information...
commit 5d96232577d75d384feab36f9d1cd1beca7397d3 1 parent a7b475e
@antoszka antoszka authored
Showing with 3 additions and 4 deletions.
  1. +3 −4 plain.lisp
View
7 plain.lisp
@@ -16,10 +16,9 @@ as specified in RFC 2595, section 6."))
(:start
(setf (state c) :sent)
(concatenate '(vector (unsigned-byte 8))
- (string-to-utf8 (authz-id c)) '(0)
- (string-to-utf8 (authc-id c)) '(0)
- (string-to-utf8 (get-password (password c)))))
-
+ (string-to-utf8 (or (authz-id c) "")) '(0)
+ (string-to-utf8 (authc-id c)) '(0)
+ (string-to-utf8 (get-password (password c)))))
(:sent
:success)))
Please sign in to comment.
Something went wrong with that request. Please try again.