anchor.diff:                      [{atom(), term()}]) -> ok | {error, term()}.
   delete_bucket(Ip, Port, Bucket, Requester, Options) ->
       Ssl = proplists:get_value(ssl, Options, true),
  -    AuthBypass = proplists:get_value(auth_bypass, Options, false),
  -    Url = bucket_url(Ip, Port, Ssl, Bucket),
  +    AuthCreds = proplists:get_value(auth_creds, Options, undefined),
  +    Path = buckets_path(Bucket),
  +    Url = buckets_url(Ip, Port, Ssl, Path),
       Body = "requester=" ++ binary_to_list(Requester),
  -    case AuthBypass of
  -        true ->
  -            Headers = [];
  -        false ->
  -            Headers = [{"Content-Type", "application/x-www-form-urlencoded"},
  -                       {"Date", httpd_util:rfc1123_date()}]
  +    Headers0 = [{"Content-Type", "application/x-www-form-urlencoded"},
  +                {"Content-Md5", content_md5(Body)},
  +                {"Date", httpd_util:rfc1123_date()}],
  +    case AuthCreds of
  +        {_, _} ->
  +            Headers =
  +                [{"Authorization", auth_header('DELETE',
  +                                               Headers0,
  +                                               Path,
  +                                               AuthCreds)} |
  +                 Headers0];
  +        undefined ->
  +            Headers = Headers0
       end,
       case request(delete, Url, ["204"], Headers, Body) of
           {ok, "204", _RespHeaders, _} ->
  
positive.code: create_bucket(Ip, Port, Bucket, Requester, Options) ->
      Ssl = proplists:get_value(ssl, Options, true),
      AuthCreds = proplists:get_value(auth_creds, Options, undefined),
      Url = buckets_url(Ip, Port, Ssl),
      Body= "name=" ++
          binary_to_list(Bucket) ++
          "&requester=" ++
          binary_to_list(Requester),
      ReqHeaders = [{"Content-Type", "application/x-www-form-urlencoded"},
                    {"Content-Md5", content_md5(Body)},
                    {"Date", httpd_util:rfc1123_date()}],
      case AuthCreds of
          {_, _} ->
              Headers =
                  [{"Authorization", auth_header('POST',
                                                 ReqHeaders,
                                                 "/buckets",
                                                 AuthCreds)} |
                   ReqHeaders];
          undefined ->
              Headers = ReqHeaders
      end,
      case request(post, Url, ["204"], Headers, Body) of
          {ok, "204", _RespHeaders, _RespBody} ->
  
negative.code: %% @doc Assemble the root URL for the given client
  -spec root_url(string(), pos_integer(), boolean()) -> [string()].
  root_url(Ip, Port, true) ->
      ["https://", Ip, ":", integer_to_list(Port)];
  root_url(Ip, Port, false) ->
      ["http://", Ip, ":", integer_to_list(Port)].
  
  %% @doc Assemble the URL for the ping resource
  -spec ping_url(string(), pos_integer(), boolean()) -> string().
  