[jenkinscat-docs] master: Minor changes. (f5a374b)

immanetize at fedoraproject.org immanetize at fedoraproject.org
Fri Feb 6 07:40:08 UTC 2015


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

On branch  : master

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

commit f5a374b8721d689c8f8dff46db128ffe1bc7f00a
Author: Pavel Tisnovsky <ptisnovs at redhat.com>
Date:   Thu Dec 4 10:51:44 2014 +0100

    Minor changes.


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

 ChangeLog                 |    8 ++++++++
 src/jenkinscat/books.clj  |    6 ++++++
 src/jenkinscat/config.clj |   10 ++++++++++
 src/jenkinscat/core.clj   |    6 ++++++
 src/jenkinscat/server.clj |   44 +++++++++++++++++++++++---------------------
 5 files changed, 53 insertions(+), 21 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index c2821aa..3d7ebdc 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,13 @@
 2014-12-04  Pavel Tisnovsky  <ptisnovs at redhat.com>
 
+	* src/jenkinscat/books.clj:
+	* src/jenkinscat/config.clj:
+	* src/jenkinscat/core.clj:
+	* src/jenkinscat/server.clj:
+	Minor changes.
+
+2014-12-04  Pavel Tisnovsky  <ptisnovs at redhat.com>
+
 	* src/jenkinscat/file_handlers.clj:
 	Added - file handlers should be stored in a separate file and namespace.
 	* src/jenkinscat/fileutils.clj:
diff --git a/src/jenkinscat/books.clj b/src/jenkinscat/books.clj
index f0405d8..21fa655 100644
--- a/src/jenkinscat/books.clj
+++ b/src/jenkinscat/books.clj
@@ -1,3 +1,6 @@
+;;;
+;;; Jenkinscat HTTP server that handles all requests send from clients/browsers.
+;;;
 ;;; Copyright (c) 2014  Pavel Tisnovsky, Red Hat
 ;;; All rights reserved.
 ;;;
@@ -22,6 +25,9 @@
 ;;; ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
 ;;; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 ;;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+;;;
+
+
 
 (ns jenkinscat.books)
 
diff --git a/src/jenkinscat/config.clj b/src/jenkinscat/config.clj
index 8ad5fda..eced421 100644
--- a/src/jenkinscat/config.clj
+++ b/src/jenkinscat/config.clj
@@ -1,3 +1,6 @@
+;;;
+;;; Jenkinscat HTTP server that handles all requests send from clients/browsers.
+;;;
 ;;; Copyright (c) 2014  Pavel Tisnovsky, Red Hat
 ;;; All rights reserved.
 ;;;
@@ -22,6 +25,9 @@
 ;;; ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
 ;;; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 ;;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+;;;
+
+
 
 (ns jenkinscat.config)
 
@@ -49,3 +55,7 @@
     "Path where test results will be stored."
     "/var/www/html/tests/")
 
+(def devel-version
+    "Whether devel mode should be on."
+    true)
+
diff --git a/src/jenkinscat/core.clj b/src/jenkinscat/core.clj
index dde8d8c..ce821e5 100644
--- a/src/jenkinscat/core.clj
+++ b/src/jenkinscat/core.clj
@@ -1,3 +1,6 @@
+;;;
+;;; Jenkinscat HTTP server that handles all requests send from clients/browsers.
+;;;
 ;;; Copyright (c) 2014  Pavel Tisnovsky, Red Hat
 ;;; All rights reserved.
 ;;;
@@ -22,6 +25,9 @@
 ;;; ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
 ;;; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 ;;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+;;;
+
+
 
 (ns jenkinscat.core)
 ; enable in case you need to generate "uberjar"
diff --git a/src/jenkinscat/server.clj b/src/jenkinscat/server.clj
index e780b77..f061139 100644
--- a/src/jenkinscat/server.clj
+++ b/src/jenkinscat/server.clj
@@ -37,12 +37,14 @@
 (require '[hiccup.page          :as page])
 (require '[hiccup.form          :as form])
 
-(require '[ring.util.response   :as http-response])
-(require '[clojure.data.json    :as json])
-(require '[jenkinscat.books     :as books])
-(require '[jenkinscat.fileutils :as fileutils])
-(require '[jenkinscat.config    :as config])
-(require '[jenkinscat.exec      :as exec])
+(require '[ring.util.response       :as http-response])
+(require '[clojure.data.json        :as json])
+(require '[jenkinscat.books         :as books])
+(require '[jenkinscat.fileutils     :as fileutils])
+(require '[jenkinscat.config        :as config])
+(require '[jenkinscat.exec          :as exec])
+(require '[jenkinscat.file-handlers :as file-handlers])
+
 
 (require '[clojure.xml          :as xml])
 
@@ -701,21 +703,21 @@
                           duration                (if last-build-and-duration (second last-build-and-duration) nil)
                           path-to-log             (get-path-to-log job-name book-key)]
                         (conj! books-for-product {
-                            "name"             book-name
-                            "repo"             book-repo
-                            "status"           status
-                            "log"              path-to-log
-                            "last-build"       (compute-last-build last-build current-time)
-                            "duration"         (compute-duration duration)
-                            "html-single-link" (get-path-to-html job-name)
-                            "pdf-link"         (get-path-to-pdf  job-name)
-                            "job-name"         job-name
-                            "bugzilla-link"    bugzilla-url
-                            "bugzilla_status"  bugzilla-url-ok
-                            "component-name"   bugzilla-component-name
-                            "product-name"     book-product
-                            "show_overview"    show-overview
-                            "book-product-name" book-product-name
+                            "name"                book-name
+                            "repo"                book-repo
+                            "status"              status
+                            "log"                 path-to-log
+                            "last-build"          (compute-last-build last-build current-time)
+                            "duration"            (compute-duration duration)
+                            "html-single-link"    (get-path-to-html job-name)
+                            "pdf-link"            (get-path-to-pdf  job-name)
+                            "job-name"            job-name
+                            "bugzilla-link"       bugzilla-url
+                            "bugzilla_status"     bugzilla-url-ok
+                            "component-name"      bugzilla-component-name
+                            "product-name"        book-product
+                            "show_overview"       show-overview
+                            "book-product-name"   book-product-name
                         }))
                 )
             ))



More information about the docs-commits mailing list