summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRobert Newson <rnewson@apache.org>2021-02-09 23:14:16 +0000
committerGitHub <noreply@github.com>2021-02-09 23:14:16 +0000
commit5f43148bafaccad350d2fe5670d71c6d7cde32b6 (patch)
tree7c276a460ffae107e7aec37e12e493ee4ed1c7b0
parent0b488defdfd4808fa9843961b588b29e7ed8fc6a (diff)
parenta9f2a5ea4ca6229d4db46c05d9922e5a838dd493 (diff)
downloadcouchdb-5f43148bafaccad350d2fe5670d71c6d7cde32b6.tar.gz
Merge pull request #3365 from apache/active-tasks-process-status-main
Show process status in active_tasks
-rw-r--r--src/couch/src/couch_task_status.erl11
1 files changed, 10 insertions, 1 deletions
diff --git a/src/couch/src/couch_task_status.erl b/src/couch/src/couch_task_status.erl
index 4083c3f81..74247d63d 100644
--- a/src/couch/src/couch_task_status.erl
+++ b/src/couch/src/couch_task_status.erl
@@ -124,7 +124,7 @@ handle_call({add_task, TaskProps}, {From, _}, Server) ->
end;
handle_call(all, _, Server) ->
All = [
- [{pid, ?l2b(pid_to_list(Pid))} | TaskProps]
+ [{pid, ?l2b(pid_to_list(Pid))}, process_status(Pid) | TaskProps]
||
{Pid, TaskProps} <- ets:tab2list(?MODULE)
],
@@ -160,3 +160,12 @@ timestamp() ->
timestamp({Mega, Secs, _}) ->
Mega * 1000000 + Secs.
+
+
+process_status(Pid) ->
+ case process_info(Pid, status) of
+ undefined ->
+ {process_status, exiting};
+ {status, Status} ->
+ {process_status, Status}
+ end.