diff options
Diffstat (limited to 'src/scm/webid-oidc/access-token.scm')
-rw-r--r-- | src/scm/webid-oidc/access-token.scm | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/src/scm/webid-oidc/access-token.scm b/src/scm/webid-oidc/access-token.scm index 9c57326..acdc56f 100644 --- a/src/scm/webid-oidc/access-token.scm +++ b/src/scm/webid-oidc/access-token.scm @@ -20,6 +20,7 @@ #:use-module (webid-oidc jwk) #:use-module (webid-oidc oidc-configuration) #: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,8 +207,7 @@ (alg #f) (webid #f) (iss #f) - (iat #f) - (exp #f) + (validity 3600) (client-key #f) (cnf/jkt #f) (client-id #f)) @@ -216,6 +216,7 @@ (access-token-encode (make-access-token `((alg . ,(if (symbol? alg) (symbol->string alg) alg))) - (make-access-token-payload - webid iss iat exp cnf/jkt client-id)) + (let ((iat (time-second (date->time-utc ((p:current-date)))))) + (make-access-token-payload + webid iss iat (+ iat validity) cnf/jkt client-id))) issuer-key)) |