add straightforward logging hook to cowboy

stolen · Jun 28, 2014 · f82c5f3 · f82c5f3
1 parent e71870c
commit f82c5f3
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 1 deletion.
diff --git a/src/erdico.erl b/src/erdico.erl
@@ -39,7 +39,8 @@ start_cowboy() ->
     Host = {'_', [DefPath]},                % No virtualhosts
     Dispatch = cowboy_router:compile([Host]),
     Env = [{env, [{dispatch, Dispatch}]}],
-    cowboy:start_http(?MODULE, 10, [{port, conf(port, 2080)}], Env).
+    Hooks = [{onresponse, fun erdico_log:access_log_hook/4}],
+    cowboy:start_http(?MODULE, 10, [{port, conf(port, 2080)}], Env ++ Hooks).
 
 conf(Key, Default) ->
     application:get_env(?MODULE, Key, Default).
diff --git a/src/erdico_log.erl b/src/erdico_log.erl
@@ -0,0 +1,11 @@
+-module(erdico_log).
+-export([access_log_hook/4]).
+
+access_log_hook(Status, _Headers, _Body, Req) ->
+    {{PeerAddr, _}, Req1} = cowboy_req:peer(Req),
+    {Method, Req2} = cowboy_req:method(Req1),
+    {Url, Req3} = cowboy_req:url(Req2),
+    PeerStr = inet_parse:ntoa(PeerAddr),
+    lager:info([{tag, access}, {peer, PeerStr}, {method, Method}, {url, Url}, {status, Status}], ""),
+    Req3.
+