From f475c0a8d00fa860c53fb28b89ad8ff6eacb5352 Mon Sep 17 00:00:00 2001 From: Scott Ostler 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 From 15aa3937a0fefcb98803a9213983e5dfa743b8c1 Mon Sep 17 00:00:00 2001 From: Scott Ostler Date: Mon, 15 Mar 2010 23:12:43 -0400 Subject: Removed println --- src/origin_check.clj | 1 - 1 file changed, 1 deletion(-) (limited to 'src/origin_check.clj') diff --git a/src/origin_check.clj b/src/origin_check.clj index 3dada54..a24e43b 100644 --- a/src/origin_check.clj +++ b/src/origin_check.clj @@ -5,5 +5,4 @@ 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