From 2f15876fc8c8f35cc409d7e5476b42a39e43273f Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Thu, 8 Oct 2009 22:38:05 +0200 Subject: Recognise WSSE time stamps correctly. Ignore-this: 329443f3c545af16b381b1b0a2ec1657 darcs-hash:a95e7ddaa371dd22a7ebacb65e27676b2c9c6310 --- utils.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'utils.lisp') 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))) -- cgit v1.2.3