From 12d988a551ad94ef0541cb9ed8bba41aabad68ce Mon Sep 17 00:00:00 2001
From: Lia Lenckowski <lialenck@protonmail.com>
Date: Wed, 28 Feb 2024 08:54:28 +0100
Subject: add pending bang limit

---
 src/Main.hs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/Main.hs b/src/Main.hs
index 7d3a331..0aac4ec 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -99,6 +99,9 @@ postSubmitR :: Handler ()
 postSubmitR = do
     pb <- requireCheckJsonBody
     unless (verifyPendingBang pb) $ invalidArgs []
+
+    cnt <- runDB $ count ([] :: [Filter PendingBang])
+    unless (cnt < 1000) $ permissionDenied "Too many pending bangs already in database"
     runDB $ insert400_ pb
 
     liftIO . notifyRunner . notifyPbRunner =<< getYesod
-- 
cgit v1.2.3-70-g09d2