feat(fase-13): admin RPCs + server_settings + section_enabled server layer
Migration 025 adds:
- collectives.deleted_at column for soft delete (app-level visibility;
RLS does NOT enforce soft-delete invisibility — admin area surfaces
everything by design).
- server_settings(key text pk, value jsonb) — generic admin-write bag
seeded with an empty 'default_sections' row.
- section_enabled() extended with the server layer as the topmost
coalesce branch. Final precedence: server > collective > user > true.
- Privileged RPCs: grant_/revoke_server_admin (last-admin guard fires
P0003), admin_list_collectives, admin_soft_delete_collective,
admin_restore_collective, admin_hard_delete_collective (30-day or
p_force=true), admin_remove_member, admin_set_default_section
(rejects unknown sections via known_sections() lookup).
- _log_admin_action(): private helper centralising the
audit INSERT, called by every privileged RPC BEFORE the mutation.
Migration 024 RLS policy on server_admins rewritten to delegate the
admin branch to is_server_admin() (SECURITY DEFINER, bypasses RLS) —
the original inline EXISTS hit infinite recursion (caught empirically
with `SET ROLE authenticated`).
22 new pgTAP assertions cover schema shape, RPC signatures, the
SECURITY DEFINER posture of every admin function, the new deleted_at
column, and the server-layer precedence semantics for section_enabled.
10 new Vitest integration tests (SA-01..SA-10) cover:
- admin_list_collectives gated for non-admins (P0001 'forbidden').
- soft / restore / hard delete audit + state transitions.
- hard-delete recency guard (not_soft_deleted, too_recent, force).
- hard-delete cascade is non-destructive to public.users.
- remove_member writes role_was + reason to audit payload.
- set_default_section rejects unknown sections; patches JSONB
without clobbering siblings.
- grant/revoke with last-admin guard (revoking the sole admin
raises P0003 'last_admin'; failed call does NOT write audit).
- section_enabled precedence walked layer by layer in one client.
- RLS: non-admin sees zero rows in admin_actions + server_admins.
packages/types/src/database.ts hand-extended with the new tables and
RPC signatures; collectives Row/Insert/Update get deleted_at.
Co-Authored-By: Claude Opus 4.7 <noreply@anthropic.com>
This commit is contained in:
@@ -30,17 +30,13 @@ CREATE TABLE public.server_admins (
|
||||
|
||||
ALTER TABLE public.server_admins ENABLE ROW LEVEL SECURITY;
|
||||
|
||||
-- A user can always read their own row (so the client can compute
|
||||
-- $isServerAdmin without escalation); other admins can read the full list.
|
||||
-- No INSERT/UPDATE/DELETE policy — only SECURITY DEFINER RPCs touch this.
|
||||
CREATE POLICY "select_self_or_admin" ON public.server_admins
|
||||
FOR SELECT
|
||||
USING (
|
||||
user_id = auth.uid()
|
||||
OR EXISTS (SELECT 1 FROM public.server_admins WHERE user_id = auth.uid())
|
||||
);
|
||||
|
||||
-- ── is_server_admin() ───────────────────────────────────────────────────────
|
||||
-- Declared BEFORE the RLS policy so the policy can call it. The function is
|
||||
-- SECURITY DEFINER → it bypasses RLS on `server_admins`, which is the only way
|
||||
-- to break the otherwise-recursive policy ("you can see rows if you ARE in
|
||||
-- this table" → the inner SELECT triggers the same policy → infinite
|
||||
-- recursion, observed empirically before this rewrite).
|
||||
--
|
||||
-- The default-arg form lets RLS-style call-sites write `is_server_admin()` and
|
||||
-- get `auth.uid()` for free, matching the shape of `is_admin()` / `is_member()`
|
||||
-- from migration 003.
|
||||
@@ -62,6 +58,18 @@ COMMENT ON FUNCTION public.is_server_admin(uuid) IS
|
||||
REVOKE ALL ON FUNCTION public.is_server_admin(uuid) FROM PUBLIC;
|
||||
GRANT EXECUTE ON FUNCTION public.is_server_admin(uuid) TO anon, authenticated;
|
||||
|
||||
-- A user can always read their own row (so the client can compute
|
||||
-- $isServerAdmin without escalation); other admins can read the full list.
|
||||
-- The admin branch uses is_server_admin() — NOT an inline EXISTS — to bypass
|
||||
-- the otherwise-recursive RLS evaluation (see function comment above).
|
||||
-- No INSERT/UPDATE/DELETE policy — only SECURITY DEFINER RPCs touch this.
|
||||
CREATE POLICY "select_self_or_admin" ON public.server_admins
|
||||
FOR SELECT
|
||||
USING (
|
||||
user_id = auth.uid()
|
||||
OR public.is_server_admin()
|
||||
);
|
||||
|
||||
-- ── admin_actions ──────────────────────────────────────────────────────────
|
||||
-- Append-only audit log. Every privileged RPC in migration 025 writes one
|
||||
-- row before mutating state. `actor_id` is RESTRICT so the audit trail
|
||||
|
||||
513
supabase/migrations/025_admin_rpcs.sql
Normal file
513
supabase/migrations/025_admin_rpcs.sql
Normal file
@@ -0,0 +1,513 @@
|
||||
-- Migration 025: server admin RPCs + server_settings + section_enabled() server layer (Fase 13.2)
|
||||
--
|
||||
-- Every privileged RPC follows the same shape:
|
||||
-- 1. SECURITY DEFINER.
|
||||
-- 2. Pull v_actor := auth.uid() (NULL → 'unauthenticated' / errcode 28000).
|
||||
-- 3. `if not public.is_server_admin(v_actor) then raise 'forbidden' using errcode = 'P0001';`
|
||||
-- 4. Validate args (raise '<reason>' using errcode = '22023' for bad input).
|
||||
-- 5. INSERT into public.admin_actions BEFORE the mutation (so a failing
|
||||
-- mutation still leaves a trace). The audit row + the mutation share one
|
||||
-- transaction (the RPC body is implicit).
|
||||
-- 6. Perform the mutation; return a void or the affected rows.
|
||||
--
|
||||
-- The `is_server_admin()` call short-circuits on the (PK-indexed) lookup so the
|
||||
-- guard is sub-millisecond.
|
||||
--
|
||||
-- ── deleted_at on collectives ──────────────────────────────────────────────
|
||||
-- Soft delete. The plan keeps the original SELECT/UPDATE RLS policies untouched
|
||||
-- — non-admin members of a soft-deleted collective WILL still see it in
|
||||
-- queries unless callers add `WHERE deleted_at IS NULL`. We document the
|
||||
-- contract here: the RLS layer does not enforce soft-delete invisibility,
|
||||
-- the app layer does. The /admin area surfaces all rows including deleted ones.
|
||||
-- Hard-delete (cascade) is the operator's escape valve for permanent removal.
|
||||
|
||||
ALTER TABLE public.collectives
|
||||
ADD COLUMN deleted_at timestamptz NULL;
|
||||
|
||||
COMMENT ON COLUMN public.collectives.deleted_at IS
|
||||
'Set by admin_soft_delete_collective; cleared by admin_restore_collective. '
|
||||
'NULL = active. App-level callers MUST filter on this where soft-delete '
|
||||
'invisibility matters — RLS does not enforce it.';
|
||||
|
||||
-- ── server_settings ────────────────────────────────────────────────────────
|
||||
-- Generic key/jsonb-value bag. First use: 'default_sections' jsonb of
|
||||
-- {section: bool} consumed by section_enabled(). Adding new server-level
|
||||
-- settings is a row insert, not a schema change.
|
||||
|
||||
CREATE TABLE public.server_settings (
|
||||
key text PRIMARY KEY,
|
||||
value jsonb NOT NULL DEFAULT '{}'::jsonb,
|
||||
updated_at timestamptz NOT NULL DEFAULT now(),
|
||||
updated_by uuid NULL REFERENCES public.users(id) ON DELETE SET NULL
|
||||
);
|
||||
|
||||
ALTER TABLE public.server_settings ENABLE ROW LEVEL SECURITY;
|
||||
|
||||
-- Everyone can READ server_settings (section_enabled() needs to evaluate it
|
||||
-- from a normal user session). Writes go through admin_set_default_section()
|
||||
-- under SECURITY DEFINER — no INSERT/UPDATE/DELETE policy.
|
||||
CREATE POLICY "select_all" ON public.server_settings
|
||||
FOR SELECT
|
||||
USING (true);
|
||||
|
||||
COMMENT ON TABLE public.server_settings IS
|
||||
'Server-level key/value bag. Read by everyone, written only by admin RPCs.';
|
||||
|
||||
-- Seed an empty default_sections row so section_enabled never sees a missing
|
||||
-- row vs missing key difference (both behave as "no opinion" anyway, but the
|
||||
-- presence of the row keeps PostgREST queries on this single record cheap).
|
||||
INSERT INTO public.server_settings (key, value)
|
||||
VALUES ('default_sections', '{}'::jsonb)
|
||||
ON CONFLICT (key) DO NOTHING;
|
||||
|
||||
-- ── section_enabled() extension ────────────────────────────────────────────
|
||||
-- Prepend a server layer. Precedence becomes:
|
||||
-- server (server_settings.default_sections[p_section])
|
||||
-- > collective (collectives.feature_flags[p_section])
|
||||
-- > user (users.feature_flags[p_section])
|
||||
-- > default true
|
||||
-- This is the one-line diff that migration 023 was designed for; the rest of
|
||||
-- the function body is untouched.
|
||||
|
||||
CREATE OR REPLACE FUNCTION public.section_enabled(
|
||||
p_section text,
|
||||
p_user uuid,
|
||||
p_collective uuid
|
||||
)
|
||||
RETURNS boolean
|
||||
LANGUAGE sql
|
||||
STABLE
|
||||
SECURITY DEFINER
|
||||
SET search_path = public
|
||||
AS $$
|
||||
SELECT COALESCE(
|
||||
(SELECT (value ->> p_section)::boolean
|
||||
FROM public.server_settings
|
||||
WHERE key = 'default_sections'),
|
||||
(SELECT (feature_flags ->> p_section)::boolean
|
||||
FROM public.collectives
|
||||
WHERE id = p_collective),
|
||||
(SELECT (feature_flags ->> p_section)::boolean
|
||||
FROM public.users
|
||||
WHERE id = p_user),
|
||||
true
|
||||
);
|
||||
$$;
|
||||
|
||||
COMMENT ON FUNCTION public.section_enabled(text, uuid, uuid) IS
|
||||
'Effective ON/OFF of a top-level section for (user, collective). '
|
||||
'Precedence: server > collective > user > default true.';
|
||||
|
||||
-- ── Helper: internal audit writer ──────────────────────────────────────────
|
||||
-- Centralises the INSERT INTO admin_actions so RPCs read cleanly. NOT exposed
|
||||
-- to anyone — only the other SECURITY DEFINER functions in this file call it.
|
||||
|
||||
CREATE OR REPLACE FUNCTION public._log_admin_action(
|
||||
p_actor uuid,
|
||||
p_action text,
|
||||
p_target_type text,
|
||||
p_target_id uuid,
|
||||
p_payload jsonb DEFAULT '{}'::jsonb
|
||||
)
|
||||
RETURNS void
|
||||
LANGUAGE sql
|
||||
VOLATILE
|
||||
SECURITY DEFINER
|
||||
SET search_path = public
|
||||
AS $$
|
||||
INSERT INTO public.admin_actions (actor_id, action, target_type, target_id, payload)
|
||||
VALUES (p_actor, p_action, p_target_type, p_target_id, p_payload);
|
||||
$$;
|
||||
|
||||
REVOKE ALL ON FUNCTION public._log_admin_action(uuid, text, text, uuid, jsonb) FROM PUBLIC;
|
||||
-- No GRANT; only invoked by sibling functions in the same migration.
|
||||
|
||||
-- ── grant_server_admin ─────────────────────────────────────────────────────
|
||||
CREATE OR REPLACE FUNCTION public.grant_server_admin(p_user uuid)
|
||||
RETURNS void
|
||||
LANGUAGE plpgsql
|
||||
SECURITY DEFINER
|
||||
SET search_path = public
|
||||
AS $$
|
||||
DECLARE
|
||||
v_actor uuid := auth.uid();
|
||||
BEGIN
|
||||
IF v_actor IS NULL THEN
|
||||
RAISE EXCEPTION 'unauthenticated' USING ERRCODE = '28000';
|
||||
END IF;
|
||||
IF NOT public.is_server_admin(v_actor) THEN
|
||||
RAISE EXCEPTION 'forbidden' USING ERRCODE = 'P0001';
|
||||
END IF;
|
||||
IF p_user IS NULL THEN
|
||||
RAISE EXCEPTION 'user_required' USING ERRCODE = '22023';
|
||||
END IF;
|
||||
IF NOT EXISTS (SELECT 1 FROM public.users WHERE id = p_user) THEN
|
||||
RAISE EXCEPTION 'user_not_found' USING ERRCODE = 'P0002';
|
||||
END IF;
|
||||
|
||||
INSERT INTO public.server_admins (user_id, granted_by)
|
||||
VALUES (p_user, v_actor)
|
||||
ON CONFLICT (user_id) DO NOTHING;
|
||||
|
||||
PERFORM public._log_admin_action(
|
||||
v_actor,
|
||||
'grant_server_admin',
|
||||
'user',
|
||||
p_user,
|
||||
jsonb_build_object()
|
||||
);
|
||||
END;
|
||||
$$;
|
||||
|
||||
REVOKE ALL ON FUNCTION public.grant_server_admin(uuid) FROM PUBLIC;
|
||||
GRANT EXECUTE ON FUNCTION public.grant_server_admin(uuid) TO authenticated;
|
||||
|
||||
-- ── revoke_server_admin ────────────────────────────────────────────────────
|
||||
-- Guard: the last remaining admin cannot be removed (would lock the instance
|
||||
-- out of its own admin area irrecoverably).
|
||||
CREATE OR REPLACE FUNCTION public.revoke_server_admin(p_user uuid)
|
||||
RETURNS void
|
||||
LANGUAGE plpgsql
|
||||
SECURITY DEFINER
|
||||
SET search_path = public
|
||||
AS $$
|
||||
DECLARE
|
||||
v_actor uuid := auth.uid();
|
||||
v_remaining int;
|
||||
BEGIN
|
||||
IF v_actor IS NULL THEN
|
||||
RAISE EXCEPTION 'unauthenticated' USING ERRCODE = '28000';
|
||||
END IF;
|
||||
IF NOT public.is_server_admin(v_actor) THEN
|
||||
RAISE EXCEPTION 'forbidden' USING ERRCODE = 'P0001';
|
||||
END IF;
|
||||
IF p_user IS NULL THEN
|
||||
RAISE EXCEPTION 'user_required' USING ERRCODE = '22023';
|
||||
END IF;
|
||||
|
||||
-- Compute remaining admins AFTER hypothetical removal.
|
||||
SELECT count(*) INTO v_remaining
|
||||
FROM public.server_admins
|
||||
WHERE user_id <> p_user;
|
||||
|
||||
IF v_remaining = 0 THEN
|
||||
RAISE EXCEPTION 'last_admin' USING ERRCODE = 'P0003';
|
||||
END IF;
|
||||
|
||||
DELETE FROM public.server_admins WHERE user_id = p_user;
|
||||
|
||||
PERFORM public._log_admin_action(
|
||||
v_actor,
|
||||
'revoke_server_admin',
|
||||
'user',
|
||||
p_user,
|
||||
jsonb_build_object()
|
||||
);
|
||||
END;
|
||||
$$;
|
||||
|
||||
REVOKE ALL ON FUNCTION public.revoke_server_admin(uuid) FROM PUBLIC;
|
||||
GRANT EXECUTE ON FUNCTION public.revoke_server_admin(uuid) TO authenticated;
|
||||
|
||||
-- ── admin_list_collectives ─────────────────────────────────────────────────
|
||||
CREATE OR REPLACE FUNCTION public.admin_list_collectives(
|
||||
p_search text DEFAULT NULL,
|
||||
p_limit int DEFAULT 50
|
||||
)
|
||||
RETURNS TABLE (
|
||||
id uuid,
|
||||
name text,
|
||||
emoji text,
|
||||
member_count bigint,
|
||||
created_at timestamptz,
|
||||
deleted_at timestamptz
|
||||
)
|
||||
LANGUAGE plpgsql
|
||||
SECURITY DEFINER
|
||||
SET search_path = public
|
||||
AS $$
|
||||
DECLARE
|
||||
v_actor uuid := auth.uid();
|
||||
BEGIN
|
||||
IF v_actor IS NULL THEN
|
||||
RAISE EXCEPTION 'unauthenticated' USING ERRCODE = '28000';
|
||||
END IF;
|
||||
IF NOT public.is_server_admin(v_actor) THEN
|
||||
RAISE EXCEPTION 'forbidden' USING ERRCODE = 'P0001';
|
||||
END IF;
|
||||
|
||||
RETURN QUERY
|
||||
SELECT c.id,
|
||||
c.name,
|
||||
c.emoji,
|
||||
(SELECT count(*) FROM public.collective_members cm WHERE cm.collective_id = c.id) AS member_count,
|
||||
c.created_at,
|
||||
c.deleted_at
|
||||
FROM public.collectives c
|
||||
WHERE p_search IS NULL OR c.name ILIKE '%' || p_search || '%'
|
||||
ORDER BY c.deleted_at NULLS FIRST, c.created_at DESC
|
||||
LIMIT LEAST(GREATEST(p_limit, 1), 500);
|
||||
END;
|
||||
$$;
|
||||
|
||||
REVOKE ALL ON FUNCTION public.admin_list_collectives(text, int) FROM PUBLIC;
|
||||
GRANT EXECUTE ON FUNCTION public.admin_list_collectives(text, int) TO authenticated;
|
||||
|
||||
-- ── admin_soft_delete_collective ───────────────────────────────────────────
|
||||
CREATE OR REPLACE FUNCTION public.admin_soft_delete_collective(
|
||||
p_collective_id uuid,
|
||||
p_reason text
|
||||
)
|
||||
RETURNS void
|
||||
LANGUAGE plpgsql
|
||||
SECURITY DEFINER
|
||||
SET search_path = public
|
||||
AS $$
|
||||
DECLARE
|
||||
v_actor uuid := auth.uid();
|
||||
BEGIN
|
||||
IF v_actor IS NULL THEN
|
||||
RAISE EXCEPTION 'unauthenticated' USING ERRCODE = '28000';
|
||||
END IF;
|
||||
IF NOT public.is_server_admin(v_actor) THEN
|
||||
RAISE EXCEPTION 'forbidden' USING ERRCODE = 'P0001';
|
||||
END IF;
|
||||
IF p_collective_id IS NULL THEN
|
||||
RAISE EXCEPTION 'collective_required' USING ERRCODE = '22023';
|
||||
END IF;
|
||||
IF p_reason IS NULL OR length(btrim(p_reason)) = 0 THEN
|
||||
RAISE EXCEPTION 'reason_required' USING ERRCODE = '22023';
|
||||
END IF;
|
||||
IF NOT EXISTS (SELECT 1 FROM public.collectives WHERE id = p_collective_id) THEN
|
||||
RAISE EXCEPTION 'collective_not_found' USING ERRCODE = 'P0002';
|
||||
END IF;
|
||||
|
||||
UPDATE public.collectives
|
||||
SET deleted_at = now()
|
||||
WHERE id = p_collective_id
|
||||
AND deleted_at IS NULL;
|
||||
|
||||
PERFORM public._log_admin_action(
|
||||
v_actor,
|
||||
'soft_delete_collective',
|
||||
'collective',
|
||||
p_collective_id,
|
||||
jsonb_build_object('reason', p_reason)
|
||||
);
|
||||
END;
|
||||
$$;
|
||||
|
||||
REVOKE ALL ON FUNCTION public.admin_soft_delete_collective(uuid, text) FROM PUBLIC;
|
||||
GRANT EXECUTE ON FUNCTION public.admin_soft_delete_collective(uuid, text) TO authenticated;
|
||||
|
||||
-- ── admin_restore_collective ───────────────────────────────────────────────
|
||||
CREATE OR REPLACE FUNCTION public.admin_restore_collective(p_collective_id uuid)
|
||||
RETURNS void
|
||||
LANGUAGE plpgsql
|
||||
SECURITY DEFINER
|
||||
SET search_path = public
|
||||
AS $$
|
||||
DECLARE
|
||||
v_actor uuid := auth.uid();
|
||||
BEGIN
|
||||
IF v_actor IS NULL THEN
|
||||
RAISE EXCEPTION 'unauthenticated' USING ERRCODE = '28000';
|
||||
END IF;
|
||||
IF NOT public.is_server_admin(v_actor) THEN
|
||||
RAISE EXCEPTION 'forbidden' USING ERRCODE = 'P0001';
|
||||
END IF;
|
||||
IF p_collective_id IS NULL THEN
|
||||
RAISE EXCEPTION 'collective_required' USING ERRCODE = '22023';
|
||||
END IF;
|
||||
IF NOT EXISTS (SELECT 1 FROM public.collectives WHERE id = p_collective_id) THEN
|
||||
RAISE EXCEPTION 'collective_not_found' USING ERRCODE = 'P0002';
|
||||
END IF;
|
||||
|
||||
UPDATE public.collectives
|
||||
SET deleted_at = NULL
|
||||
WHERE id = p_collective_id;
|
||||
|
||||
PERFORM public._log_admin_action(
|
||||
v_actor,
|
||||
'restore_collective',
|
||||
'collective',
|
||||
p_collective_id,
|
||||
jsonb_build_object()
|
||||
);
|
||||
END;
|
||||
$$;
|
||||
|
||||
REVOKE ALL ON FUNCTION public.admin_restore_collective(uuid) FROM PUBLIC;
|
||||
GRANT EXECUTE ON FUNCTION public.admin_restore_collective(uuid) TO authenticated;
|
||||
|
||||
-- ── admin_hard_delete_collective ───────────────────────────────────────────
|
||||
-- Guard: only allowed when deleted_at IS NOT NULL AND >= 30 days old, OR
|
||||
-- p_force = true. This protects against accidental "soft-delete then
|
||||
-- hard-delete by reflex".
|
||||
CREATE OR REPLACE FUNCTION public.admin_hard_delete_collective(
|
||||
p_collective_id uuid,
|
||||
p_force boolean DEFAULT false
|
||||
)
|
||||
RETURNS void
|
||||
LANGUAGE plpgsql
|
||||
SECURITY DEFINER
|
||||
SET search_path = public
|
||||
AS $$
|
||||
DECLARE
|
||||
v_actor uuid := auth.uid();
|
||||
v_row public.collectives%ROWTYPE;
|
||||
BEGIN
|
||||
IF v_actor IS NULL THEN
|
||||
RAISE EXCEPTION 'unauthenticated' USING ERRCODE = '28000';
|
||||
END IF;
|
||||
IF NOT public.is_server_admin(v_actor) THEN
|
||||
RAISE EXCEPTION 'forbidden' USING ERRCODE = 'P0001';
|
||||
END IF;
|
||||
IF p_collective_id IS NULL THEN
|
||||
RAISE EXCEPTION 'collective_required' USING ERRCODE = '22023';
|
||||
END IF;
|
||||
|
||||
SELECT * INTO v_row FROM public.collectives WHERE id = p_collective_id;
|
||||
IF NOT FOUND THEN
|
||||
RAISE EXCEPTION 'collective_not_found' USING ERRCODE = 'P0002';
|
||||
END IF;
|
||||
|
||||
IF NOT p_force THEN
|
||||
IF v_row.deleted_at IS NULL THEN
|
||||
RAISE EXCEPTION 'not_soft_deleted' USING ERRCODE = 'P0001';
|
||||
END IF;
|
||||
IF v_row.deleted_at > now() - INTERVAL '30 days' THEN
|
||||
RAISE EXCEPTION 'too_recent' USING ERRCODE = 'P0001';
|
||||
END IF;
|
||||
END IF;
|
||||
|
||||
-- Audit FIRST so the action row exists even if the cascade somehow trips.
|
||||
PERFORM public._log_admin_action(
|
||||
v_actor,
|
||||
'hard_delete_collective',
|
||||
'collective',
|
||||
p_collective_id,
|
||||
jsonb_build_object(
|
||||
'force', p_force,
|
||||
'name_snapshot', v_row.name,
|
||||
'created_at', v_row.created_at,
|
||||
'deleted_at', v_row.deleted_at
|
||||
)
|
||||
);
|
||||
|
||||
DELETE FROM public.collectives WHERE id = p_collective_id;
|
||||
END;
|
||||
$$;
|
||||
|
||||
REVOKE ALL ON FUNCTION public.admin_hard_delete_collective(uuid, boolean) FROM PUBLIC;
|
||||
GRANT EXECUTE ON FUNCTION public.admin_hard_delete_collective(uuid, boolean) TO authenticated;
|
||||
|
||||
-- ── admin_remove_member ────────────────────────────────────────────────────
|
||||
CREATE OR REPLACE FUNCTION public.admin_remove_member(
|
||||
p_collective_id uuid,
|
||||
p_user uuid,
|
||||
p_reason text
|
||||
)
|
||||
RETURNS void
|
||||
LANGUAGE plpgsql
|
||||
SECURITY DEFINER
|
||||
SET search_path = public
|
||||
AS $$
|
||||
DECLARE
|
||||
v_actor uuid := auth.uid();
|
||||
v_role public.member_role;
|
||||
BEGIN
|
||||
IF v_actor IS NULL THEN
|
||||
RAISE EXCEPTION 'unauthenticated' USING ERRCODE = '28000';
|
||||
END IF;
|
||||
IF NOT public.is_server_admin(v_actor) THEN
|
||||
RAISE EXCEPTION 'forbidden' USING ERRCODE = 'P0001';
|
||||
END IF;
|
||||
IF p_collective_id IS NULL OR p_user IS NULL THEN
|
||||
RAISE EXCEPTION 'args_required' USING ERRCODE = '22023';
|
||||
END IF;
|
||||
IF p_reason IS NULL OR length(btrim(p_reason)) = 0 THEN
|
||||
RAISE EXCEPTION 'reason_required' USING ERRCODE = '22023';
|
||||
END IF;
|
||||
|
||||
SELECT role INTO v_role
|
||||
FROM public.collective_members
|
||||
WHERE collective_id = p_collective_id AND user_id = p_user;
|
||||
|
||||
IF NOT FOUND THEN
|
||||
RAISE EXCEPTION 'membership_not_found' USING ERRCODE = 'P0002';
|
||||
END IF;
|
||||
|
||||
-- Audit before mutation so we record the role the user used to have.
|
||||
PERFORM public._log_admin_action(
|
||||
v_actor,
|
||||
'remove_member',
|
||||
'collective_member',
|
||||
p_collective_id,
|
||||
jsonb_build_object('user_id', p_user, 'role_was', v_role, 'reason', p_reason)
|
||||
);
|
||||
|
||||
DELETE FROM public.collective_members
|
||||
WHERE collective_id = p_collective_id AND user_id = p_user;
|
||||
END;
|
||||
$$;
|
||||
|
||||
REVOKE ALL ON FUNCTION public.admin_remove_member(uuid, uuid, text) FROM PUBLIC;
|
||||
GRANT EXECUTE ON FUNCTION public.admin_remove_member(uuid, uuid, text) TO authenticated;
|
||||
|
||||
-- ── admin_set_default_section ──────────────────────────────────────────────
|
||||
-- Patches public.server_settings(key='default_sections') so the section
|
||||
-- toggle applies as the server-layer override read by section_enabled().
|
||||
CREATE OR REPLACE FUNCTION public.admin_set_default_section(
|
||||
p_section text,
|
||||
p_enabled boolean
|
||||
)
|
||||
RETURNS void
|
||||
LANGUAGE plpgsql
|
||||
SECURITY DEFINER
|
||||
SET search_path = public
|
||||
AS $$
|
||||
DECLARE
|
||||
v_actor uuid := auth.uid();
|
||||
v_current jsonb;
|
||||
v_next jsonb;
|
||||
BEGIN
|
||||
IF v_actor IS NULL THEN
|
||||
RAISE EXCEPTION 'unauthenticated' USING ERRCODE = '28000';
|
||||
END IF;
|
||||
IF NOT public.is_server_admin(v_actor) THEN
|
||||
RAISE EXCEPTION 'forbidden' USING ERRCODE = 'P0001';
|
||||
END IF;
|
||||
IF p_section IS NULL OR p_section = '' THEN
|
||||
RAISE EXCEPTION 'section_required' USING ERRCODE = '22023';
|
||||
END IF;
|
||||
-- Reject unknown sections to prevent typos from silently shaping the
|
||||
-- visibility surface forever. Future sections require a migration that
|
||||
-- updates known_sections() (see migration 023 comment).
|
||||
IF NOT (p_section = ANY (public.known_sections())) THEN
|
||||
RAISE EXCEPTION 'unknown_section: %', p_section USING ERRCODE = '22023';
|
||||
END IF;
|
||||
|
||||
-- Read-modify-write the JSONB row. CONCURRENT writes are not a real
|
||||
-- concern here (admin UI, low frequency); a row-level lock from the
|
||||
-- UPDATE-RETURNING below is sufficient.
|
||||
INSERT INTO public.server_settings (key, value, updated_by, updated_at)
|
||||
VALUES ('default_sections', jsonb_build_object(p_section, p_enabled), v_actor, now())
|
||||
ON CONFLICT (key) DO UPDATE
|
||||
SET value = public.server_settings.value || jsonb_build_object(p_section, p_enabled),
|
||||
updated_by = v_actor,
|
||||
updated_at = now()
|
||||
RETURNING value INTO v_next;
|
||||
|
||||
PERFORM public._log_admin_action(
|
||||
v_actor,
|
||||
'set_default_section',
|
||||
'server_setting',
|
||||
NULL,
|
||||
jsonb_build_object('section', p_section, 'enabled', p_enabled, 'value_after', v_next)
|
||||
);
|
||||
END;
|
||||
$$;
|
||||
|
||||
REVOKE ALL ON FUNCTION public.admin_set_default_section(text, boolean) FROM PUBLIC;
|
||||
GRANT EXECUTE ON FUNCTION public.admin_set_default_section(text, boolean) TO authenticated;
|
||||
215
supabase/tests/017_admin_rpcs.sql
Normal file
215
supabase/tests/017_admin_rpcs.sql
Normal file
@@ -0,0 +1,215 @@
|
||||
-- pgTAP: admin RPCs + server_settings + section_enabled() server layer (Fase 13.2)
|
||||
-- Run with: psql -U postgres -d postgres -f supabase/tests/017_admin_rpcs.sql
|
||||
--
|
||||
-- Verifies schema-level invariants on the new RPCs and the server_settings
|
||||
-- table. Runtime behaviour (denied-for-non-admin, audit writes, last-admin
|
||||
-- guard, hard-delete cascade) lives in the Vitest integration suite — pgTAP
|
||||
-- runs as postgres so the SECURITY DEFINER `is_server_admin` check passes
|
||||
-- vacuously, making these tests structural only.
|
||||
|
||||
CREATE EXTENSION IF NOT EXISTS pgtap;
|
||||
|
||||
BEGIN;
|
||||
SELECT plan(22);
|
||||
|
||||
-- ── server_settings table ──────────────────────────────────────────────────
|
||||
|
||||
SELECT has_table(
|
||||
'public', 'server_settings',
|
||||
'AR-T01: public.server_settings table exists'
|
||||
);
|
||||
|
||||
SELECT col_is_pk(
|
||||
'public', 'server_settings', 'key',
|
||||
'AR-T02: server_settings.key is the primary key'
|
||||
);
|
||||
|
||||
SELECT col_type_is(
|
||||
'public', 'server_settings', 'value', 'jsonb',
|
||||
'AR-T03: server_settings.value is jsonb'
|
||||
);
|
||||
|
||||
SELECT ok(
|
||||
(SELECT relrowsecurity FROM pg_class
|
||||
WHERE relname = 'server_settings' AND relnamespace = 'public'::regnamespace),
|
||||
'AR-T04: RLS enabled on server_settings'
|
||||
);
|
||||
|
||||
-- Read-allowed to anyone (server-layer flags need to be evaluable from a
|
||||
-- non-admin session inside section_enabled). Writes are admin-only via RPC.
|
||||
SELECT results_eq(
|
||||
$$ SELECT cmd::text FROM pg_policies
|
||||
WHERE schemaname = 'public' AND tablename = 'server_settings'
|
||||
ORDER BY cmd $$,
|
||||
$$ VALUES ('SELECT') $$,
|
||||
'AR-T05: server_settings has exactly one policy and it is SELECT-only'
|
||||
);
|
||||
|
||||
-- ── RPC existence + SECURITY DEFINER posture ───────────────────────────────
|
||||
|
||||
SELECT has_function(
|
||||
'public', 'grant_server_admin', ARRAY['uuid'],
|
||||
'AR-T06: grant_server_admin(uuid) exists'
|
||||
);
|
||||
|
||||
SELECT has_function(
|
||||
'public', 'revoke_server_admin', ARRAY['uuid'],
|
||||
'AR-T07: revoke_server_admin(uuid) exists'
|
||||
);
|
||||
|
||||
SELECT has_function(
|
||||
'public', 'admin_list_collectives', ARRAY['text', 'integer'],
|
||||
'AR-T08: admin_list_collectives(text, int) exists'
|
||||
);
|
||||
|
||||
SELECT has_function(
|
||||
'public', 'admin_soft_delete_collective', ARRAY['uuid', 'text'],
|
||||
'AR-T09: admin_soft_delete_collective(uuid, text) exists'
|
||||
);
|
||||
|
||||
SELECT has_function(
|
||||
'public', 'admin_restore_collective', ARRAY['uuid'],
|
||||
'AR-T10: admin_restore_collective(uuid) exists'
|
||||
);
|
||||
|
||||
SELECT has_function(
|
||||
'public', 'admin_hard_delete_collective', ARRAY['uuid', 'boolean'],
|
||||
'AR-T11: admin_hard_delete_collective(uuid, boolean) exists'
|
||||
);
|
||||
|
||||
SELECT has_function(
|
||||
'public', 'admin_remove_member', ARRAY['uuid', 'uuid', 'text'],
|
||||
'AR-T12: admin_remove_member(uuid, uuid, text) exists'
|
||||
);
|
||||
|
||||
SELECT has_function(
|
||||
'public', 'admin_set_default_section', ARRAY['text', 'boolean'],
|
||||
'AR-T13: admin_set_default_section(text, boolean) exists'
|
||||
);
|
||||
|
||||
-- Every admin_* function plus grant/revoke MUST be SECURITY DEFINER so the
|
||||
-- `if not is_server_admin() then raise` guard is the gate, not RLS.
|
||||
SELECT results_eq(
|
||||
$$ SELECT proname::text COLLATE "C" FROM pg_proc
|
||||
WHERE pronamespace = 'public'::regnamespace
|
||||
AND (proname LIKE 'admin\_%' OR proname IN ('grant_server_admin','revoke_server_admin'))
|
||||
AND prosecdef = true
|
||||
ORDER BY proname COLLATE "C" $$,
|
||||
$$ VALUES
|
||||
('admin_hard_delete_collective'::text COLLATE "C"),
|
||||
('admin_list_collectives'::text COLLATE "C"),
|
||||
('admin_remove_member'::text COLLATE "C"),
|
||||
('admin_restore_collective'::text COLLATE "C"),
|
||||
('admin_set_default_section'::text COLLATE "C"),
|
||||
('admin_soft_delete_collective'::text COLLATE "C"),
|
||||
('grant_server_admin'::text COLLATE "C"),
|
||||
('revoke_server_admin'::text COLLATE "C")
|
||||
$$,
|
||||
'AR-T14: every privileged RPC is SECURITY DEFINER (exact list)'
|
||||
);
|
||||
|
||||
-- ── collectives.deleted_at column added by this migration ──────────────────
|
||||
|
||||
SELECT has_column(
|
||||
'public', 'collectives', 'deleted_at',
|
||||
'AR-T15: collectives.deleted_at column exists'
|
||||
);
|
||||
|
||||
SELECT col_type_is(
|
||||
'public', 'collectives', 'deleted_at', 'timestamp with time zone',
|
||||
'AR-T16: collectives.deleted_at is timestamptz'
|
||||
);
|
||||
|
||||
-- ── section_enabled() extended with server layer ───────────────────────────
|
||||
-- Behavioural assertions: with no server flag set, falls through to the
|
||||
-- collective/user/default layers (Fase 12 contract preserved). With a server
|
||||
-- flag of false, returns false regardless of any lower layer.
|
||||
|
||||
-- Ensure a clean slate on every layer.
|
||||
DELETE FROM public.server_settings WHERE key = 'default_sections';
|
||||
UPDATE public.users SET feature_flags = '{}'::jsonb WHERE id = '11111111-1111-1111-1111-111111111111';
|
||||
UPDATE public.collectives SET feature_flags = '{}'::jsonb WHERE id = 'aaaaaaaa-aaaa-aaaa-aaaa-aaaaaaaaaaaa';
|
||||
|
||||
-- AR-T17: server absent + everything else absent → true (default ON preserved).
|
||||
SELECT is(
|
||||
public.section_enabled(
|
||||
'tasks',
|
||||
'11111111-1111-1111-1111-111111111111',
|
||||
'aaaaaaaa-aaaa-aaaa-aaaa-aaaaaaaaaaaa'
|
||||
),
|
||||
true,
|
||||
'AR-T17: with no flags anywhere, section_enabled returns true'
|
||||
);
|
||||
|
||||
-- AR-T18: server OFF beats collective ON beats user ON.
|
||||
UPDATE public.users SET feature_flags = '{"notes": true}'::jsonb WHERE id = '11111111-1111-1111-1111-111111111111';
|
||||
UPDATE public.collectives SET feature_flags = '{"notes": true}'::jsonb WHERE id = 'aaaaaaaa-aaaa-aaaa-aaaa-aaaaaaaaaaaa';
|
||||
INSERT INTO public.server_settings (key, value)
|
||||
VALUES ('default_sections', '{"notes": false}'::jsonb)
|
||||
ON CONFLICT (key) DO UPDATE SET value = EXCLUDED.value;
|
||||
|
||||
SELECT is(
|
||||
public.section_enabled(
|
||||
'notes',
|
||||
'11111111-1111-1111-1111-111111111111',
|
||||
'aaaaaaaa-aaaa-aaaa-aaaa-aaaaaaaaaaaa'
|
||||
),
|
||||
false,
|
||||
'AR-T18: server OFF wins over collective ON and user ON'
|
||||
);
|
||||
|
||||
-- AR-T19: server ON over collective OFF — server is the top layer; if it
|
||||
-- explicitly turns a section ON we want that to win too.
|
||||
UPDATE public.collectives SET feature_flags = '{"notes": false}'::jsonb WHERE id = 'aaaaaaaa-aaaa-aaaa-aaaa-aaaaaaaaaaaa';
|
||||
UPDATE public.server_settings SET value = '{"notes": true}'::jsonb WHERE key = 'default_sections';
|
||||
|
||||
SELECT is(
|
||||
public.section_enabled(
|
||||
'notes',
|
||||
'11111111-1111-1111-1111-111111111111',
|
||||
'aaaaaaaa-aaaa-aaaa-aaaa-aaaaaaaaaaaa'
|
||||
),
|
||||
true,
|
||||
'AR-T19: server ON wins over collective OFF'
|
||||
);
|
||||
|
||||
-- AR-T20: server "no opinion" (key absent inside the JSONB) → fall through
|
||||
-- to collective layer.
|
||||
UPDATE public.server_settings SET value = '{}'::jsonb WHERE key = 'default_sections';
|
||||
UPDATE public.collectives SET feature_flags = '{"notes": false}'::jsonb WHERE id = 'aaaaaaaa-aaaa-aaaa-aaaa-aaaaaaaaaaaa';
|
||||
|
||||
SELECT is(
|
||||
public.section_enabled(
|
||||
'notes',
|
||||
'11111111-1111-1111-1111-111111111111',
|
||||
'aaaaaaaa-aaaa-aaaa-aaaa-aaaaaaaaaaaa'
|
||||
),
|
||||
false,
|
||||
'AR-T20: server with no opinion falls through to collective'
|
||||
);
|
||||
|
||||
-- AR-T21: a row missing entirely in server_settings still behaves like
|
||||
-- "no opinion".
|
||||
DELETE FROM public.server_settings WHERE key = 'default_sections';
|
||||
UPDATE public.collectives SET feature_flags = '{}'::jsonb WHERE id = 'aaaaaaaa-aaaa-aaaa-aaaa-aaaaaaaaaaaa';
|
||||
UPDATE public.users SET feature_flags = '{"tasks": false}'::jsonb WHERE id = '11111111-1111-1111-1111-111111111111';
|
||||
|
||||
SELECT is(
|
||||
public.section_enabled(
|
||||
'tasks',
|
||||
'11111111-1111-1111-1111-111111111111',
|
||||
'aaaaaaaa-aaaa-aaaa-aaaa-aaaaaaaaaaaa'
|
||||
),
|
||||
false,
|
||||
'AR-T21: missing server_settings row equals no-opinion, user layer wins'
|
||||
);
|
||||
|
||||
-- AR-T22: the function is still STABLE (no behavioural side effects, planner
|
||||
-- can cache within a statement).
|
||||
SELECT volatility_is(
|
||||
'public', 'section_enabled', ARRAY['text', 'uuid', 'uuid'], 'stable',
|
||||
'AR-T22: section_enabled() remains STABLE after server-layer extension'
|
||||
);
|
||||
|
||||
SELECT * FROM finish();
|
||||
ROLLBACK;
|
||||
Reference in New Issue
Block a user