From d20d1c170a16938a2cb3ec6d64c3bd4064013465 Mon Sep 17 00:00:00 2001
From: Joe Averbukh <joeaverbukh@gmail.com>
Date: Fri, 28 Aug 2026 11:01:13 -0700
Subject: [PATCH] Disable daily metrics pings

---
 server/src/instant/scripts/analytics.clj     | 15 +++++++-------
 server/src/instant/scripts/daily_metrics.clj | 21 ++++++++++----------
 2 files changed, 19 insertions(+), 17 deletions(-)

diff --git a/server/src/instant/scripts/analytics.clj b/server/src/instant/scripts/analytics.clj
index 4266c634e0..598fd174c1 100644
--- a/server/src/instant/scripts/analytics.clj
+++ b/server/src/instant/scripts/analytics.clj
@@ -3,7 +3,7 @@
    [chime.core :as chime-core]
    [clojure.tools.logging :as log]
    [hiccup2.core :as h]
-   [instant.flags :refer [get-emails]]
+   [instant.flags :as flags :refer [get-emails]]
    [instant.grab :as grab]
    [instant.jdbc.aurora :as aurora]
    [instant.jdbc.sql :as sql]
@@ -157,12 +157,13 @@
          (filter (fn [x] (ZonedDateTime/.isAfter x now))))))
 
 (defn handle-email [_]
-  (let [date-str (date/numeric-date-str (LocalDate/now))]
-    (grab/run-once!
-     (str "analytics-" date-str)
-     (fn []
-       (log/infof "Sending analytics email %s" date-str)
-       (postmark/send! (prepare-email))))))
+  (when (flags/toggled? :daily-analytics-email-enabled? false)
+    (let [date-str (date/numeric-date-str (LocalDate/now))]
+      (grab/run-once!
+       (str "analytics-" date-str)
+       (fn []
+         (log/infof "Sending analytics email %s" date-str)
+         (postmark/send! (prepare-email)))))))
 
 (comment
   (chime-core/chime-at [(Instant/now)] handle-email))
diff --git a/server/src/instant/scripts/daily_metrics.clj b/server/src/instant/scripts/daily_metrics.clj
index 6bdfff55b2..00b81fcb05 100644
--- a/server/src/instant/scripts/daily_metrics.clj
+++ b/server/src/instant/scripts/daily_metrics.clj
@@ -134,16 +134,17 @@
        (str "daily-metrics-" date-str)
        (fn []
          (insert-new-activity)
-         (let [conn (aurora/conn-pool :read)
-               charts (->> (metrics/overview-metrics conn)
-                           :charts
-                           (map (fn [[k chart]]
-                                  {:name (format "%s.png" (name k))
-                                   :content-type "image/png"
-                                   ;; 273/173 is how discord resizes images
-                                   :content (metrics/chart->png-bytes chart
-                                                                      (* 2 273) (* 2 173))})))]
-           (send-metrics-to-discord! conn charts date-minus-one-str)))))))
+         (when (flags/toggled? :daily-metrics-discord-enabled? false)
+           (let [conn (aurora/conn-pool :read)
+                 charts (->> (metrics/overview-metrics conn)
+                             :charts
+                             (map (fn [[k chart]]
+                                    {:name (format "%s.png" (name k))
+                                     :content-type "image/png"
+                                     ;; 273/173 is how discord resizes images
+                                     :content (metrics/chart->png-bytes chart
+                                                                        (* 2 273) (* 2 173))})))]
+             (send-metrics-to-discord! conn charts date-minus-one-str))))))))
 
 (comment
   (def t1 (-> (LocalDate/parse "2024-10-09")