This commit is contained in:
2022-12-05 09:31:16 -08:00
parent 328b9db323
commit f53df88435

View File

@@ -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")))