hotfix(explorer): Add endpoint to fetch last 24 hours number of proofs verified (#1710)

Co-authored-by: Julian Ventura <[email protected]>
Co-authored-by: avilagaston9 <[email protected]>
Co-authored-by: Mauro Toscano <[email protected]>
Co-authored-by: JuArce <[email protected]>

Author: 5 people

explorer/lib/explorer/models/batches.ex

@@ -164,6 +164,20 @@ defmodule Batches do
     end
   end
 
+  def get_verified_proofs_in_last_24_hours() do
+    minutes_in_a_day = 1440
+    threshold_datetime = DateTime.utc_now() |> DateTime.add(-1 * minutes_in_a_day, :minute) # Last 24 hours
+
+    query = from(b in Batches,
+      where: b.is_verified == true and b.submission_timestamp > ^threshold_datetime,
+      select: sum(b.amount_of_proofs))
+
+    case Explorer.Repo.one(query) do
+      nil -> 0
+      result -> result
+    end
+  end
+
   def insert_or_update(batch_changeset, proofs) do
     merkle_root = batch_changeset.changes.merkle_root
     stored_proofs = Proofs.get_proofs_from_batch(%{merkle_root: merkle_root})

explorer/lib/explorer_web/controllers/data_controller.ex

@@ -0,0 +1,8 @@
+defmodule ExplorerWeb.DataController do
+  use ExplorerWeb, :controller
+
+  def verified_proofs_in_last_24_hours(conn, _params) do
+    verified_proofs_in_last_24_hours = Batches.get_verified_proofs_in_last_24_hours()
+    render(conn, :show, count: verified_proofs_in_last_24_hours)
+  end
+end

explorer/lib/explorer_web/controllers/data_json.ex

@@ -0,0 +1,7 @@
+defmodule ExplorerWeb.DataJSON do
+  def show(%{count: last_verified_proofs_count}) do
+    %{
+      count: last_verified_proofs_count
+    }
+  end
+end

explorer/lib/explorer_web/router.ex

@@ -32,11 +32,16 @@ defmodule ExplorerWeb.Router do
     plug :accepts, ["json"]
   end
 
+  scope "/api", ExplorerWeb do
+    pipe_through :api
+    get "/proofs_verified_last_24h", DataController, :verified_proofs_in_last_24_hours
+  end
+
   scope "/", ExplorerWeb do
     pipe_through :browser
 
     # https://fly.io/phoenix-files/live-session/
-    live_session :default, 
+    live_session :default,
       on_mount: [{ExplorerWeb.Hooks, :add_host}, {ExplorerWeb.Hooks, :add_theme}] do
       live "/", Home.Index
       live "/batches/:merkle_root", Batch.Index