diff options
Diffstat (limited to 'src/dreyfus/src/dreyfus_fabric_info.erl')
-rw-r--r-- | src/dreyfus/src/dreyfus_fabric_info.erl | 102 |
1 files changed, 52 insertions, 50 deletions
diff --git a/src/dreyfus/src/dreyfus_fabric_info.erl b/src/dreyfus/src/dreyfus_fabric_info.erl index e217bc0ef..5ca589c1d 100644 --- a/src/dreyfus/src/dreyfus_fabric_info.erl +++ b/src/dreyfus/src/dreyfus_fabric_info.erl @@ -10,7 +10,6 @@ % License for the specific language governing permissions and limitations under % the License. - %% -*- erlang-indent-level: 4;indent-tabs-mode: nil -*- -module(dreyfus_fabric_info). @@ -25,7 +24,6 @@ go(DbName, DDocId, IndexName, InfoLevel) when is_binary(DDocId) -> {ok, DDoc} = fabric:open_doc(DbName, <<"_design/", DDocId/binary>>, []), dreyfus_util:maybe_deny_index(DbName, DDocId, IndexName), go(DbName, DDoc, IndexName, InfoLevel); - go(DbName, DDoc, IndexName, InfoLevel) -> DesignName = dreyfus_util:get_design_docid(DDoc), dreyfus_util:maybe_deny_index(DbName, DesignName, IndexName), @@ -39,70 +37,74 @@ go(DbName, DDoc, IndexName, InfoLevel) -> rexi_monitor:stop(RexiMon) end. -handle_message({rexi_DOWN, _, {_,NodeRef},_}, _Worker, {Counters, Acc}) -> +handle_message({rexi_DOWN, _, {_, NodeRef}, _}, _Worker, {Counters, Acc}) -> case fabric_util:remove_down_workers(Counters, NodeRef) of - {ok, NewCounters} -> - {ok, {NewCounters, Acc}}; - error -> - {error, {nodedown, <<"progress not possible">>}} + {ok, NewCounters} -> + {ok, {NewCounters, Acc}}; + error -> + {error, {nodedown, <<"progress not possible">>}} end; - handle_message({rexi_EXIT, Reason}, Worker, {Counters, Acc}) -> NewCounters = fabric_dict:erase(Worker, Counters), case fabric_ring:is_progress_possible(NewCounters) of - true -> - {ok, {NewCounters, Acc}}; - false -> - {error, Reason} + true -> + {ok, {NewCounters, Acc}}; + false -> + {error, Reason} end; - handle_message({ok, Info}, Worker, {Counters, Acc}) -> case fabric_dict:lookup_element(Worker, Counters) of - undefined -> - % already heard from someone else in this range - {ok, {Counters, Acc}}; - nil -> - C1 = fabric_dict:store(Worker, ok, Counters), - C2 = fabric_view:remove_overlapping_shards(Worker, C1), - case fabric_dict:any(nil, C2) of - true -> - {ok, {C2, [Info|Acc]}}; - false -> - {stop, merge_results(lists:flatten([Info|Acc]))} - end + undefined -> + % already heard from someone else in this range + {ok, {Counters, Acc}}; + nil -> + C1 = fabric_dict:store(Worker, ok, Counters), + C2 = fabric_view:remove_overlapping_shards(Worker, C1), + case fabric_dict:any(nil, C2) of + true -> + {ok, {C2, [Info | Acc]}}; + false -> + {stop, merge_results(lists:flatten([Info | Acc]))} + end end; - handle_message({error, Reason}, Worker, {Counters, Acc}) -> NewCounters = fabric_dict:erase(Worker, Counters), case fabric_ring:is_progress_possible(NewCounters) of - true -> - {ok, {NewCounters, Acc}}; - false -> - {error, Reason} + true -> + {ok, {NewCounters, Acc}}; + false -> + {error, Reason} end; handle_message({'EXIT', _}, Worker, {Counters, Acc}) -> NewCounters = fabric_dict:erase(Worker, Counters), case fabric_ring:is_progress_possible(NewCounters) of - true -> - {ok, {NewCounters, Acc}}; - false -> - {error, {nodedown, <<"progress not possible">>}} + true -> + {ok, {NewCounters, Acc}}; + false -> + {error, {nodedown, <<"progress not possible">>}} end. merge_results(Info) -> - Dict = lists:foldl(fun({K,V},D0) -> orddict:append(K,V,D0) end, - orddict:new(), Info), - orddict:fold(fun - (disk_size, X, Acc) -> - [{disk_size, lists:sum(X)} | Acc]; - (doc_count, X, Acc) -> - [{doc_count, lists:sum(X)} | Acc]; - (doc_del_count, X, Acc) -> - [{doc_del_count, lists:sum(X)} | Acc]; - (committed_seq, X, Acc) -> - [{committed_seq, lists:sum(X)} | Acc]; - (pending_seq, X, Acc) -> - [{pending_seq, lists:sum(X)} | Acc]; - (_, _, Acc) -> - Acc - end, [], Dict). + Dict = lists:foldl( + fun({K, V}, D0) -> orddict:append(K, V, D0) end, + orddict:new(), + Info + ), + orddict:fold( + fun + (disk_size, X, Acc) -> + [{disk_size, lists:sum(X)} | Acc]; + (doc_count, X, Acc) -> + [{doc_count, lists:sum(X)} | Acc]; + (doc_del_count, X, Acc) -> + [{doc_del_count, lists:sum(X)} | Acc]; + (committed_seq, X, Acc) -> + [{committed_seq, lists:sum(X)} | Acc]; + (pending_seq, X, Acc) -> + [{pending_seq, lists:sum(X)} | Acc]; + (_, _, Acc) -> + Acc + end, + [], + Dict + ). |