diff options
Diffstat (limited to 'src/chttpd/src/chttpd_prefer_header.erl')
| -rw-r--r-- | src/chttpd/src/chttpd_prefer_header.erl | 34 |
1 files changed, 17 insertions, 17 deletions
diff --git a/src/chttpd/src/chttpd_prefer_header.erl b/src/chttpd/src/chttpd_prefer_header.erl index de2660399..dbce54e65 100644 --- a/src/chttpd/src/chttpd_prefer_header.erl +++ b/src/chttpd/src/chttpd_prefer_header.erl @@ -18,44 +18,44 @@ maybe_return_minimal/2 ]). - -include_lib("couch/include/couch_db.hrl"). - -define(DEFAULT_PREFER_MINIMAL, "Cache-Control, Content-Length, Content-Range, " - "Content-Type, ETag, Server, Transfer-Encoding, Vary"). - + "Content-Type, ETag, Server, Transfer-Encoding, Vary" +). maybe_return_minimal(#httpd{mochi_req = MochiReq}, Headers) -> case get_prefer_header(MochiReq) of - "return=minimal" -> + "return=minimal" -> filter_headers(Headers, get_header_list()); - _ -> + _ -> Headers end. - get_prefer_header(Req) -> case Req:get_header_value("Prefer") of Value when is_list(Value) -> string:to_lower(Value); - undefined -> + undefined -> undefined end. - filter_headers(Headers, IncludeList) -> - lists:filter(fun({HeaderName, _}) -> - lists:member(HeaderName, IncludeList) - end, Headers). - + lists:filter( + fun({HeaderName, _}) -> + lists:member(HeaderName, IncludeList) + end, + Headers + ). get_header_list() -> - SectionStr = config:get("chttpd", - "prefer_minimal", ?DEFAULT_PREFER_MINIMAL), + SectionStr = config:get( + "chttpd", + "prefer_minimal", + ?DEFAULT_PREFER_MINIMAL + ), split_list(SectionStr). - split_list(S) -> - re:split(S, "\\s*,\\s*", [trim, {return, list}]). + re:split(S, "\\s*,\\s*", [trim, {return, list}]). |