diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2009-10-08 22:38:05 +0200 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2009-10-08 22:38:05 +0200 |
| commit | 2f15876fc8c8f35cc409d7e5476b42a39e43273f (patch) | |
| tree | a44e27b5f1f2f51021123a25ebbbafe6394925af /utils.lisp | |
| parent | 068e2badb03b7ce82a6277d6e7bcd71c49fd3352 (diff) | |
Recognise WSSE time stamps correctly.
Ignore-this: 329443f3c545af16b381b1b0a2ec1657
darcs-hash:a95e7ddaa371dd22a7ebacb65e27676b2c9c6310
Diffstat (limited to 'utils.lisp')
| -rw-r--r-- | utils.lisp | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -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))) |