Repository :
http://git.fedorahosted.org/cgit/jenkinscat-docs.git
On branch : master
---------------------------------------------------------------
commit 8322027aa42cc626cc17270b8279b3c4994599ea
Author: Pavel Tisnovsky <ptisnovs(a)redhat.com>
Date: Fri Feb 6 09:49:05 2015 +0100
Configuration page handler.
---------------------------------------------------------------
ChangeLog | 5 ++++
src/jenkinscat/server.clj | 49 +++++++++++++++++++++++++++++++++++++++++++++
2 files changed, 54 insertions(+), 0 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index 3b36cd4..97c3dad 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2015-02-06 Pavel Tisnovsky <ptisnovs(a)redhat.com>
+
+ * src/jenkinscat/server.clj:
+ Configuration page handler.
+
2015-02-05 Pavel Tisnovsky <ptisnovs(a)redhat.com>
* src/jenkinscat/data_fetcher.clj:
diff --git a/src/jenkinscat/server.clj b/src/jenkinscat/server.clj
index fc26ce9..5099a98 100644
--- a/src/jenkinscat/server.clj
+++ b/src/jenkinscat/server.clj
@@ -342,6 +342,41 @@
[output-data]
(json/write-str output-data))
+(defn render-build-configuration-help-page
+ ""
+ []
+ (page/xhtml
+ (page-header-renderer/page-header "build configurations help")
+ [:body
+ (navigation-bar-renderer/navigation-bar "Book type/build configuration
help")
+ [:div {:class "col-md-10"}
+ [:h2 "Book type/build configuration help"]
+ [:table {:class "table table-condensed table-hover
table-borderer"}
+ [:tr
+ [:td {:style "width:20em"} "Book type:"]
+ [:td "How this book is build"]
+ ]
+ [:tr [:td " "] [:td " "] [:td
" "]]
+ [:tr
+ [:td [:button {:class "btn btn-info" :onclick
"window.close();" :type "button"} "Close"]]
+ [:td " "]
+ ]
+ ]]
+ ]))
+
+(defn generate-response-html
+ "Generate HTTP response for the given request."
+ [page-content session]
+ (-> (http-response/response page-content)
+ (http-response/content-type "text/html; charset=utf-8")
+ (assoc :session session)))
+
+(defn generate-response-json
+ "Generate HTTP response for the given request."
+ [page-content]
+ (-> (http-response/response page-content)
+ (http-response/content-type "application/json; charset=utf-8")))
+
(defn update-job-name
"Update job names - we don't need the postfix string."
[dirname]
@@ -561,6 +596,20 @@
(if (not (bound? (find-var 'jenkinscat.books/books)))
(books/read-books)))
+(defn json-data-exporter
+ "Dynamically creates file containing JSON data about books."
+ []
+ ; make sure books are read even in devel mode
+ (read-books-if-not-loaded)
+ (let [;data-json (json/read-str (slurp "www/data.json"))
+ products (get-products)
+ output-data (generate-output-data products books/books)
+ json-data (render-json-data output-data)]
+ (spit "data2.json" json-data)
+ ; rename files atomically (on the same filesystem)
+ (fileutils/mv-file "data2.json" "data.json")
+ ))
+
(defn json-data-handler
"Dynamically generate JSON data on demand and send them back to
client/browser."
[uri params session]