From 31468f6bb7c24ebd513da935c5dba1d6f22780fc Mon Sep 17 00:00:00 2001 From: niten Date: Tue, 1 Feb 2022 13:26:32 -0600 Subject: [PATCH] Record failed usernames --- backplane-auth.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/backplane-auth.scm b/backplane-auth.scm index f23ee80..8aa230a 100644 --- a/backplane-auth.scm +++ b/backplane-auth.scm @@ -8,12 +8,12 @@ (define *host-passwd-file* (getenv "FUDO_HOST_PASSWD_FILE")) (when (not *host-passwd-file*) - (format (current-error-port "FUDO_HOST_PASSWD_FILE not set~%")) + (format #t (current-error-port "FUDO_HOST_PASSWD_FILE not set~%")) (exit 1)) (define *service-passwd-file* (getenv "FUDO_SERVICE_PASSWD_FILE")) (when (not *service-passwd-file*) - (format (current-error-port "FUDO_SERVICE_PASSWD_FILE not set~%")) + (format #t (current-error-port "FUDO_SERVICE_PASSWD_FILE not set~%")) (exit 1)) (define host-regex "^host-([a-zA-Z][a-zA-Z0-9_-]+)$") @@ -35,7 +35,8 @@ (service-verifier (match:substring (string-match service-regex username) 1) password)) - (else #f)))) + (else (begin (format #t "unrecognized username: ~s @ ~s~%" username hostname) + nil))))) (define (make-handler handlers) (lambda (request)