From 87164f2e59a9018f601ef4c375f3c2e241c45d51 Mon Sep 17 00:00:00 2001 From: tim b Date: Sat, 3 Jul 2010 15:57:23 -0700 Subject: testing how to get ip from request obj --- src/site.clj | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/site.clj') diff --git a/src/site.clj b/src/site.clj index 1405ff8..2ce42ea 100644 --- a/src/site.clj +++ b/src/site.clj @@ -1103,7 +1103,8 @@ order by count desc limit ? offset ?") (.toString st))) (defn show-ip [request] - (str request (:headers request)) + (let [ip (:x-real-ip (:headers request)) + ip (if ip ip (:remote-addr request))] (str ip)) ) ;; Compojure Routes -- cgit v1.2.3-70-g09d2