anchor.diff:    when ContentLength < MaxSize * 2 ->
       OnSocket = ContentLength - size(Buffer),
       elli_tcp:recv(Socket, OnSocket, 60000),
  -    Response = [<<"HTTP/1.1 ">>, status(413), <<"\r\n">>,
  -                <<"Content-Length: 0">>, <<"\r\n\r\n">>],
  +    Response = http_response(413),
       elli_tcp:send(Socket, Response);
   do_check_max_size_x2(_, _, _, _) -> ok.
   
  
positive.code:     % headers contains "Expect:100-continue"
      case proplists:get_value(<<"Expect">>, Headers, undefined) of
          <<"100-continue">> ->
              Response = [<<"HTTP/1.1 ">>, status(100), <<"\r\n">>,
                          <<"Content-Length: 0">>, <<"\r\n\r\n">>],
              elli_tcp:send(Socket, Response);
          _Other ->
              ok
  
negative.code: %% HEADERS
  %%
  
  http_response(Code) ->
      http_response(Code, <<>>).
  
  http_response(Code, Body) ->
      http_response(Code, [{<<"Content-Length">>, size(Body)}], Body).
  
  http_response(Code, Headers, <<>>) ->
      [<<"HTTP/1.1 ">>, status(Code), <<"\r\n">>,
       encode_headers(Headers), <<"\r\n">>];
  http_response(Code, Headers, Body) ->
      [http_response(Code, Headers, <<>>), Body].
  
  assemble_response_headers(Code, Headers) ->
      ResponseHeaders = http_response(Code, Headers, <<>>),
      s(resp_headers, iolist_size(ResponseHeaders)),
      ResponseHeaders.
  
  