From 4cd825923f6045500841715413b46efc2ca26d82 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Lo=C3=AFc=20Hoguin?= Date: Wed, 26 Oct 2011 20:54:21 +0200 Subject: Add 'Accept-Charset' to cowboy_http_req:parse_header/2 --- src/cowboy_http_req.erl | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'src/cowboy_http_req.erl') diff --git a/src/cowboy_http_req.erl b/src/cowboy_http_req.erl index 1555a02..6c4aade 100644 --- a/src/cowboy_http_req.erl +++ b/src/cowboy_http_req.erl @@ -201,6 +201,7 @@ parse_header(Name, Req=#http_req{p_headers=PHeaders}) -> %% @doc Default values for semantic header parsing. -spec parse_header_default(http_header()) -> any(). parse_header_default('Accept') -> []; +parse_header_default('Accept-Charset') -> []; parse_header_default('Accept-Encoding') -> []; parse_header_default('Connection') -> []; parse_header_default(_Name) -> undefined. @@ -215,6 +216,11 @@ parse_header(Name, Req, Default) when Name =:= 'Accept' -> fun (Value) -> cowboy_http:list(Value, fun cowboy_http:media_range/2) end); +parse_header(Name, Req, Default) when Name =:= 'Accept-Charset' -> + parse_header(Name, Req, Default, + fun (Value) -> + cowboy_http:nonempty_list(Value, fun cowboy_http:charset/2) + end); parse_header(Name, Req, Default) when Name =:= 'Accept-Encoding' -> parse_header(Name, Req, Default, fun (Value) -> -- cgit v1.2.3