addressing failures.

src/clj/auto_ap/graphql/requests.clj

@@ -1,11 +1,39 @@
 (ns auto-ap.graphql.requests
   (:require
-   [amazonica.aws.sqs :as sqs]
-   [auto-ap.graphql.utils :refer [assert-admin]]
-   [config.core :refer [env]]))
+   [amazonica.aws.ecs :as ecs]
+   [auto-ap.graphql.utils :refer [assert-admin assert-failure]]
+   [clojure.string :as str]
+   [config.core :refer [env]])
+  (:import
+   (com.amazonaws.services.ecs.model AssignPublicIp)))
+
+(defn currently-running-jobs []
+  (->> (ecs/list-tasks :cluster "default" )
+       :task-arns
+       (ecs/describe-tasks :include [] :tasks)
+       :tasks
+       #_(filter #(= "RUNNING" (:last-status %)))
+       (map (comp (comp last butlast) #(str/split % #"[/:]") :task-definition-arn)
+
+            #_(mapcat (comp :container-overrides :overrides)))
+       (set))
+
+  )
+
+(defn run-task [task]
+  (ecs/run-task :capacity-provider-strategy [{:base 1 :weight 1 :capacity-provider "FARGATE_SPOT"}]
+                :count 1
+                :cluster "default"
+                :enable-ecs-managed-tags true
+                :task-definition task
+                :network-configuration {:aws-vpc-configuration {:subnets          ["subnet-5e675761" "subnet-8519fde2" "subnet-89bab8d4"]
+                                                               :security-groups  ["sg-004e5855310c453a3" "sg-02d167406b1082698"]
+                                                               :assign-public-ip AssignPublicIp/ENABLED}}))
 
 (defn request-import [context value _]
   (assert-admin (:id context))
-  (:message-id (sqs/send-message {:queue-url (:requests-queue-url env)
-                                  :message-body (:which value)} )))
+  (let [job (str (str/replace (name (:which value)) #"-" "_") "_" (:dd-env env))]
+    (if (not (get (currently-running-jobs) job))
+      (run-task job)
+      (assert-failure "This job is already running"))))