diff options
| author | Loïc Hoguin <[email protected]> | 2011-10-26 20:54:21 +0200 |
|---|---|---|
| committer | Loïc Hoguin <[email protected]> | 2011-10-26 20:54:21 +0200 |
| commit | 4cd825923f6045500841715413b46efc2ca26d82 (patch) | |
| tree | 5bac763a479b7a9ef571c217c7db321361b4de54 /src/cowboy_http_req.erl | |
| parent | 819eb219e7d61b7df5692ce55ec33090b163fb5e (diff) | |
| download | cowboy-4cd825923f6045500841715413b46efc2ca26d82.tar.gz cowboy-4cd825923f6045500841715413b46efc2ca26d82.tar.bz2 cowboy-4cd825923f6045500841715413b46efc2ca26d82.zip | |
Add 'Accept-Charset' to cowboy_http_req:parse_header/2
Diffstat (limited to 'src/cowboy_http_req.erl')
| -rw-r--r-- | src/cowboy_http_req.erl | 6 |
1 files changed, 6 insertions, 0 deletions
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) -> |