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

📎 Port some auditlog changes from develop.

Browse source
This commit is contained in:
Andrey Antukh 2021-09-29 10:46:31 +02:00
parent 133c0312be
commit 8dba55d5cb
2 changed files with 7 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

14
backend/src/app/loggers/audit.clj
View file

@ -230,7 +230,7 @@
"select * from audit_log
where archived_at is null
order by created_at asc
limit 100
limit 1000
for update skip locked;")
(defn archive-events
@ -288,13 +288,11 @@
xform (comp (map decode-row)
(map row->event))
events (into [] xform rows)]
(l/debug :action "archive-events" :uri uri :events (count events))
(if (empty? events)
:empty
(do
(send events)
(mark-as-archived conn rows)
:continue))))))
(when-not (empty? events)
(l/debug :action "archive-events" :uri uri :events (count events))
(send events)
(mark-as-archived conn rows)
:continue)))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; GC Task