Bugfix: wasn't accessing x-forwarded-for correctly.

Haifen · May 3, 2009 · 6e8ae17 · 6e8ae17
1 parent a7f358a
commit 6e8ae17
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/net/briancarper/blog/html/forms.clj b/net/briancarper/blog/html/forms.clj
@@ -137,7 +137,7 @@
                                   (:author global/*param*))
                         :homepage (:homepage global/*param*)
                         :post_id (:post_id global/*param*)
-                        :ip (or (:x-forwarded-for (:headers *request*))
+                        :ip (or ((:headers global/*request*) "x-forwarded-for")
                                 (:remote-addr *request*))
                         :approved 1})
           [(message "Comment added.")
@@ -150,7 +150,7 @@
         (try
          (add-spam (assoc (dissoc global/*param* :id)
                      :post_id (:id post)
-                     :ip (or (:x-forwarded-for (:headers *request*))
+                     :ip (or ((:headers global/*request*) "x-forwarded-for")
                              (:remote-addr *request*))))
          (catch Exception e))
         [(error-message "Comment failed.  You didn't type the magic word.  :(")