diff options
author | Vivien Kraus <vivien@planete-kraus.eu> | 2021-10-21 11:29:53 +0200 |
---|---|---|
committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-11-14 16:49:56 +0000 |
commit | dee93644388b0095cf1161c554effe5633523775 (patch) | |
tree | b5ee8a151c8c73f63d9377c1553d6529c105209d | |
parent | 25431da247c33c66529c373e13919c87d8e86c55 (diff) |
Check password
-rw-r--r-- | src/scm/webid-oidc/server/endpoint/identity-provider.scm | 2 |
1 files changed, 2 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 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?) |