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

🐛 Make the media cleaning on file-gc task aware of snapshots

Browse source 
It now takes in account the snapshots, and prevents
deletion of media files used in snapshots.
This commit is contained in:
Andrey Antukh 2024-09-02 16:40:18 +02:00
parent 71ba0242c7
commit 50df2279a7
7 changed files with 53 additions and 31 deletions
Download patch file Download diff file Expand all files Collapse all files

5
backend/src/app/rpc/commands/files_snapshot.clj
View file

@ -103,6 +103,7 @@
(db/update! conn :file
{:data (:data snapshot)
:revn (inc (:revn file))
:version (:version snapshot)
:data-backend nil
:data-ref-id nil
:has-media-trimmed false
@ -170,7 +171,7 @@
(update :data blob/encode)))))
(defn take-file-snapshot!
[cfg {:keys [file-id label]}]
[cfg {:keys [file-id label ::rpc/profile-id]}]
(let [file (get-file cfg file-id)
id (uuid/next)]
@ -182,7 +183,9 @@
{:id id
:revn (:revn file)
:data (:data file)
:version (:version file)
:features (:features file)
:profile-id profile-id
:file-id (:id file)
:label label}
{::db/return-keys false})