diff options
Diffstat (limited to 'src/scm/webid-oidc/dpop-proof.scm')
-rw-r--r-- | src/scm/webid-oidc/dpop-proof.scm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/src/scm/webid-oidc/dpop-proof.scm b/src/scm/webid-oidc/dpop-proof.scm index 318ebb8..c492436 100644 --- a/src/scm/webid-oidc/dpop-proof.scm +++ b/src/scm/webid-oidc/dpop-proof.scm @@ -136,7 +136,7 @@ (ath #:init-keyword #:ath #:accessor ath)) (define-method (default-validity (proof <dpop-proof>)) - 30) + (p:dpop-proof-validity)) (define-method (has-explicit-exp? (proof <dpop-proof>)) #f) @@ -158,6 +158,12 @@ error))) (lambda () (next-method) + ;; Override the validity + (slot-set! token 'exp + (let ((iat (time-second (date->time-utc (iat token))))) + (time-utc->date + (make-time time-utc 0 + (+ iat (p:dpop-proof-validity)))))) (let-keywords initargs #t ((typ "dpop+jwt") |