test
This commit is contained in:
@@ -96,8 +96,12 @@
|
||||
(defn request-job [context value _]
|
||||
(assert-admin (:id context))
|
||||
(if (not (get (currently-running-jobs) (:which value)))
|
||||
(let [new-job (run-task (str (str/replace (:which value) #"-" "_") "_" (:dd-env env))
|
||||
(some-> (:args value) edn/read-string))]
|
||||
(let [new-job (run-task
|
||||
(-> (:which value)
|
||||
(str/replace #"-" "_")
|
||||
(str/replace #":" "")
|
||||
(str "_" (:dd-env env)))
|
||||
(some-> (:args value) edn/read-string))]
|
||||
{:message (str "task " (str new-job) " started.")})
|
||||
(assert-failure "This job is already running")))
|
||||
|
||||
|
||||
Reference in New Issue
Block a user