aboutsummaryrefslogtreecommitdiff
path: root/src/main.lisp
diff options
context:
space:
mode:
authorColin Okay <okay@toyful.space>2022-02-24 07:52:14 -0600
committerColin Okay <okay@toyful.space>2022-02-24 07:52:14 -0600
commit0e6bda73c6229faf4732b371539bac0e3b9867d0 (patch)
tree1fed017b40955a516bd10e09fccc1c9939e62a7e /src/main.lisp
parent3f6c87e6ebce5081d9f830f5d302009edc2029f1 (diff)
altered default authentication to check for locked accounts.
Diffstat (limited to 'src/main.lisp')
-rw-r--r--src/main.lisp4
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