From 05b218e382add93b85ee7ff6de43502b96243c16 Mon Sep 17 00:00:00 2001
From: Vivien Kraus <vivien@planete-kraus.eu>
Date: Thu, 21 Oct 2021 11:45:37 +0200
Subject: Debug

---
 src/scm/webid-oidc/server/endpoint/identity-provider.scm | 4 ++++
 1 file changed, 4 insertions(+)

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
-- 
cgit v1.2.3