anchor.diff:  -define(PART_SIZE, 100000).
   -define(WINDOW_SIZE, 5).
   -define(DEF_REQ_HEADERS_FILTER, {drop, ["content-length",
  -                                        "transfer-encoding"]}).
  +                                        "transfer-encoding",
  +                                        "ns-server-proxy-timeout"]}).
   -define(DEF_RESP_HEADERS_FILTER, {drop, ["content-length",
                                            "transfer-encoding",
                                            "www-authenticate"]}).
  
positive.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) ->
  
negative.code: get_timeout(views, Req) ->
      Params = Req:parse_qs(),
      list_to_integer(proplists:get_value("connection_timeout", Params, "30000"));
  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
  