3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-06-13 09:01:40 +02:00
Code Issues Projects Releases Packages Wiki Activity

✨ Minor improvements on telemetry task

Browse source
This commit is contained in:
Andrey Antukh 2022-02-24 09:09:46 +01:00 • committed by Andrés Moya
parent 24a0b4445e
commit 37a35b1827
1 changed files with 28 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

36
backend/src/app/tasks/telemetry.clj
View file

@ -38,14 +38,17 @@
(defmethod ig/init-key ::handler (defmethod ig/init-key ::handler
[_ {:keys [pool sprops version] :as cfg}] [_ {:keys [pool sprops version] :as cfg}]
(fn [_] (fn [{:keys [send?] :or {send? true}}]
;; Sleep randomly between 0 to 10s ;; Sleep randomly between 0 to 10s
(thread-sleep (rand-int 10000)) (when send?
(thread-sleep (rand-int 10000)))
(let [instance-id (:instance-id sprops)] (let [instance-id (:instance-id sprops)
(-> (get-stats pool version) stats (-> (get-stats pool version)
(assoc :instance-id instance-id) (assoc :instance-id instance-id))]
(send! cfg))))) (when send?
(send! stats cfg))
stats)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; IMPL ;; IMPL
@ -137,12 +140,28 @@
(->> [sql:team-averages] (->> [sql:team-averages]
(db/exec-one! conn))) (db/exec-one! conn)))
(defn- retrieve-enabled-auth-providers
[conn]
(let [sql (str "select auth_backend as backend, count(*) as total "
" from profile group by 1")
rows (db/exec! conn [sql])]
(->> rows
(map (fn [{:keys [backend total]}]
(let [backend (or backend "penpot")]
[(keyword (str "auth-backend-" backend))
total])))
(into {}))))
(defn- retrieve-jvm-stats (defn- retrieve-jvm-stats
[] []
(let [^Runtime runtime (Runtime/getRuntime)] (let [^Runtime runtime (Runtime/getRuntime)]
{:jvm-heap-current (.totalMemory runtime) {:jvm-heap-current (.totalMemory runtime)
:jvm-heap-max (.maxMemory runtime) :jvm-heap-max (.maxMemory runtime)
:jvm-cpus (.availableProcessors runtime)})) :jvm-cpus (.availableProcessors runtime)
:os-arch (System/getProperty "os.arch")
:os-name (System/getProperty "os.name")
:os-version (System/getProperty "os.version")
:user-tz (System/getProperty "user.timezone")}))
(defn get-stats (defn get-stats
[conn version] [conn version]
@ -161,6 +180,7 @@
:total-touched-files (retrieve-num-touched-files conn)} :total-touched-files (retrieve-num-touched-files conn)}
(d/merge (d/merge
(retrieve-team-averages conn) (retrieve-team-averages conn)
(retrieve-jvm-stats)) (retrieve-jvm-stats)
(retrieve-enabled-auth-providers conn))
(d/without-nils)))) (d/without-nils))))