diff options
| author | Colin Okay <okay@toyful.space> | 2022-02-24 07:52:14 -0600 |
|---|---|---|
| committer | Colin Okay <okay@toyful.space> | 2022-02-24 07:52:14 -0600 |
| commit | 0e6bda73c6229faf4732b371539bac0e3b9867d0 (patch) | |
| tree | 1fed017b40955a516bd10e09fccc1c9939e62a7e | |
| parent | 3f6c87e6ebce5081d9f830f5d302009edc2029f1 (diff) | |
altered default authentication to check for locked accounts.
| -rw-r--r-- | src/main.lisp | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/main.lisp b/src/main.lisp index 1d65531..f42b1f0 100644 --- a/src/main.lisp +++ b/src/main.lisp @@ -277,7 +277,9 @@ (defun api-token-authorization () "This request must be made with an API access token." - (request-contributor)) + (a:when-let (contributor (request-contributor)) + (or (not (contributor-lockedp contributor)) + (adminp contributor)))) ;;; DATABASE TRANSACTIONS |