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