Chapril
/
xmpp.chapril.org-ejabberd
mirror of https://github.com/processone/ejabberd.git
24
1
Fork 0
Code Releases Activity

More fix in mod_http_fileserver to log URLs with/out query elements (#2021)

This commit is contained in:
Badlop 2017-10-06 13:15:47 +02:00
parent 3c7ab13374
commit 4bd5846d40
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/mod_http_fileserver.erl
View File

@ -436,7 +436,7 @@ add_to_log(File, FileSize, Code, Request) ->
IP = ip_to_string(element(1, Request#request.ip)),
Path = join(Request#request.path, "/"),
Query = case stringify_query(Request#request.q) of
[] ->
<<"">> ->
"";
String ->
[$? | String]
@ -456,11 +456,13 @@ add_to_log(File, FileSize, Code, Request) ->
FileSize, Referer, UserAgent]).
stringify_query(Q) ->
join(
lists:map(fun(E) ->
lists:concat([binary_to_list(element(1, E)), "=", binary_to_list(element(2, E))])
end, Q),
"&").
stringify_query(Q, []).
stringify_query([], Res) ->
join(lists:reverse(Res), "&");
stringify_query([{nokey, _B} | Q], Res) ->
stringify_query(Q, Res);
stringify_query([{A, B} | Q], Res) ->
stringify_query(Q, [join([A,B], "=") | Res]).
find_header(Header, Headers, Default) ->
case lists:keysearch(Header, 1, Headers) of