summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2009-10-08 22:38:05 +0200
committerMatthias Benkard <code@mail.matthias.benkard.de>2009-10-08 22:38:05 +0200
commit2f15876fc8c8f35cc409d7e5476b42a39e43273f (patch)
treea44e27b5f1f2f51021123a25ebbbafe6394925af
parent068e2badb03b7ce82a6277d6e7bcd71c49fd3352 (diff)
Recognise WSSE time stamps correctly.
Ignore-this: 329443f3c545af16b381b1b0a2ec1657 darcs-hash:a95e7ddaa371dd22a7ebacb65e27676b2c9c6310
-rw-r--r--utils.lisp4
1 files changed, 3 insertions, 1 deletions
diff --git a/utils.lisp b/utils.lisp
index 9dac197..acff2c0 100644
--- a/utils.lisp
+++ b/utils.lisp
@@ -390,7 +390,9 @@ ELEMENT-TYPE as the stream's."
(subseq *wsse* (elt regstarts 1) (elt regends 1))
params)))
(let* ((timestamp (cdr (assoc "created" params :test 'equalp)))
- (time (cybertiggyr-time:parse-time timestamp))
+ (time (and (stringp timestamp)
+ (cybertiggyr-time:parse-time timestamp
+ (list (cybertiggyr-time::make-fmt-recognizer "%Y-%m-%dT%H:%M:%SZ")))))
(nonce (cdr (assoc "nonce" params :test 'equalp)))
(user (cdr (assoc "username" params :test 'equalp)))
(their-digest (cdr (assoc "passworddigest" params :test 'equalp)))