3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-05-13 12:36:37 +02:00
Code Issues Projects Releases Packages Wiki Activity

🎉 Add server repl helper for duplicate file.

Browse source
This commit is contained in:
Andrey Antukh 2021-03-02 10:49:50 +01:00
parent db49c54681
commit f14325d12b
1 changed files with 17 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

17
backend/src/app/srepl/main.clj
View file

@ -3,13 +3,16 @@
#_:clj-kondo/ignore #_:clj-kondo/ignore
(:require (:require
[app.common.pages :as cp] [app.common.pages :as cp]
[app.common.uuid :as uuid]
[app.common.pages.migrations :as pmg] [app.common.pages.migrations :as pmg]
[app.config :as cfg] [app.config :as cfg]
[app.db :as db] [app.db :as db]
[app.db.sql :as sql]
[app.main :refer [system]] [app.main :refer [system]]
[app.rpc.queries.profile :as prof] [app.rpc.queries.profile :as prof]
[app.srepl.dev :as dev] [app.srepl.dev :as dev]
[app.util.blob :as blob] [app.util.blob :as blob]
[cuerdas.core :as str]
[clojure.pprint :refer [pprint]])) [clojure.pprint :refer [pprint]]))
(defn update-file (defn update-file
@ -64,3 +67,17 @@
{:data (-> (blob/decode data) {:data (-> (blob/decode data)
(blob/encode {:version 2}))} (blob/encode {:version 2}))}
{:id id}))))) {:id id})))))
(defn duplicate-file
"This is a raw version of duplication of file just only for forensic analisys"
[system file-id email]
(db/with-atomic [conn (:app.db/pool system)]
(when-let [profile (some->> (prof/retrieve-profile-data-by-email conn (str/lower email))
(prof/populate-additional-data conn))]
(when-let [file (db/exec-one! conn (sql/select :file {:id file-id}))]
(let [params (assoc file
:id (uuid/next)
:project-id (:default-project-id profile))]
(db/insert! conn :file params)
(:id file))))))