                         :type    "Warning"}]
         (send-response response))))
 
+(defn reload-job-list
+    [previous-response request]
+    (results/reload-all-results (:configuration request))
+    previous-response)
+
 (defn reload-all-results
     [request]
     (results/reload-all-results (:configuration request))

                                         job-name)
                send-response)
            (-> (job-does-not-exist-response job-name "enable")
                send-response))))

(defn uri->job-name

(defn create-job
    [request]
    )

(defn job-does-not-exist-response
    [job-name command]
