From 298ba1f1bbc501e8366c4fad4a636842c33ad030 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Lo=C3=AFc=20Hoguin?= Date: Thu, 22 Dec 2011 22:09:08 +0100 Subject: Add 'Upgrade' header parsing Not parsing product tokens, I don't see much point. --- src/cowboy_http_req.erl | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) (limited to 'src/cowboy_http_req.erl') diff --git a/src/cowboy_http_req.erl b/src/cowboy_http_req.erl index d4b7fd3..a995871 100644 --- a/src/cowboy_http_req.erl +++ b/src/cowboy_http_req.erl @@ -227,13 +227,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') -> undefined; -parse_header_default('Accept-Charset') -> undefined; -parse_header_default('Accept-Encoding') -> undefined; -parse_header_default('Accept-Language') -> undefined; parse_header_default('Connection') -> []; -parse_header_default('If-Match') -> undefined; -parse_header_default('If-None-Match') -> undefined; parse_header_default(_Name) -> undefined. %% @doc Semantically parse headers. @@ -288,6 +282,11 @@ parse_header(Name, Req, Default) fun (Value) -> cowboy_http:http_date(Value) end); +parse_header(Name, Req, Default) when Name =:= 'Upgrade' -> + parse_header(Name, Req, Default, + fun (Value) -> + cowboy_http:nonempty_list(Value, fun cowboy_http:token_ci/2) + end); parse_header(Name, Req, Default) -> {Value, Req2} = header(Name, Req, Default), {undefined, Value, Req2}. -- cgit v1.2.3