104 lines
3.1 KiB
Elixir
104 lines
3.1 KiB
Elixir
defmodule ServerWeb.VmSearchLive do
|
|
use ServerWeb, :live_view
|
|
|
|
alias Server.{Hosts, Metrics}
|
|
|
|
@impl true
|
|
def mount(_params, _session, socket) do
|
|
if connected?(socket), do: Phoenix.PubSub.subscribe(Server.PubSub, "metrics")
|
|
{:ok, socket |> assign(:q, "") |> assign(:vms, load_vms())}
|
|
end
|
|
|
|
@impl true
|
|
def handle_info({:metric_inserted, _, _}, socket) do
|
|
{:noreply, assign(socket, :vms, load_vms())}
|
|
end
|
|
|
|
@impl true
|
|
def handle_event("search", %{"q" => q}, socket) do
|
|
{:noreply, assign(socket, :q, q)}
|
|
end
|
|
|
|
defp load_vms do
|
|
for host <- Hosts.list_all(),
|
|
runtime_sample = Metrics.latest_sample(host.id, "fast"),
|
|
vm <- get_in(runtime_sample && runtime_sample.payload, ["vms_runtime", "vms"]) || [],
|
|
into: [] do
|
|
detail_sample = Metrics.latest_sample(host.id, "medium")
|
|
detail_vms = get_in(detail_sample && detail_sample.payload, ["vms_detail", "vms"]) || []
|
|
detail_vm = Enum.find(detail_vms, &(&1["vmid"] == vm["vmid"])) || %{}
|
|
ips = detail_vm["ips"] || []
|
|
|
|
%{
|
|
vmid: vm["vmid"],
|
|
name: vm["name"],
|
|
type: vm["type"],
|
|
status: vm["status"],
|
|
host_name: host.name,
|
|
ips: ips
|
|
}
|
|
end
|
|
end
|
|
|
|
defp filter(vms, ""), do: vms
|
|
|
|
defp filter(vms, q) do
|
|
q = String.downcase(q)
|
|
|
|
Enum.filter(vms, fn vm ->
|
|
String.contains?(String.downcase(vm.name || ""), q) or
|
|
Enum.any?(vm.ips, &String.contains?(&1, q))
|
|
end)
|
|
end
|
|
|
|
@impl true
|
|
def render(assigns) do
|
|
~H"""
|
|
<div class="p-6 max-w-6xl mx-auto space-y-4">
|
|
<.link navigate={~p"/"} class="text-sm text-zinc-500 hover:text-zinc-900">← Back</.link>
|
|
<h1 class="text-2xl font-bold">VM Search</h1>
|
|
|
|
<form phx-change="search">
|
|
<input
|
|
name="q"
|
|
value={@q}
|
|
placeholder="Search by name or IP…"
|
|
autofocus
|
|
class="w-full rounded-md border-zinc-300 focus:border-zinc-400 focus:ring-0"
|
|
/>
|
|
</form>
|
|
|
|
<table class="w-full text-sm bg-white border rounded-lg">
|
|
<thead>
|
|
<tr class="text-left text-zinc-500 border-b">
|
|
<th class="py-2 px-3">Name</th>
|
|
<th class="py-2 px-3">Host</th>
|
|
<th class="py-2 px-3">Type</th>
|
|
<th class="py-2 px-3">Status</th>
|
|
<th class="py-2 px-3">IPs</th>
|
|
</tr>
|
|
</thead>
|
|
<tbody>
|
|
<tr :for={vm <- filter(@vms, @q)} class="border-b last:border-b-0">
|
|
<td class="py-2 px-3 font-mono">{vm.name}</td>
|
|
<td class="py-2 px-3">
|
|
<.link
|
|
navigate={~p"/hosts/#{vm.host_name}"}
|
|
class="text-zinc-700 hover:text-zinc-900 underline"
|
|
>
|
|
{vm.host_name}
|
|
</.link>
|
|
</td>
|
|
<td class="py-2 px-3">{vm.type}</td>
|
|
<td class="py-2 px-3">{vm.status}</td>
|
|
<td class="py-2 px-3 font-mono text-xs">{Enum.join(vm.ips, ", ")}</td>
|
|
</tr>
|
|
<tr :if={filter(@vms, @q) == []}>
|
|
<td colspan="5" class="py-4 px-3 text-center text-zinc-500">No matches.</td>
|
|
</tr>
|
|
</tbody>
|
|
</table>
|
|
</div>
|
|
"""
|
|
end
|
|
end
|