Chapril/xmpp.chapril.org-ejabberd
25
1
Fork 0
mirror of https://github.com/processone/ejabberd.git synced 2024-11-26 16:26:24 +01:00
Code Releases Activity

Include Last-Modified HTTP header in responses to allow caching (EJAB-546) in mod_http_fileserver and mod_muc_log_http.

Browse Source 
SVN Revision: 2189
This commit is contained in:
Badlop 2009-06-16 13:52:42 +00:00
parent 0864e8a24f
commit 4fdc4a2e06
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/web/mod_http_fileserver.erl
View File

@ -8,8 +8,6 @@
-module(mod_http_fileserver). -module(mod_http_fileserver).
-author('mmirra@process-one.net'). -author('mmirra@process-one.net').
-define(ejabberd_debug, true).
-compile([export_all]).
-behaviour(gen_mod). -behaviour(gen_mod).
@ -17,6 +15,7 @@
start/2, start/2,
stop/1, stop/1,
process/2, process/2,
loop/1,
ctl_process/2 ctl_process/2
]). ]).
@ -24,6 +23,7 @@
-include("jlib.hrl"). -include("jlib.hrl").
-include("ejabberd_http.hrl"). -include("ejabberd_http.hrl").
-include("ejabberd_ctl.hrl"). -include("ejabberd_ctl.hrl").
-include_lib("kernel/include/file.hrl").
%%%---------------------------------------------------------------------- %%%----------------------------------------------------------------------
%%% REQUEST HANDLERS %%% REQUEST HANDLERS
@ -71,6 +71,7 @@ serve(LocalPath) ->
?DEBUG("Delivering content.", []), ?DEBUG("Delivering content.", []),
{200, {200,
[{"Server", "ejabberd"}, [{"Server", "ejabberd"},
{"Last-Modified", last_modified(FileName)},
{"Content-type", content_type(FileName)}], {"Content-type", content_type(FileName)}],
FileContents}; FileContents};
{error, Error} -> {error, Error} ->
@ -131,6 +132,11 @@ content_type(Filename) ->
_Else -> "application/octet-stream" _Else -> "application/octet-stream"
end. end.
last_modified(FileName) ->
{ok, FileInfo} = file:read_file_info(FileName),
Then = FileInfo#file_info.mtime,
httpd_util:rfc1123_date(Then).
open_file(Filename) -> open_file(Filename) ->
case file:open(Filename, [append]) of case file:open(Filename, [append]) of
{ok, File} -> {ok, File} ->