anchor.diff:  handle_bucket_info(PoolId, Id, Req, Pool, _Bucket) ->
       reply_json(Req, build_bucket_info(PoolId, Id, Pool)).
   
  -handle_bucket_info(PoolId, Id, Req) ->
  -    Pool = find_pool_by_id(PoolId),
  -    Bucket = find_bucket_by_id(Pool, Id),
  -    handle_bucket_info(PoolId, Id, Req, Pool, Bucket).
  -
   build_bucket_info(PoolId, Id, Pool) ->
       build_bucket_info(PoolId, Id, Pool, normal).
   
  
positive.code: build_port_settings(PoolId) ->
      PoolConfig = find_pool_by_id(PoolId),
      [{proxyPort, proplists:get_value(port, PoolConfig)},
       {directPort, list_to_integer(mc_pool:memcached_port(ns_config:get(),
                                                           node()))}].
  
  validate_port_settings(ProxyPort, DirectPort) ->
      CS = [is_valid_port_number(ProxyPort) orelse <<"Proxy port must be a positive integer less than 65536">>,
  
negative.code:     % Bucket name cannot have a leading underscore character.
      reply_json(Req, [list_to_binary("Bucket name cannot start with an underscore.")], 400);
  
  handle_bucket_create(_PoolId, _BucketId, Req) ->
      case ns_node_disco:nodes_wanted() =:= ns_node_disco:nodes_actual_proper() of
          true ->
              Req:respond({400, add_header(), "Sorry, can't create buckets yet."});
          false ->
              reply_json(Req, [list_to_binary("One or more server nodes appear to be down. " ++
                                              "Please first restore or remove those servers nodes " ++
                                              "so that the entire cluster is healthy.")], 400)
      end.
  
  handle_bucket_flush(PoolId, Id, Req) ->
      ns_log:log(?MODULE, 0005, "Flushing pool ~p bucket ~p from node ~p",
                 [PoolId, Id, erlang:node()]),
      Req:respond({400, add_header(), "Flushing is not currently implemented."}).
  
  vbucket_map(_PoolId, _BucketId) ->
      % TODO: Need a real vbucket server map.
  