diff options
| -rwxr-xr-x | src/feed.clj | 46 |
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 |