diff options
| author | ckonstanski <ckonstanski@pippiandcarlos.com> | 2020-12-22 09:19:28 -0700 |
|---|---|---|
| committer | ckonstanski <ckonstanski@pippiandcarlos.com> | 2020-12-22 09:19:28 -0700 |
| commit | e5947122bae1115b024be354ace6885cb360037e (patch) | |
| tree | 0384007798115997a8e04517b1763685303253f6 /service/login-service.lisp | |
| parent | 0ed1cba1b39daaf8eef693233f081b455c88dece (diff) | |
updated to latest bootstrap
Diffstat (limited to 'service/login-service.lisp')
| -rw-r--r-- | service/login-service.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/service/login-service.lisp b/service/login-service.lisp index 8de0ec5..7007327 100644 --- a/service/login-service.lisp +++ b/service/login-service.lisp @@ -35,7 +35,7 @@ (setf (message login-authenticate-service) "Successfully logged in.") (setf (errormsg login-authenticate-service) "Login failed."))) -(defun login-authenticate-json (username pwd) +(defun login-authenticate-json (dn password) (let ((auth-result nil)) (when (check-ldap-password (ldap *webapp*) dn password) (setf (session-value :permissions) "admin") |