From fa831479261f9c490f603da74957e71d964c6519 Mon Sep 17 00:00:00 2001
From: Badlop <badlop@process-one.net>
Date: Tue, 16 Jun 2009 13:52:52 +0000
Subject: [PATCH] Use httpd_util:to_lower when not compiling with Erlang R12
 (EJAB-628)

SVN Revision: 2191
---
 src/web/mod_http_fileserver.erl | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/src/web/mod_http_fileserver.erl b/src/web/mod_http_fileserver.erl
index d3c796257..96fa27e0c 100644
--- a/src/web/mod_http_fileserver.erl
+++ b/src/web/mod_http_fileserver.erl
@@ -25,6 +25,12 @@
 -include("ejabberd_ctl.hrl").
 -include_lib("kernel/include/file.hrl").
 
+-ifdef(SSL39).
+-define(STRING2LOWER, string).
+-else.
+-define(STRING2LOWER, httpd_util).
+-endif.
+
 %%%----------------------------------------------------------------------
 %%% REQUEST HANDLERS
 %%%----------------------------------------------------------------------
@@ -118,7 +124,7 @@ log(File, Code, Request) ->
 	      [IP, Day, Month, Year, Hour, Minute, Second, Request#request.method, Path, Query, Code]).
 
 content_type(Filename) ->
-    case string:to_lower(filename:extension(Filename)) of
+    case ?STRING2LOWER:to_lower(filename:extension(Filename)) of
         ".jpg"  -> "image/jpeg";
         ".jpeg" -> "image/jpeg";
         ".gif"  -> "image/gif";