Repository : http://git.fedorahosted.org/cgit/jenkinscat-docs.git
On branch : master
commit 3dec4f103faffef252c6f9fad3739974d8b924ab Author: Pavel Tisnovsky ptisnovs@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@redhat.com
* src/jenkinscat/server.clj: + Handler for the second step for adding book to Jenkins. + +2015-01-23 Pavel Tisnovsky ptisnovs@redhat.com + + * src/jenkinscat/server.clj: Added functions to read book metainformations.
2015-01-22 Pavel Tisnovsky ptisnovs@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)]
docs-commits@lists.fedoraproject.org