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

SVN Revision: 2192
---
 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