From 3681835668e05e4ba68be28931540e7f6dcd0d10 Mon Sep 17 00:00:00 2001
From: Badlop <badlop@process-one.net>
Date: Tue, 16 Jun 2009 13:45:22 +0000
Subject: [PATCH] Fix ip source to comply with new ip storage into
 ejabberd_http (thanks to Christophe Romain)

SVN Revision: 2177
---
 src/web/mod_http_fileserver.erl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/web/mod_http_fileserver.erl b/src/web/mod_http_fileserver.erl
index 96fa27e0c..0590a7e57 100644
--- a/src/web/mod_http_fileserver.erl
+++ b/src/web/mod_http_fileserver.erl
@@ -108,7 +108,7 @@ join([H | T], Separator) ->
 
 log(File, Code, Request) ->
     {{Year, Month, Day}, {Hour, Minute, Second}} = calendar:local_time(),
-    IP = join(tuple_to_list(Request#request.ip), "."),
+    IP = join(tuple_to_list(element(1, Request#request.ip)), "."),
     Path = join(Request#request.path, "/"),
     Query = case join(lists:map(fun(E) -> lists:concat([element(1, E), "=", element(2, E)]) end,
 				Request#request.q), "&") of