anchor.diff:                 catch _:_ -> 0
                  end || Name <- db_files(DBDir, BucketName)]).
   
  +storage_conf(Node) ->
  +    storage_conf(Node, ns_config:get()).
  +
   % Returns a proplist of lists of proplists.
   %
   % A quotaMb of -1 means no quota.
  
positive.code: %  {hdd, [[{path, /some/nice/disk/path}, {quotaMb, 1234}, {state, ok}],
  %         [{path", /another/good/disk/path}, {quotaMb, 5678}, {state, ok}]]}]
  %
  storage_conf(Node) ->
      {value, PropList} = ns_config:search_node(Node, ns_config:get(), memcached),
      HDDInfo = case proplists:get_value(dbdir, PropList) of
                    undefined -> [];
                    DBDir -> [{path, filename:absname(DBDir)},
  
negative.code: 
  do_cluster_storage_info([]) -> [];
  do_cluster_storage_info(NodeInfos) ->
      Config = ns_config:get(),
      StorageInfos = [extract_node_storage_info(NodeInfo, Node, Config)
                      || {Node, NodeInfo} <- NodeInfos],
      HddTotals = extract_subprop(StorageInfos, hdd, total),
      HddUsed = extract_subprop(StorageInfos, hdd, used),
  