feat: log ldap error messages on invalid-credentials

2020-08-28 17:58:13 +02:00 · 2020-08-28 17:58:13 +02:00 · 0b4fadedd2
commit 0b4fadedd2
parent 018d26f4a1
1 changed files with 5 additions and 1 deletions
--- a/src/Auth/LDAP.hs
+++ b/src/Auth/LDAP.hs
@ -203,7 +203,11 @@ campusLogin pool mode = AuthPlugin{..}
            $logErrorS apName $ "Error during login: " <> tshow err
            observeLoginOutcome apName LoginError
            loginErrorMessageI LoginR Msg.AuthError
-          Right (Left _bindErr) -> do
+          Right (Left bindErr) -> do
+            case bindErr of
+              Ldap.ResponseErrorCode _ _ _ errTxt -> 
+                $logInfoS apName [st|#{campusIdent}: #{errTxt}|]
+              _other -> return ()
            $logDebugS apName "Invalid credentials"
            observeLoginOutcome apName LoginInvalidCredentials
            loginErrorMessageI LoginR Msg.InvalidLogin