diff options
Diffstat (limited to 'src/scm/webid-oidc/server/endpoint/identity-provider.scm')
-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 |