diff options
author | Badlop <badlop@process-one.net> | 2009-06-16 13:44:38 +0000 |
---|---|---|
committer | Badlop <badlop@process-one.net> | 2009-06-16 13:44:38 +0000 |
commit | bd106bd45f317d5720bff416adeaaec1ca6b3a9f (patch) | |
tree | 26e7f886b8fc0e0a6ce3b4910b173560619ff03c /src/web/mod_http_fileserver.erl | |
parent | Added accesslog parameter to record requests log in a file similar to Apache ... (diff) |
Small change in accesslog file format; fix bug when accesslog conf parameter wasn't present in the conf file (thanks to Jerome Sautret)
SVN Revision: 2170
Diffstat (limited to 'src/web/mod_http_fileserver.erl')
-rw-r--r-- | src/web/mod_http_fileserver.erl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/web/mod_http_fileserver.erl b/src/web/mod_http_fileserver.erl index f04cf113c..a0c14964f 100644 --- a/src/web/mod_http_fileserver.erl +++ b/src/web/mod_http_fileserver.erl @@ -56,7 +56,7 @@ process(LocalPath, Request) -> Result = serve(LocalPath), case ets:lookup(mod_http_fileserver, accessfile) of - undefined -> + [] -> ok; [{accessfile, AccessFile}] -> {Code, _, _} = Result, @@ -114,7 +114,7 @@ log(File, Code, Request) -> % combined apache like log format : % 127.0.0.1 - - [28/Mar/2007:18:41:55 +0200] "GET / HTTP/1.1" 302 303 "-" "tsung" % XXX TODO some fields are harcoded/missing (reply size, user agent or referer for example) - io:format(File, "~p - - [~p/~p/~p:~p:~p:~p] \"~s /~s~s\" ~p -1 \"-\" \"-\"~n", + io:format(File, "~s - - [~p/~p/~p:~p:~p:~p] \"~s /~s~s\" ~p -1 \"-\" \"-\"~n", [IP, Day, Month, Year, Hour, Minute, Second, Request#request.method, Path, Query, Code]). content_type(Filename) -> @@ -145,7 +145,7 @@ loop(Filename) -> receive reopenlog -> case ets:lookup(mod_http_fileserver, accessfile) of - undefined -> + [] -> ok; [{accessfile, AccessFile}] -> file:close(AccessFile), @@ -198,7 +198,7 @@ stop(_Host) -> ok; _ -> case ets:lookup(mod_http_fileserver, accessfile) of - undefined -> + [] -> ok; [{accessfile, AccessFile}] -> mod_http_fileserver_server ! stop, |