Block bots

src/isbnnetinclj/middleware/block.clj

@@ -0,0 +1,22 @@
+(ns isbnnetinclj.middleware.block
+  (:require [timbre.core :as log]
+            [noir.core :refer :all]))
+
+
+(def bots
+  '(#"kitabcompare"))
+
+
+(defn should-block?
+  [user-agent]
+  (some #(re-find % user-agent) bots))
+
+
+;; http://webnoir.org/tutorials/middleware
+(defn block-bots
+  [handler]
+  (fn [request]
+    (let [user-agent (get-in request [:headers "user-agent"])]
+      (if (should-block? user-agent)
+        nil
+        (handler request)))))

src/isbnnetinclj/server.clj

@@ -2,9 +2,11 @@
   (:gen-class)
   (:require [timbre.core :as log]
             [noir.server]
-            [isbnnetinclj.models.mongodb :as mongodb]))
+            [isbnnetinclj.models.mongodb :as mongodb]
+            [isbnnetinclj.middleware.block :refer [block-bots]]))
 
 
+(noir.server/add-middleware block-bots)
 (noir.server/load-views "src/isbnnetinclj/views/")