[jenkinscat-docs] master: Support for reading publican.cfg files stored in book repository. (7d393f4)

[immanetize at fedoraproject.org]

Repository : http://git.fedorahosted.org/cgit/jenkinscat-docs.git

On branch  : master

>---------------------------------------------------------------

commit 7d393f429a186a9962841c6923d72da2aae93c9c
Author: Pavel Tisnovsky <ptisnovs at redhat.com>
Date:   Thu Jan 22 10:20:33 2015 +0100

    Support for reading publican.cfg files stored in book repository.


>---------------------------------------------------------------

 ChangeLog                 |    5 +++++
 src/jenkinscat/server.clj |   33 +++++++++++++++++++++++++++++++++
 2 files changed, 38 insertions(+), 0 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index bff10c8..f4c797f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,6 +1,11 @@
 2015-01-22  Pavel Tisnovsky  <ptisnovs at redhat.com>
 
 	* src/jenkinscat/server.clj:
+	Support for reading publican.cfg files stored in book repository.
+
+2015-01-22  Pavel Tisnovsky  <ptisnovs at redhat.com>
+
+	* src/jenkinscat/server.clj:
 	Support for reading .edn files stored in book repository.
 
 2015-01-21  Pavel Tisnovsky  <ptisnovs at redhat.com>
diff --git a/src/jenkinscat/server.clj b/src/jenkinscat/server.clj
index 49641ef..496246e 100644
--- a/src/jenkinscat/server.clj
+++ b/src/jenkinscat/server.clj
@@ -781,6 +781,39 @@
             (println "Result: " result)
             result)))
 
+(defn perform-reading-from-publican-cfg
+    "Read all informations stored in a given publican.cfg file."
+    [publican-cfg-filename]
+    (if (file-exists? publican-cfg-filename)
+        (.split (fileutils/slurp- publican-cfg-filename) "\n")
+        nil))
+
+(defn read-publican-cfg
+    "Try to read all informations stored in a given publican.cfg file."
+    [temp-dir-name]
+    (let [publican-cfg-filename (str temp-dir-name "/publican.cfg")]
+        (println "Trying to read info from the file " publican-cfg-filename)
+        (let [result (perform-reading-from-publican-cfg publican-cfg-filename)]
+            (println "Result: " result)
+            result)))
+
+(defn read-publican-cfg-value
+    [publican-cfg key]
+    (first
+        (for [line publican-cfg :when (= key (first (.split line ":")))]
+            (.trim (second (.split line ":"))))))
+
+(defn get-document-type
+    "Returns document type - 'Article' or 'Book'."
+    [publican-cfg]
+    (let [document-type (if publican-cfg
+        (read-publican-cfg-value publican-cfg "type")
+        "Book")]
+        (cond
+            (empty? document-type) "Book"
+            (= document-type "Article") "Article"
+            :else "Book")))
+
 (defn count-books
     [books]
     (let [out-data (new java.util.TreeSet)]