✨ Reduce locking on objects-gc task

The main issue was the long running gc operation that
affects storage objects with deduplication. The long running
transacion ends locking some storage object rows which collaterally
made operations like import-binfile become blocked indefinitelly
because of the same rows (because of deduplication).

The solution used in this commit is split operations on small
chunks so we no longer use long running transactions that holds
too many locks. With this approach we will make a window to work
concurrently all operarate the distinct operations that requires
locks on the same rows.

backend/src/app/tasks/delete_object.clj

@@ -0,0 +1,69 @@
+;; This Source Code Form is subject to the terms of the Mozilla Public
+;; License, v. 2.0. If a copy of the MPL was not distributed with this
+;; file, You can obtain one at http://mozilla.org/MPL/2.0/.
+;;
+;; Copyright (c) KALEIDOS INC
+
+(ns app.tasks.delete-object
+  "A generic task for object deletion cascade handling"
+  (:require
+   [app.common.logging :as l]
+   [app.db :as db]
+   [clojure.spec.alpha :as s]
+   [integrant.core :as ig]))
+
+(defmulti delete-object
+  (fn [_ props] (:object props)))
+
+(defmethod delete-object :file
+  [{:keys [::db/conn]} {:keys [id deleted-at]}]
+  (l/trc :hint "marking for deletion" :rel "file" :id id)
+  ;; Mark file media objects to be deleted
+  (db/update! conn :file-media-object
+              {:deleted-at deleted-at}
+              {:file-id id})
+
+  ;; Mark thumbnails to be deleted
+  (db/update! conn :file-thumbnail
+              {:deleted-at deleted-at}
+              {:file-id id})
+
+  (db/update! conn :file-tagged-object-thumbnail
+              {:deleted-at deleted-at}
+              {:file-id id}))
+
+(defmethod delete-object :project
+  [{:keys [::db/conn] :as cfg} {:keys [id deleted-at]}]
+  (l/trc :hint "marking for deletion" :rel "project" :id id)
+  (doseq [file (db/update! conn :file
+                           {:deleted-at deleted-at}
+                           {:project-id id}
+                           {::db/return-keys [:id :deleted-at]
+                            ::db/many true})]
+    (delete-object cfg (assoc file :object :file))))
+
+(defmethod delete-object :team
+  [{:keys [::db/conn] :as cfg} {:keys [id deleted-at]}]
+  (l/trc :hint "marking for deletion" :rel "team" :id id)
+  (db/update! conn :team-font-variant
+              {:deleted-at deleted-at}
+              {:team-id id})
+
+  (doseq [project (db/update! conn :project
+                              {:deleted-at deleted-at}
+                              {:team-id id}
+                              {::db/return-keys [:id :deleted-at]
+                               ::db/many true})]
+    (delete-object cfg (assoc project :object :project))))
+
+(defmethod delete-object :default
+  [_cfg props]
+  (l/wrn :hint "not implementation found" :rel (:object props)))
+
+(defmethod ig/pre-init-spec ::handler [_]
+  (s/keys :req [::db/pool]))
+
+(defmethod ig/init-key ::handler
+  [_ cfg]
+  (fn [{:keys [props] :as params}]
+    (db/tx-run! cfg delete-object props)))