Need help in limiting no of process

I am trying to build a small elixir CHAT application, I am trying to have a limiting feature in the app.

In every single moment of time, the app should handle 5 or fewer operations for every individual user. If there is any new operation for the same user still has 5 operations in the pending state - new operation for this user should immediately return request over limit error until the number of requests for this user decreases to less than 5.

Till now what I have created is

  • I have a DynamicSupervisor to handle each user - (Create User)
  • GenServer to handle the operation like sending messages to another user.

I am stuck here in implementing this feature, and I don’t know whether I am following the proper structure for this.

  • I am creating this is a Terminal app without using any storage. Every message and state for the user are maintained in another process using (Genserver)

Hello and welcome,

You do not specify how You add those actions.

You need to keep the state of the pending list.

If You add actions, but the pending list is full, reject with an error.

Please show your user GenServer, it might be the place to hold the pending list.

Tasks.ex

defmodule Tasks do
  def create_user(user) do
    Tasks.DynamicSupervisor.create_user(user)
  end

  def add_tasks(user, task) do
    Tasks.Worker.create_a_task_for_user(user, task)
  end
end

DynamicSupervisor

defmodule Tasks.DynamicSupervisor do
  use DynamicSupervisor

  def start_link() do
    DynamicSupervisor.start_link(__MODULE__, [], name: __MODULE__)
  end

  def create_user(user) do
    case DynamicSupervisor.start_child(Tasks.DynamicSupervisor, %{
           id: user,
           start: {Tasks.Worker, :start_link, [String.to_atom(user)]}
         }) do
      {:ok, _} -> {:ok}
      {:error, {:already_started, _}} -> :user_already_exists
    end
  end

  def init(_args) do
    DynamicSupervisor.init(strategy: :one_for_one)
  end
end

Worker

defmodule Tasks.Worker do
  use GenServer

  @worker __MODULE__

  def create_a_task_for_user(user, _task) do
    get_no_of_running_process_for_a_user(user)
    |> IO.inspect()
  end

  defp get_no_of_running_process_for_a_user(user) do
    {:status, pid, _, _} = :sys.get_status(String.to_atom(user))

    pid
    |> Process.info()
    |> Keyword.fetch!(:message_queue_len)
    |> Kernel.>=(10)
    |> IO.inspect()
  end

  def start_link(user) do
    GenServer.start_link(@worker, user, name: user)
  end

  def init(user) do
    {:ok, user}
  end
end

Here is the code