Giuliano Silvestro
53b664558d
ProjectsWorker mirrors DO Projects to cloud_projects table in a two-pass sweep: upsert projects, then walk each project's resource membership (list_project_resources) and update cloud_resources.cloud_project_id + tenant_id. DO URN kinds get normalized via normalize_kind/1 (domain → dns_zone, space → spaces_bucket) so attribution matches local naming. DomainsWorker syncs DNS zones (DO Domains). Same upsert chokepoint, same three-strike stale handling. Zones are global to the account; attribution happens via ProjectsWorker if a domain is in a DO project, else stays NULL pending operator classification. Oban.Plugins.Cron added with 15-minute schedules for ProjectsWorker, DropletsWorker, DomainsWorker — workers run automatically once a token is configured. Phase 0/1 cadence; phase 2 moves droplets to cloud_sync_fast (1-min) for real-time status visibility. DigitalOcean.Client gains list_domains / list_volumes / list_floating_ips. Volumes and floating IPs not yet wired to workers; trivial follow-on. Live smoke test: 5 droplets + 7 DNS zones discovered, all attributed to their existing DO projects via membership lookup (skyai-internal becomes the fallback only for genuinely orphan resources). Co-Authored-By: Claude Opus 4.7 (1M context) <noreply@anthropic.com>
110 lines
3.3 KiB
Elixir
110 lines
3.3 KiB
Elixir
defmodule ArcadiaCloud.DigitalOcean.Client do
|
|
@moduledoc """
|
|
Thin Req wrapper over the DigitalOcean v2 API.
|
|
|
|
Token resolution: per-purpose, looked up via `ArcadiaCloud.DigitalOcean.Tokens`.
|
|
Phase 0/1: env var `DO_API_TOKEN`. Phase 2: from the secrets vault.
|
|
|
|
Paginated list endpoints stream all pages by default.
|
|
"""
|
|
|
|
alias ArcadiaCloud.DigitalOcean.Tokens
|
|
|
|
@base "https://api.digitalocean.com/v2"
|
|
@page_size 100
|
|
|
|
# ---- public ---------------------------------------------------------------
|
|
|
|
def list_droplets(opts \\ []), do: list_paginated("/droplets", "droplets", opts)
|
|
def list_projects(opts \\ []), do: list_paginated("/projects", "projects", opts)
|
|
def list_domains(opts \\ []), do: list_paginated("/domains", "domains", opts)
|
|
def list_volumes(opts \\ []), do: list_paginated("/volumes", "volumes", opts)
|
|
def list_floating_ips(opts \\ []), do: list_paginated("/floating_ips", "floating_ips", opts)
|
|
|
|
def create_project(name, purpose, description \\ "", opts \\ []) do
|
|
body = %{
|
|
name: name,
|
|
purpose: purpose,
|
|
description: description,
|
|
environment: "Development"
|
|
}
|
|
|
|
request(:post, "/projects", body: body, purpose: opts[:purpose] || "provisioning")
|
|
|> case do
|
|
{:ok, %{"project" => project}} -> {:ok, project}
|
|
other -> other
|
|
end
|
|
end
|
|
|
|
def list_project_resources(project_id, opts \\ []) do
|
|
list_paginated("/projects/#{project_id}/resources", "resources", opts)
|
|
end
|
|
|
|
def assign_to_project(project_id, urns, opts \\ []) when is_list(urns) do
|
|
request(:post, "/projects/#{project_id}/resources",
|
|
body: %{resources: urns},
|
|
purpose: opts[:purpose] || "provisioning"
|
|
)
|
|
end
|
|
|
|
# ---- core -----------------------------------------------------------------
|
|
|
|
defp list_paginated(path, root_key, opts) do
|
|
purpose = opts[:purpose] || "sync_full"
|
|
do_paginate(path, root_key, purpose, [], 1)
|
|
end
|
|
|
|
defp do_paginate(path, root_key, purpose, acc, page) do
|
|
params = [page: page, per_page: @page_size]
|
|
|
|
case request(:get, path, params: params, purpose: purpose) do
|
|
{:ok, %{} = body} ->
|
|
items = Map.get(body, root_key, [])
|
|
new_acc = acc ++ items
|
|
|
|
if has_next?(body) do
|
|
do_paginate(path, root_key, purpose, new_acc, page + 1)
|
|
else
|
|
{:ok, new_acc}
|
|
end
|
|
|
|
err ->
|
|
err
|
|
end
|
|
end
|
|
|
|
defp has_next?(%{"links" => %{"pages" => %{"next" => _}}}), do: true
|
|
defp has_next?(_), do: false
|
|
|
|
defp request(method, path, opts) do
|
|
purpose = Keyword.fetch!(opts, :purpose)
|
|
|
|
with {:ok, token} <- Tokens.fetch(purpose) do
|
|
req_opts =
|
|
[
|
|
method: method,
|
|
url: @base <> path,
|
|
headers: [{"authorization", "Bearer " <> token}],
|
|
retry: :transient,
|
|
max_retries: 3
|
|
]
|
|
|> maybe_put(:params, opts[:params])
|
|
|> maybe_put(:json, opts[:body])
|
|
|
|
case Req.request(req_opts) do
|
|
{:ok, %Req.Response{status: status, body: body}} when status in 200..299 ->
|
|
{:ok, body}
|
|
|
|
{:ok, %Req.Response{status: status, body: body}} ->
|
|
{:error, {:http, status, body}}
|
|
|
|
{:error, exception} ->
|
|
{:error, {:transport, exception}}
|
|
end
|
|
end
|
|
end
|
|
|
|
defp maybe_put(opts, _key, nil), do: opts
|
|
defp maybe_put(opts, key, value), do: Keyword.put(opts, key, value)
|
|
end
|