                  (if job-results
                      (send-plain-response job-results)
                      (-> (error-response job-name "get_job_results" "can not read test results")
-                         send-response)))
+                         (send-response request))))
             (-> (job-does-not-exist-response job-name "get_job_results")
-                send-response))))
+                (send-response request)))))
 
 (defn job-started-handler
     [request]
     (println "job-started")
-    (send-response {:status "ok"}))
+    (send-response {:status "ok"} request))
 
 (defn job-finished-handler
     [request]
     (println "job-finished")
-    (send-response {:status "ok"}))
+    (send-response {:status "ok"} request))
 
 (defn job-results
     [request]
     (println "job-results")
-    (send-response {:status "ok"}))
+    (send-response {:status "ok"} request))
 
 (defn unknown-call-handler
-    [uri method]
+    [request uri method]
     (let [response {:status :error
                     :error "Unknown API call"
                     :uri uri
                     :method method}]
-        (send-response response)))
-
+        (send-response response request)))
+

          product (get params "product")
          version (get params "version")
          results (results/get-job-results product version)]
        (send-response results)))

(defn get-job-results
    [request uri]

                                        (config/get-jenkins-auth request)
                                        job-name)
                (reload-job-list request)
                (send-response request))
            (-> (job-does-not-exist-response job-name "delete")
                (send-response request)))))

(defn create-job
    [request]
