mirror of
https://github.com/penpot/penpot.git
synced 2025-05-31 11:36:12 +02:00
53 lines
1.6 KiB
Clojure
53 lines
1.6 KiB
Clojure
;; 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/.
|
|
;;
|
|
;; This Source Code Form is "Incompatible With Secondary Licenses", as
|
|
;; defined by the Mozilla Public License, v. 2.0.
|
|
;;
|
|
;; Copyright (c) 2016-2020 Andrey Antukh <niwi@niwi.nz>
|
|
|
|
(ns uxbox.tasks.gc
|
|
(:require
|
|
[clojure.tools.logging :as log]
|
|
[clojure.spec.alpha :as s]
|
|
[cuerdas.core :as str]
|
|
[postal.core :as postal]
|
|
[promesa.core :as p]
|
|
[uxbox.common.exceptions :as ex]
|
|
[uxbox.common.spec :as us]
|
|
[uxbox.config :as cfg]
|
|
[uxbox.db :as db]
|
|
[uxbox.util.blob :as blob]))
|
|
|
|
;; TODO: delete media referenced in pendint_to_delete table
|
|
|
|
;; (def ^:private sql:delete-item
|
|
;; "with items_part as (
|
|
;; select i.id
|
|
;; from pending_to_delete as i
|
|
;; order by i.created_at
|
|
;; limit 1
|
|
;; for update skip locked
|
|
;; )
|
|
;; delete from pending_to_delete
|
|
;; where id in (select id from items_part)
|
|
;; returning *")
|
|
|
|
;; (defn- remove-items
|
|
;; []
|
|
;; (vu/loop []
|
|
;; (db/with-atomic [conn db/pool]
|
|
;; (-> (db/query-one conn sql:delete-item)
|
|
;; (p/then decode-row)
|
|
;; (p/then (vu/wrap-blocking remove-media))
|
|
;; (p/then (fn [item]
|
|
;; (when (not (empty? items))
|
|
;; (p/recur))))))))
|
|
|
|
;; (defn- remove-media
|
|
;; [{:keys
|
|
;; (doseq [item files]
|
|
;; (ust/delete! media/media-storage (:path item))
|
|
;; (ust/delete! media/media-storage (:thumb-path item)))
|
|
;; files)
|