From 0e6bda73c6229faf4732b371539bac0e3b9867d0 Mon Sep 17 00:00:00 2001
From: Colin Okay <okay@toyful.space>
Date: Thu, 24 Feb 2022 07:52:14 -0600
Subject: altered default authentication to check for locked accounts.

---
 src/main.lisp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src')

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
-- 
cgit v1.2.3