diff options
| author | Scott Ostler <sostler@deathmachine.local> | 2010-03-15 22:35:40 -0400 |
|---|---|---|
| committer | Scott Ostler <sostler@deathmachine.local> | 2010-03-15 22:35:40 -0400 |
| commit | f475c0a8d00fa860c53fb28b89ad8ff6eacb5352 (patch) | |
| tree | 9fdb0cd0bea85eb1dde58462f0cb233944306f20 /src/origin_check.clj | |
| parent | 5ccd9bb3bc8226dce71d5742bc612bcd65f5b17d (diff) | |
src/origin_check.clj
Diffstat (limited to 'src/origin_check.clj')
| -rw-r--r-- | src/origin_check.clj | 9 |
1 files changed, 9 insertions, 0 deletions
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 |