✨ Add proper fdata objects deletion.

backend/src/app/tasks/file_offload.clj

@@ -43,7 +43,6 @@
 (s/def ::max-age ::dt/duration)
 (s/def ::backend ::us/keyword)
 
-
 (defmethod ig/pre-init-spec ::handler [_]
   (s/keys :req-un [::db/pool ::max-age ::sto/storage ::backend]))
 

backend/src/app/tasks/objects_gc.clj

@@ -8,8 +8,10 @@
   "A maintenance task that performs a general purpose garbage collection
   of deleted objects."
   (:require
+   [app.config :as cf]
    [app.db :as db]
    [app.storage :as sto]
+   [app.storage.impl :as simpl]
    [app.util.logging :as l]
    [app.util.time :as dt]
    [clojure.spec.alpha :as s]
@@ -50,6 +52,23 @@
 
     (count result)))
 
+
+;; --- IMPL: file deletion
+
+(defmethod delete-objects "file"
+  [{:keys [conn max-age table storage] :as cfg}]
+  (let [sql     (str/fmt sql:delete-objects
+                         {:table table :limit 50})
+        result  (db/exec! conn [sql max-age])
+        backend (simpl/resolve-backend storage (cf/get :fdata-storage-backend))]
+
+    (doseq [{:keys [id] :as item} result]
+      (l/trace :action "delete object" :table table :id id)
+      (when backend
+        (simpl/del-object backend item)))
+
+    (count result)))
+
 ;; --- IMPL: team-font-variant deletion
 
 (defmethod delete-objects "team_font_variant"