From 6dbe2b21300c2324766edaf1619272d65f5faaed Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Lo=C3=AFc=20Hoguin?= Date: Mon, 7 Nov 2011 00:53:19 +0100 Subject: Add 'Accept-Language' 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 2b17f9c..5a63e98 100644 --- a/src/cowboy_http_req.erl +++ b/src/cowboy_http_req.erl @@ -203,6 +203,7 @@ parse_header(Name, Req=#http_req{p_headers=PHeaders}) -> parse_header_default('Accept') -> []; parse_header_default('Accept-Charset') -> []; parse_header_default('Accept-Encoding') -> []; +parse_header_default('Accept-Language') -> []; parse_header_default('Connection') -> []; parse_header_default(_Name) -> undefined. @@ -226,6 +227,11 @@ parse_header(Name, Req, Default) when Name =:= 'Accept-Encoding' -> fun (Value) -> cowboy_http:list(Value, fun cowboy_http:conneg/2) end); +parse_header(Name, Req, Default) when Name =:= 'Accept-Language' -> + parse_header(Name, Req, Default, + fun (Value) -> + cowboy_http:nonempty_list(Value, fun cowboy_http:language_range/2) + end); parse_header(Name, Req, Default) when Name =:= 'Connection' -> parse_header(Name, Req, Default, fun (Value) -> -- cgit v1.2.3