Limit event occurrences to 1000.

CHANGES.rst

@@ -4,6 +4,8 @@ Changelog
 5.4.9 (unreleased)
 ------------------
 
+- Limit event occurrences to 1000.
+  [mamico]
 - Customize INameChooser adapter to check also alias ids and disallow to create contents that could override aliases.
   [cekk]
 - Add flag in controlpanel to enable/disable INameChooser customization.

src/redturtle/volto/monkey.py

@@ -14,9 +14,13 @@
 from zope.globalrequest import getRequest
 
 import datetime
+import logging
 import os
 
 
+logger = logging.getLogger(__name__)
+
+
 def occurrences(self, range_start=None, range_end=None):
     """Return all occurrences of an event, possibly within a start and end
     limit.
@@ -94,7 +98,15 @@ def get_obj(start):
             id=str(start.date()), start=start, end=start + duration
         ).__of__(self.context)
 
+    limit = 100
     for start in starts:
+        if limit < 0:
+            logger.warning(
+                "Too many occurrences, for %s stopping at 100",
+                self.context.absolute_url(),
+            )
+            raise StopIteration
+        limit -= 1
         yield get_obj(start)