Parse project page numbers without reporting errors

We get lots of garbage error reports from people fuzzing the page
parameter. This will return a specific error for them, and won't
report them to Yeller.

Relates to #492

src/clojars/web.clj

@@ -67,8 +67,11 @@
                                     params)]
              (search search-obj % validated-params))))
    (GET "/projects" {:keys [params]}
-        (try-account
-          #(browse db % params)))
+         (try-account
+           #(let [validated-params (if (:page params)
+                                     (assoc params :page (try-parse-page (:page params)))
+                                     params)]
+             (browse db % validated-params))))
    (GET "/security" []
         (try-account
           #(html-doc "Security" {:account %}

src/clojars/web/browse.clj

@@ -49,4 +49,4 @@
       (let [i (count-projects-before db from)
             page (inc (int (/ i per-page)))]
         (redirect (str "/projects?page=" page "#" (mod i per-page))))
-      (browse-page db account (Integer. (or (:page params) 1)) per-page))))
+      (browse-page db account (or (:page params) 1) per-page))))