         (get-and-check-port specified-port)))
 
 (defn show-help
+    "Show help and all supported CLI flags."
     [summary]
     (println "Usage:")
     (println summary))
 
 (defn print-environment-configuration
+    "Print environment confuguration to the standard output."
     []
     (let [properties (process-info/read-properties)]
         (println "Environment configuration")

        (println)))

(defn fetch-jobs-only
    [options]
    (println "Generating data2.edn")
    ;(job-data-fetcher/try-to-fetch-and-export-data)
    (println "Done"))

(defn show-config
    [options]
    (let [port                (options :port)
          jenkins-url         (options :jenkins-url)

        ;cors-handler))

(defn start-server-on-regular-machine
    "Start the service on regular machine."
    [ring-app port]
    (println "Starting the server at the port: " port)
    (jetty/run-jetty ring-app {:port (read-string port)}))

(defn start-server-on-openshift
    "Start the service on OpenShift machine."
    [ring-app port host]
    (println "Starting the server on openshift at the port: " port " and host: " host)
    (jetty/run-jetty ring-app {:port (read-string port) :host host}))
