From da11816444e1f3fc27f174a1b8d31b5e703fbd01 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Sun, 11 Oct 2009 20:24:49 +0200
Subject: Add WSSE debug info.

Ignore-this: 2eded88373d7f6b3b14de71ef94c1e3

darcs-hash:d1775b988f6fb24b53d7b6bc638019cad68cd6fa
---
 utils.lisp | 2 ++
 1 file changed, 2 insertions(+)

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))))))
 
-- 
cgit v1.2.3