Added X-Accel-Redirect behaviour for http_router handler

src/cowboy_rack_handler.erl

@@ -18,6 +18,7 @@
 
 -export([init/3, handle/2, terminate/2]).
 -export([handle/3]).
+-include("log.hrl").
 
 -record(state, {
   path
@@ -46,12 +47,19 @@ translate_headers(Headers) ->
     [{list_to_binary(Name), V}|Acc]
   end, [], Headers).
 
-handle(Req, _Env, Path) ->
+handle(Req, Env, Path) ->
   case file:read_file_info(filename:join(Path, "config.ru")) of
     {ok, _} ->
+      % ?D({rack_call,Env}),
       {ok, {Status, ReplyHeaders, ReplyBody}, Req1} = handle(Req, Path),
-      {ok, Req2} = cowboy_http_req:reply(Status, ReplyHeaders, ReplyBody, Req1),
-      {ok, Req2};
+      case proplists:get_value(<<"X-Accel-Redirect">>, ReplyHeaders) of
+        undefined ->
+          {ok, Req2} = cowboy_http_req:reply(Status, ReplyHeaders, ReplyBody, Req1),
+          {ok, Req2};
+        Redirect ->
+          % ?D({rack_redirect,Redirect}),
+          {unhandled, Req, lists:keystore(path, 1, Env, {path, Redirect})}
+      end;
     {error, _} ->
       unhandled
   end.

src/log.hrl

@@ -0,0 +1 @@
+-define(D(X), (case application:get_env(rack, logging_function) of undefined -> io:format("~p:~p ~240p~n", [?MODULE, ?LINE, X]); _ -> (element(2,application:get_env(rack,logging_function)))(?MODULE, ?LINE, X) end)).