Removed old testing code

1 files changed, 0 insertions, 46 deletions

diff --git a/src/feed.clj b/src/feed.clj
index 7e71fba..c8454d0 100755
--- a/src/feed.clj
+++ b/src/feed.clj
@@ -199,49 +199,3 @@ AND    NOT EXISTS (SELECT 1
       (scheduled-agent post-queued-messages!
                        feed-insert-period-sec
                        nil))
-
-
-;; Testing
-
-;; (defn feed-test-page [session]
-;;   (if-vip
-;;    (html [:body
-;;                [:h1 "Feed Test"]
-;;                [:form {:action "/feed-test" :method "post"}
-;;                 [:input {:type "text" :name "url"}]
-;;                 [:input {:type "submit" :value "Send"}]]])))
-
-;; (defn show-bad-images [imgs]
-;;   (for [[img reason] imgs]
-;;     [:div
-;;      reason
-;;      [:a {:href img}
-;;       [:img {:src img}]]]))
-
-;; (defn show-good-images [imgs]
-;;   (for [img imgs]
-;;     [:div
-;;      [:a {:href img}
-;;       [:img {:src img}]]]))
-
-;; (defn feed-test [session params]
-;;   (if-vip
-;;    (if-let [feed (params :url)]
-;;      (let [[slurp-ms text]        (with-timing (download-http-url feed))
-;;            [process-ms imgs]      (with-timing (extract-images text))
-;;            [good-imgs bad-imgs]   (classify-images imgs)]
-;;        (html [:body 
-;;               [:h1 (str "Images for " feed)]
-;;               [:div (format "Downloaded in %s ms" slurp-ms)]
-;;               [:div (format "Processed in %s ms" process-ms)]
-;;               [:hr]
-;;               [:h2 "Images"]
-;;               (show-good-images good-imgs)
-;;               [:hr]
-;;               [:h2 "Filtered Out Images"]
-;;               (show-bad-images bad-imgs)
-;;               [:hr]
-;;               [:h2 "Raw Feed Contents"]
-;;               [:pre (escape-html text)]]))
-;;      (redirect-to "/feed-test"))))
-;;      (redirect-to "/feed-test2"))))
\ No newline at end of file