anchor.diff:              Int
       end.
   
  -
  -tcp_flush(_Sock, undefined) ->
  -    ok;
  -tcp_flush(_Sock, 0) ->
  -    ok;
  -tcp_flush(Sock, Sz) when is_list(Sz) ->
  -    tcp_flush(Sock, strip_list_to_integer(Sz));
  -tcp_flush(Sock, Sz) ->
  -    gen_tcp:recv(Sock, Sz, 1000).
  -
  -
  -ssl_flush(_Sock, undefined) ->
  -    ok;
  -ssl_flush(_Sock, 0) ->
  -    ok;
  -ssl_flush(Sock, Sz) when is_list(Sz) ->
  -    ssl_flush(Sock, strip_list_to_integer(Sz));
  -ssl_flush(Sock, Sz) ->
  -    case ssl:recv(Sock, Sz, 1000) of
  -        {ok, Bin} ->
  -            ssl_flush(Sock, Sz - size(Bin));
  -        _ ->
  -            ok
  -    end.
   
   mtime(F) ->
       F#file_info.mtime.
  
positive.code: no_body_method(CliSock, Req, Head) ->
      SC=get(sc),
      ok = yaws:setopts(CliSock, [{packet, raw}, binary], yaws:is_ssl(SC)),
      flush(CliSock, Head#headers.content_length),
      ARG = make_arg(CliSock, Head, Req, undefined),
      handle_request(CliSock, ARG, 0).
  
  
  
negative.code: not_implemented(CliSock, Req, Head) ->
      SC=get(sc),
      ok = yaws:setopts(CliSock, [{packet, raw}, binary], yaws:is_ssl(SC)),
      flush(CliSock, Head#headers.content_length, Head#headers.transfer_encoding),
      deliver_501(CliSock, Req).
  
  
  