Add WSSE debug info.

Ignore-this: 2eded88373d7f6b3b14de71ef94c1e3

darcs-hash:d1775b988f6fb24b53d7b6bc638019cad68cd6fa

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))))))