     "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


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

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

    (let [template (slurp "data/template.xml")
          config   (update-template template git-repo branch)
          url      (str (job-name->url (update-jenkins-url jenkins-url jenkins-auth) job-name) "/config.xml")]
          (log "URL to use: " url)
          (try
              (->> (send-configuration-xml-to-jenkins url config)
                   (ok-response-structure job-name "update" include-jenkins-reply?))
