[jenkinscat-docs] master: Handler for the second step for adding book to Jenkins. (3dec4f1)

[immanetize at fedoraproject.org]

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

On branch  : master

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

commit 3dec4f103faffef252c6f9fad3739974d8b924ab
Author: Pavel Tisnovsky <ptisnovs at redhat.com>
Date:   Fri Jan 23 10:26:40 2015 +0100

    Handler for the second step for adding book to Jenkins.


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

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

diff --git a/ChangeLog b/ChangeLog
index 291b11b..b939888 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,6 +1,11 @@
 2015-01-23  Pavel Tisnovsky  <ptisnovs at redhat.com>
 
 	* src/jenkinscat/server.clj:
+	Handler for the second step for adding book to Jenkins.
+
+2015-01-23  Pavel Tisnovsky  <ptisnovs at redhat.com>
+
+	* src/jenkinscat/server.clj:
 	Added functions to read book metainformations.
 
 2015-01-22  Pavel Tisnovsky  <ptisnovs at redhat.com>
diff --git a/src/jenkinscat/server.clj b/src/jenkinscat/server.clj
index 1c6bf5a..dbe6e41 100644
--- a/src/jenkinscat/server.clj
+++ b/src/jenkinscat/server.clj
@@ -914,6 +914,36 @@
             nil)
         nil))
 
+(defn add-book-step-2-handler
+    "Handler for the 'Add book -> Continue' command."
+    [uri params session]
+    (let [repository-type   (read-trimmed-parameter-default-string params "repository-type")
+          repository-name   (read-trimmed-parameter-default-string params "repository-url")
+          repository-exists (repository-exists? repository-type repository-name)
+          repository-url    (get-full-repository-url repository-type repository-name)
+          book-info         (if repository-exists (clone-repo-and-read-book-info repository-type repository-name) nil)
+         ]
+         (when config/devel-version
+             (println "Book info: " book-info)
+             (println (not book-info))
+             (println (empty-book-info? book-info)))
+         (cond
+             (= repository-type "")
+                 (generate-response-html (add-book-step-1-error-pages-renderer/render-add-book-step-1-wrong-repotype) session)
+             (= repository-type "Please select repository type") 
+                 (generate-response-html (add-book-step-1-error-pages-renderer/render-add-book-step-1-wrong-repotype) session)
+             (= repository-name "")
+                 (generate-response-html (add-book-step-1-error-pages-renderer/render-add-book-step-1-empty-reponame) session)
+             (not repository-exists)
+                 (generate-response-html (add-book-step-1-error-pages-renderer/render-add-book-step-1-wrong-reponame repository-name) session)
+             (not book-info)
+                 (generate-response-html (add-book-step-2-renderer/render-add-book-step-2-enter-some-bookinfo repository-type repository-name repository-url nil config/devel-version) session)
+             (empty-book-info? book-info)
+                 (generate-response-html (add-book-step-2-renderer/render-add-book-step-2-enter-some-bookinfo repository-type repository-name repository-url book-info config/devel-version) session)
+             :else
+                 (generate-response-html (add-book-step-2-renderer/render-add-book-step-2-already-have-bookinfo repository-type repository-name repository-url book-info config/devel-version) session))
+    ))
+
 (defn count-books
     [books]
     (let [out-data (new java.util.TreeSet)]