commented out unused function in autoban module

changed announcer code to allow for customizable posting rate

config.example

@@ -5,6 +5,7 @@ stream-url = https://my.stream.live
 motd = Thanks for joining the stream, hope you're having a good time! I try to stream every wednesday, so if youre interested feel free to join!
 
 # see services/announcer.lisp to see this in use!
+announcement-rate = 90
 announcement = Blah Blah! Check out my new blog https://example.blog
 
 # a comma separated list of words you would like to be automatically moderated if they are

handlers/autoban.lisp

@@ -14,4 +14,8 @@
                             (setf (gethash user-id *user-strikes*) user-strikes)
                             (when (<= (env :autoban-strike-count 5)
                                       user-strikes)
-                              (moderate-user user-id nil)))))))
+                              ;; TODO: once integrations can properly ban users
+                              ;;  the following line can be removed and the
+                              ;;  commented out line can be used.
+                              (log:info "User ~A has been flagged multiple times and should be banned" user-id)))))))
+                              ;;(moderate-user user-id nil)))))))

services/announcer.lisp

@@ -4,5 +4,5 @@
 ;; since :start-with-stream is non-nil, this service is started on demand
 ;; when the stream starts and will end when the stream stops
 (define-service ("announcement-poster" :start-with-stream t)
-  (after-every (45 :minutes :run-immediately t)
+  (after-every ((env :announcement-rate 45) :minutes :run-immediately t)
      (send-chat (env :announcement))))