3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-05-23 17:46:10 +02:00
Code Issues Projects Releases Packages Wiki Activity

✨ Minor changes on tasks subsystem.

Browse source
This commit is contained in:
Andrey Antukh 2020-01-27 10:07:06 +01:00
parent f2cb2c3791
commit 8061ee7ca7
3 changed files with 12 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

16
backend/src/uxbox/tasks/impl.clj
View file

@ -180,14 +180,11 @@
(db/with-atomic [conn db/pool]
(-> (db/query-one conn [sql:lock-scheduled-task id])
(p/then (fn [result]
(if result
(do
(prn (thr-name) "execute-scheduled-task" "task-locked")
(-> (p/do! ((:fn stask) stask))
(p/catch (fn [e]
(log/warn "Excepton happens on executing scheduled task" e)
nil))))
(prn (thr-name) "execute-scheduled-task" "task-already-locked"))))
(when result
(-> (p/do! ((:fn stask) stask))
(p/catch (fn [e]
(log/warn "Excepton happens on executing scheduled task" e)
nil))))))
(p/finally (fn [v e]
(-> (vc/current-context)
(schedule-task stask)))))))
@ -196,14 +193,13 @@
[cron]
(s/assert tm/cron? cron)
(let [^Instant now (tm/now)
^Instant next (.toInstant (.getNextValidTimeAfter cron (Date/from now)))
^Instant next (tm/next-valid-instant-from cron now)
^Duration duration (Duration/between now next)]
(.toMillis duration)))
(defn- schedule-task
[ctx {:keys [cron] :as stask}]
(let [ms (ms-until-valid cron)]
(prn (thr-name) "schedule-task" (:id stask) ms)
(vt/schedule! ctx (assoc stask
:ctx ctx
::vt/once true