diff options
| author | Vivien Kraus <vivien@planete-kraus.eu> | 2021-10-21 11:45:37 +0200 |
|---|---|---|
| committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-11-14 16:49:56 +0000 |
| commit | 05b218e382add93b85ee7ff6de43502b96243c16 (patch) | |
| tree | 384314cf9650cca9930f95af54dad08952800766 | |
| parent | dee93644388b0095cf1161c554effe5633523775 (diff) | |
Debug
| -rw-r--r-- | src/scm/webid-oidc/server/endpoint/identity-provider.scm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/scm/webid-oidc/server/endpoint/identity-provider.scm b/src/scm/webid-oidc/server/endpoint/identity-provider.scm index 7af872e..8659977 100644 --- a/src/scm/webid-oidc/server/endpoint/identity-provider.scm +++ b/src/scm/webid-oidc/server/endpoint/identity-provider.scm @@ -270,6 +270,7 @@ '()))))) (define-method (handle (endpoint <authorization-endpoint>) request request-body) + (format (current-error-port) "Handling in an authorization endpoint: ~s ~s\n" request request-body) (let ((query-args (split-args (uri-query (request-uri request)) @@ -286,6 +287,7 @@ (utf8->string request-body)) request-body)) #t))) + (format (current-error-port) "Arguments: ~s ~s\n" query-args form-args) (let ((client-id (match (assq-ref query-args 'client_id) ((? string? (= string->uri (? uri? uri))) @@ -298,6 +300,7 @@ (else #f))) (password (assq-ref form-args 'password)) (state (assq-ref query-args 'state))) + (format (current-error-port) "Arguments: ~s ~s ~s ~s\n" client-id redirect-uri password state) (define form (if (uri? client-id) `(div @@ -328,6 +331,7 @@ `(p ,(W_ "The redirect_uri query argument is not set.")))))) (if (eq? (request-method request) 'POST) (begin + (format (current-error-port) "Checking your password…\n") (unless (and password (verify-password (encrypted-password endpoint) password)) (raise-exception (make-exception |