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

🎉 Add profile activity registry logger.

Browse source
This commit is contained in:
Andrey Antukh 2021-04-07 17:45:22 +02:00
parent c40d9d9a7c
commit 8daf6e822e
6 changed files with 70 additions and 56 deletions
Download patch file Download diff file Expand all files Collapse all files

11
backend/src/app/http/session.clj
View file

@ -65,8 +65,8 @@
[cfg handler]
(fn [request]
(if-let [{:keys [id profile-id] :as session} (retrieve-from-request cfg request)]
(let [ech (::events-ch cfg)]
(a/>!! ech id)
(let [events-ch (::events-ch cfg)]
(a/>!! events-ch id)
(l/update-thread-context! {:profile-id profile-id})
(handler (assoc request :profile-id profile-id)))
(handler request))))
@ -109,6 +109,7 @@
[_ data]
(a/close! (::events-ch data)))
;; --- STATE INIT: SESSION UPDATER
(declare batch-events)
@ -145,10 +146,10 @@
(let [result (a/<! (update-sessions cfg batch))]
(mcnt :inc)
(if (ex/exception? result)
(l/error :mod "updater"
(l/error :task "updater"
:hint "unexpected error on update sessions"
:cause result)
(l/debug :mod "updater"
(l/debug :task "updater"
:action "update sessions"
:reason (name reason)
:count result))
@ -213,7 +214,7 @@
(let [interval (db/interval max-age)
result (db/exec-one! conn [sql:delete-expired interval])
result (:next.jdbc/update-count result)]
(l/debug :mod "gc-task"
(l/debug :task "gc"
:action "clean http sessions"
:count result)
result))))