     "Read content of given filename from the job artifact."
     [jenkins-url job-name filename]
     (let [url (str (job-name->url jenkins-url job-name) "/lastSuccessfulBuild/artifact/" filename)]
-        (println "Using the following URL to retrieve job results: " url)
+        (log "Using the following URL to retrieve job results: " url)
         (try
             (slurp url)
             (catch Exception e

    "Read list of all jobs via Jenkins API."
    [jenkins-url job-list-part]
    (let [all-jobs-url (str jenkins-url job-list-part)]
        (println "Using the following URL to retrieve all Jenkins jobs: " all-jobs-url)
        (let [data (json/read-str (get-command all-jobs-url))]
            (if data
                (get data "jobs")


(defn log-operation
    [job-name git-repo branch operation]
    (log "***" operation "***")
    (log "job-name" job-name)
    (log "git-repo" git-repo)
    (log "branch"   branch))

(defn send-configuration-xml-to-jenkins
    [url config]
