anchor.diff:  
   stringdate_to_datetime1([A, B, $\s |T]) ->
       stringdate_to_datetime2(T, list_to_integer([A,B]));
  -
   stringdate_to_datetime1([A, $\s |T]) ->
       stringdate_to_datetime2(T, list_to_integer([A])).
   
  -
  -
  -stringdate_to_datetime2([M1, M2, M3, $\s , Y1, Y2, Y3, Y4, $\s ,
  +stringdate_to_datetime2([M1, M2, M3, $\s , Y1, Y2, Y3, Y4, $\s,
                            H1, H2, $:, Min1, Min2,$:,
                            S1, S2,$\s ,$G, $M, $T|_], Day) ->
       {{list_to_integer([Y1,Y2,Y3,Y4]),
  
positive.code:     O = get(outh),
      Old = case O#outh.set_cookie of
                undefined -> "";
                X -> X
            end,
      put(outh, O#outh{set_cookie = ["Set-Cookie: " , What, "\r\n"|Old]});
  accumulate_header({"Set-Cookie", What}) ->
      accumulate_header({set_cookie, What});
  
  accumulate_header({content_range, What}) ->
      put(outh, (get(outh))#outh{content_range =
                                     ["Content-Range: " , What, "\r\n"]});
  accumulate_header({"Content-Range", What}) ->
      accumulate_header({content_range, What});
  
  accumulate_header({content_type, What}) ->
      put(outh, (get(outh))#outh{content_type = ["Content-Type: " ,
                                                 What, "\r\n"]});
  accumulate_header({"Content-Type", What}) ->
      accumulate_header({content_type, What});
  
  accumulate_header({content_encoding, What}) ->
      put(outh, (get(outh))#outh{encoding = deflate,
                                 content_encoding =
                                 ["Content-Encoding: " , What, "\r\n"]});
  accumulate_header({"Content-Encoding", What}) ->
      accumulate_header({content_encoding, What});
  
  accumulate_header({content_length, Len}) when is_integer(Len) ->
      H = get(outh),
      put(outh, H#outh{
                  chunked = false,
                  transfer_encoding = undefined,
                  contlen = Len,
                  act_contlen = 0,
                  content_length = make_content_length_header(Len)});
  accumulate_header({"Content-Length", Len}) ->
      case Len of
          I when is_integer(I) ->
  
negative.code: 
  
  
  parse_auth(Orig = "Basic " ++ Auth64) ->
      case decode_base64(Auth64) of
          {error, _Err} ->
              {undefined, undefined, Orig};
          Auth ->
              case string:tokens(Auth, ":") of
                  [User, Pass] -> {User, Pass, Orig};
                  _            -> {undefined, undefined, Orig}
              end
      end;
  parse_auth(Orig = "Negotiate " ++ _Auth64) ->
  