anchor.diff:           pool_config_get/2,
            list/0]).
   
  +-export([memcached_port/2,
  +         memcached_port_set/3]).
  +
   %% gen_server callbacks
   -export([init/1, terminate/2, code_change/3,
            handle_call/3, handle_cast/2, handle_info/2]).
  
positive.code:     lists:map(fun({K, _V}) -> K end, pools_config_get()).
  
  pools_config_get() ->
      case ns_config:search(ns_config:get(), pools) of
          false          -> [];
          {value, Pools} -> Pools
      end.
  
negative.code:         {value, PortStr} -> PortStr
      end.
  
  memcached_port_set(NSConfig, Node, PortStr) ->
      ns_port_server:set_port_server_param(NSConfig,
                                           memcached, "-p", PortStr,
                                           Node).
  
  % ------------------------------------------------
  
  search_bucket(_BucketId, []) -> false;
  