The responses to HEAD must have empty Body
This commit is contained in:
parent
099f7d6521
commit
7436ef1fb1
|
@ -562,7 +562,13 @@ make_xhtml_output(State, Status, Headers, XHTML) ->
|
||||||
end, HeadersOut),
|
end, HeadersOut),
|
||||||
SL = [Version, integer_to_list(Status), " ",
|
SL = [Version, integer_to_list(Status), " ",
|
||||||
code_to_phrase(Status), "\r\n"],
|
code_to_phrase(Status), "\r\n"],
|
||||||
[SL, H, "\r\n", Data].
|
|
||||||
|
Data2 = case State#state.request_method of
|
||||||
|
'HEAD' -> "";
|
||||||
|
_ -> Data
|
||||||
|
end,
|
||||||
|
|
||||||
|
[SL, H, "\r\n", Data2].
|
||||||
|
|
||||||
make_text_output(State, Status, Headers, Text) when is_list(Text) ->
|
make_text_output(State, Status, Headers, Text) when is_list(Text) ->
|
||||||
make_text_output(State, Status, Headers, list_to_binary(Text));
|
make_text_output(State, Status, Headers, list_to_binary(Text));
|
||||||
|
@ -599,7 +605,13 @@ make_text_output(State, Status, Headers, Data) when is_binary(Data) ->
|
||||||
end, HeadersOut),
|
end, HeadersOut),
|
||||||
SL = [Version, integer_to_list(Status), " ",
|
SL = [Version, integer_to_list(Status), " ",
|
||||||
code_to_phrase(Status), "\r\n"],
|
code_to_phrase(Status), "\r\n"],
|
||||||
[SL, H, "\r\n", Data].
|
|
||||||
|
Data2 = case State#state.request_method of
|
||||||
|
'HEAD' -> "";
|
||||||
|
_ -> Data
|
||||||
|
end,
|
||||||
|
|
||||||
|
[SL, H, "\r\n", Data2].
|
||||||
|
|
||||||
|
|
||||||
parse_lang(Langs) ->
|
parse_lang(Langs) ->
|
||||||
|
|
Loading…
Reference in New Issue