From f475c0a8d00fa860c53fb28b89ad8ff6eacb5352 Mon Sep 17 00:00:00 2001
From: Scott Ostler <sostler@deathmachine.local>
Date: Mon, 15 Mar 2010 22:35:40 -0400
Subject: src/origin_check.clj

---
 src/origin_check.clj | 9 +++++++++
 1 file changed, 9 insertions(+)
 create mode 100644 src/origin_check.clj

(limited to 'src/origin_check.clj')

diff --git a/src/origin_check.clj b/src/origin_check.clj
new file mode 100644
index 0000000..3dada54
--- /dev/null
+++ b/src/origin_check.clj
@@ -0,0 +1,9 @@
+(ns origin-check)
+
+(defn with-origin-check
+  "Middleware to validate that state-changing URL access
+   originated from a page in the local domain."
+  [handler]
+  (fn [request]
+    (println (get-in request [:headers]))
+    (handler request)))
\ No newline at end of file
-- 
cgit v1.2.3-70-g09d2