From dee93644388b0095cf1161c554effe5633523775 Mon Sep 17 00:00:00 2001 From: Vivien Kraus Date: Thu, 21 Oct 2021 11:29:53 +0200 Subject: Check password --- src/scm/webid-oidc/server/endpoint/identity-provider.scm | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/scm/webid-oidc/server/endpoint/identity-provider.scm b/src/scm/webid-oidc/server/endpoint/identity-provider.scm index 68bb154..7af872e 100644 --- a/src/scm/webid-oidc/server/endpoint/identity-provider.scm +++ b/src/scm/webid-oidc/server/endpoint/identity-provider.scm @@ -246,6 +246,8 @@ (define (verify-password encrypted-password password) (let ((c (crypt password encrypted-password))) + (format (current-error-port) "Verifying password: given ~s (crypts to ~s) to match ~s\n" + password c encrypted-password) (string=? c encrypted-password))) (define (split-args str decode-plus-to-space?) -- cgit v1.2.3