summaryrefslogtreecommitdiff
path: root/utils.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'utils.lisp')
-rw-r--r--utils.lisp2
1 files changed, 2 insertions, 0 deletions
diff --git a/utils.lisp b/utils.lisp
index ff24ae9..762a6dd 100644
--- a/utils.lisp
+++ b/utils.lisp
@@ -422,6 +422,8 @@ ELEMENT-TYPE as the stream's."
(string= their-digest our-digest))
"Time stamp too old."
"Wrong user name or password."))
+ (debug-log "Authentication failed. Their WSSE info was: ")
+ (debug-log *wsse*)
(http-send-headers)
#+clisp (ext:quit 0))))))