 
 (defn log-operation
     [job-name git-repo branch operation metadata]
-    (println "***" operation "***")
-    (println "job-name" job-name)
-    (println "git-repo" git-repo)
-    (println "branch"   branch)
-    (println "metadata" metadata))
+    (log "***" operation "***")
+    (log "job-name" job-name)
+    (log "git-repo" git-repo)
+    (log "branch"   branch)
+    (log "metadata" metadata))
 
 (defn send-configuration-xml-to-jenkins
     [url config]

(defn read-job-results
    [jenkins-url job-name]
    (let [url (str (job-name->url jenkins-url job-name) "/lastSuccessfulBuild/artifact/results.json/")]
        (println "Using the following URL to retrieve job results: " url)
        (try
            (slurp url)
            (catch Exception e


(require '[clojure.data.json :as json])
(require '[clj-http.client   :as http-client])

(defn log
    [& args]
    (.println System/out (apply str (interpose \space args))))

(defn get-command 
    [url]
