anchor.diff:  get_timeout(views, Req) ->
       Params = Req:parse_qs(),
       list_to_integer(proplists:get_value("connection_timeout", Params, "30000"));
  -get_timeout(_Service, _Req) ->
  -    ?TIMEOUT.
  +get_timeout(_Service, Req) ->
  +    case Req:get_header_value("ns-server-proxy-timeout") of
  +        undefined ->
  +            ?TIMEOUT;
  +        Val ->
  +            list_to_integer(Val)
  +    end.
   
   auth_token(_Service, Req) ->
       case menelaus_auth:extract_ui_auth_token(Req) of
  
positive.code: -define(PART_SIZE, 100000).
  -define(WINDOW_SIZE, 5).
  -define(DEF_REQ_HEADERS_FILTER, {drop, ["content-length",
                                          "transfer-encoding"]}).
  -define(DEF_RESP_HEADERS_FILTER, {drop, ["content-length",
                                           "transfer-encoding",
                                           "www-authenticate"]}).
  
negative.code:     Body = get_body(Req),
      Options = [{partial_download, [{window_size, ?WINDOW_SIZE},
                                     {part_size, ?PART_SIZE}]}],
      Resp = lhttpc:request(Host, Port, false, Path, Method, Headers,
                            Body, Timeout, Options),
      handle_resp(Resp, Req).
  
  get_body(Req) ->
  