mirror of
https://github.com/penpot/penpot.git
synced 2025-02-15 03:28:25 -05:00
📎 Minor log param naming change
This commit is contained in:
parent
e9fe1800e0
commit
116fafd0e1
6 changed files with 15 additions and 14 deletions
|
@ -305,7 +305,7 @@
|
||||||
(recur (+ n ^long total)))
|
(recur (+ n ^long total)))
|
||||||
(do
|
(do
|
||||||
(l/info :task "gc-deleted"
|
(l/info :task "gc-deleted"
|
||||||
:action "permanently delete items"
|
:hint "permanently delete items"
|
||||||
:count n)
|
:count n)
|
||||||
{:deleted n})))))))
|
{:deleted n})))))))
|
||||||
|
|
||||||
|
@ -379,10 +379,10 @@
|
||||||
(+ cntd (count to-delete))))
|
(+ cntd (count to-delete))))
|
||||||
(do
|
(do
|
||||||
(l/info :task "gc-touched"
|
(l/info :task "gc-touched"
|
||||||
:action "mark freeze"
|
:hint "mark freeze"
|
||||||
:count cntf)
|
:count cntf)
|
||||||
(l/info :task "gc-touched"
|
(l/info :task "gc-touched"
|
||||||
:action "mark for deletion"
|
:hint "mark for deletion"
|
||||||
:count cntd)
|
:count cntd)
|
||||||
{:freeze cntf :delete cntd})))))))
|
{:freeze cntf :delete cntd})))))))
|
||||||
|
|
||||||
|
@ -461,7 +461,7 @@
|
||||||
(+ d (count to-delete))))
|
(+ d (count to-delete))))
|
||||||
(do
|
(do
|
||||||
(l/info :task "recheck"
|
(l/info :task "recheck"
|
||||||
:action "recheck items"
|
:hint "recheck items"
|
||||||
:processed n
|
:processed n
|
||||||
:deleted d)
|
:deleted d)
|
||||||
{:processed n :deleted d})))))))
|
{:processed n :deleted d})))))))
|
||||||
|
|
|
@ -90,7 +90,7 @@
|
||||||
unused (->> (db/query conn :file-media-object {:file-id id})
|
unused (->> (db/query conn :file-media-object {:file-id id})
|
||||||
(remove #(contains? used (:id %))))]
|
(remove #(contains? used (:id %))))]
|
||||||
|
|
||||||
(l/debug :action "processing file"
|
(l/debug :hint "processing file"
|
||||||
:id id
|
:id id
|
||||||
:age age
|
:age age
|
||||||
:to-delete (count unused))
|
:to-delete (count unused))
|
||||||
|
@ -101,7 +101,7 @@
|
||||||
{:id id})
|
{:id id})
|
||||||
|
|
||||||
(doseq [mobj unused]
|
(doseq [mobj unused]
|
||||||
(l/debug :action "deleting media object"
|
(l/debug :hint "deleting media object"
|
||||||
:id (:id mobj)
|
:id (:id mobj)
|
||||||
:media-id (:media-id mobj)
|
:media-id (:media-id mobj)
|
||||||
:thumbnail-id (:thumbnail-id mobj))
|
:thumbnail-id (:thumbnail-id mobj))
|
||||||
|
|
|
@ -29,7 +29,7 @@
|
||||||
|
|
||||||
(defn- offload-candidate
|
(defn- offload-candidate
|
||||||
[{:keys [storage conn backend] :as cfg} {:keys [id data] :as file}]
|
[{:keys [storage conn backend] :as cfg} {:keys [id data] :as file}]
|
||||||
(l/debug :action "offload file data" :id id)
|
(l/debug :hint "offload file data" :id id)
|
||||||
(let [backend (simpl/resolve-backend storage backend)]
|
(let [backend (simpl/resolve-backend storage backend)]
|
||||||
(->> (simpl/content data)
|
(->> (simpl/content data)
|
||||||
(simpl/put-object backend file))
|
(simpl/put-object backend file))
|
||||||
|
|
|
@ -28,7 +28,8 @@
|
||||||
(let [interval (db/interval max-age)
|
(let [interval (db/interval max-age)
|
||||||
result (db/exec-one! conn [sql:delete-files-xlog interval])
|
result (db/exec-one! conn [sql:delete-files-xlog interval])
|
||||||
result (:next.jdbc/update-count result)]
|
result (:next.jdbc/update-count result)]
|
||||||
(l/debug :removed result :hint "remove old file changes")
|
(l/info :hint "remove old file changes"
|
||||||
|
:removed result)
|
||||||
result))))
|
result))))
|
||||||
|
|
||||||
(def ^:private
|
(def ^:private
|
||||||
|
|
|
@ -48,7 +48,7 @@
|
||||||
result (db/exec! conn [sql max-age])]
|
result (db/exec! conn [sql max-age])]
|
||||||
|
|
||||||
(doseq [{:keys [id] :as item} result]
|
(doseq [{:keys [id] :as item} result]
|
||||||
(l/trace :action "delete object" :table table :id id))
|
(l/trace :hint "delete object" :table table :id id))
|
||||||
|
|
||||||
(count result)))
|
(count result)))
|
||||||
|
|
||||||
|
@ -63,7 +63,7 @@
|
||||||
backend (simpl/resolve-backend storage (cf/get :fdata-storage-backend))]
|
backend (simpl/resolve-backend storage (cf/get :fdata-storage-backend))]
|
||||||
|
|
||||||
(doseq [{:keys [id] :as item} result]
|
(doseq [{:keys [id] :as item} result]
|
||||||
(l/trace :action "delete object" :table table :id id)
|
(l/trace :hint "delete object" :table table :id id)
|
||||||
(when backend
|
(when backend
|
||||||
(simpl/del-object backend item)))
|
(simpl/del-object backend item)))
|
||||||
|
|
||||||
|
@ -78,7 +78,7 @@
|
||||||
fonts (db/exec! conn [sql max-age])
|
fonts (db/exec! conn [sql max-age])
|
||||||
storage (assoc storage :conn conn)]
|
storage (assoc storage :conn conn)]
|
||||||
(doseq [{:keys [id] :as font} fonts]
|
(doseq [{:keys [id] :as font} fonts]
|
||||||
(l/trace :action "delete object" :table table :id id)
|
(l/trace :hint "delete object" :table table :id id)
|
||||||
(some->> (:woff1-file-id font) (sto/del-object storage))
|
(some->> (:woff1-file-id font) (sto/del-object storage))
|
||||||
(some->> (:woff2-file-id font) (sto/del-object storage))
|
(some->> (:woff2-file-id font) (sto/del-object storage))
|
||||||
(some->> (:otf-file-id font) (sto/del-object storage))
|
(some->> (:otf-file-id font) (sto/del-object storage))
|
||||||
|
@ -95,7 +95,7 @@
|
||||||
storage (assoc storage :conn conn)]
|
storage (assoc storage :conn conn)]
|
||||||
|
|
||||||
(doseq [{:keys [id] :as team} teams]
|
(doseq [{:keys [id] :as team} teams]
|
||||||
(l/trace :action "delete object" :table table :id id)
|
(l/trace :hint "delete object" :table table :id id)
|
||||||
(some->> (:photo-id team) (sto/del-object storage)))
|
(some->> (:photo-id team) (sto/del-object storage)))
|
||||||
|
|
||||||
(count teams)))
|
(count teams)))
|
||||||
|
@ -127,7 +127,7 @@
|
||||||
storage (assoc storage :conn conn)]
|
storage (assoc storage :conn conn)]
|
||||||
|
|
||||||
(doseq [{:keys [id] :as profile} profiles]
|
(doseq [{:keys [id] :as profile} profiles]
|
||||||
(l/trace :action "delete object" :table table :id id)
|
(l/trace :hint "delete object" :table table :id id)
|
||||||
|
|
||||||
;; Mark the owned teams as deleted; this enables them to be processed
|
;; Mark the owned teams as deleted; this enables them to be processed
|
||||||
;; in the same transaction in the "team" table step.
|
;; in the same transaction in the "team" table step.
|
||||||
|
|
|
@ -28,7 +28,7 @@
|
||||||
(let [interval (db/interval max-age)
|
(let [interval (db/interval max-age)
|
||||||
result (db/exec-one! conn [sql:delete-completed-tasks interval])
|
result (db/exec-one! conn [sql:delete-completed-tasks interval])
|
||||||
result (:next.jdbc/update-count result)]
|
result (:next.jdbc/update-count result)]
|
||||||
(l/debug :action "trim completed tasks table" :removed result)
|
(l/debug :hint "trim completed tasks table" :removed result)
|
||||||
result))))
|
result))))
|
||||||
|
|
||||||
(def ^:private
|
(def ^:private
|
||||||
|
|
Loading…
Add table
Reference in a new issue