diff options
Diffstat (limited to 'src/scm/webid-oidc/oidc-id-token.scm')
-rw-r--r-- | src/scm/webid-oidc/oidc-id-token.scm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/scm/webid-oidc/oidc-id-token.scm b/src/scm/webid-oidc/oidc-id-token.scm index 9fe276c..e95efaf 100644 --- a/src/scm/webid-oidc/oidc-id-token.scm +++ b/src/scm/webid-oidc/oidc-id-token.scm @@ -20,6 +20,7 @@ #:use-module (webid-oidc jws) #:use-module (webid-oidc jti) #:use-module ((webid-oidc stubs) #:prefix stubs:) + #:use-module ((webid-oidc parameters) #:prefix p:) #:use-module (web uri) #:use-module (web client) #:use-module (ice-9 optargs) @@ -206,12 +207,13 @@ (iss #f) (sub #f) (aud #f) - (exp #f) - (iat #f)) + (validity 3600)) (unless sub (set! sub webid)) (id-token-encode (make-id-token `((alg . ,(symbol->string alg))) - (make-id-token-payload webid iss sub aud (stubs:random 12) exp iat)) + (let ((iat (time-second (date->time-utc ((p:current-date)))))) + (make-id-token-payload webid iss sub aud (stubs:random 12) + (+ iat validity) iat))) issuer-key)) |