EagleCast

2026-07-09 10:03:32 -04:00
commit 66d9a033c9
446 changed files with 162542 additions and 0 deletions
@@ -0,0 +1,89 @@
+-- lists
+-- name: get-lists
+SELECT * FROM lists WHERE (CASE WHEN $1 = '' THEN 1=1 ELSE type=$1::list_type END)
+    AND (CASE WHEN $2 = '' THEN 1=1 ELSE status=$2::list_status END)
+    AND CASE
+        -- Optional list IDs based on user permission.
+        WHEN $4 = TRUE THEN TRUE ELSE id = ANY($5::INT[])
+    END
+    ORDER BY CASE WHEN $3 = 'id' THEN id END, CASE WHEN $3 = 'name' THEN name END;
+
+-- name: query-lists
+WITH ls AS (
+    SELECT COUNT(*) OVER () AS total, lists.* FROM lists WHERE
+    CASE
+        WHEN $1 > 0 THEN id = $1
+        WHEN $2 != '' THEN uuid = $2::UUID
+        WHEN $3 != '' THEN (TO_TSVECTOR(name) @@ TO_TSQUERY ($3) OR name ILIKE $3)
+        ELSE TRUE
+    END
+    AND ($4 = '' OR type = $4::list_type)
+    AND ($5 = '' OR optin = $5::list_optin)
+    AND ($6 = '' OR status = $6::list_status)
+    AND (CARDINALITY($7::VARCHAR(100)[]) = 0 OR $7 <@ tags)
+    AND CASE
+        -- Optional list IDs based on user permission.
+        WHEN $8 = TRUE THEN TRUE ELSE id = ANY($9::INT[])
+    END
+    OFFSET $10 LIMIT (CASE WHEN $11 < 1 THEN NULL ELSE $11 END)
+),
+statuses AS (
+    SELECT
+        list_id,
+        COALESCE(JSONB_OBJECT_AGG(status, subscriber_count) FILTER (WHERE status IS NOT NULL), '{}') AS subscriber_statuses,
+        SUM(subscriber_count) AS subscriber_count
+    FROM mat_list_subscriber_stats
+    GROUP BY list_id
+)
+SELECT ls.*, COALESCE(ss.subscriber_statuses, '{}') AS subscriber_statuses, COALESCE(ss.subscriber_count, 0) AS subscriber_count
+    FROM ls LEFT JOIN statuses ss ON (ls.id = ss.list_id) ORDER BY %order%;
+
+-- name: get-lists-by-optin
+-- Can have a list of IDs or a list of UUIDs.
+SELECT * FROM lists WHERE (CASE WHEN $1 != '' THEN optin=$1::list_optin ELSE TRUE END) AND
+    (CASE WHEN $2::INT[] IS NOT NULL THEN id = ANY($2::INT[])
+          WHEN $3::UUID[] IS NOT NULL THEN uuid = ANY($3::UUID[])
+    END) ORDER BY name;
+
+-- name: get-list-types
+-- Retrieves the private|public type of lists by ID or uuid. Used for filtering.
+SELECT id, uuid, type FROM lists WHERE
+    (CASE WHEN $1::INT[] IS NOT NULL THEN id = ANY($1::INT[])
+          WHEN $2::UUID[] IS NOT NULL THEN uuid = ANY($2::UUID[])
+    END);
+
+-- name: create-list
+INSERT INTO lists (uuid, name, type, optin, status, tags, description) VALUES($1, $2, $3, $4, $5, $6, $7) RETURNING id;
+
+-- name: update-list
+WITH l AS (
+    UPDATE lists SET
+        name=(CASE WHEN $2 != '' THEN $2 ELSE name END),
+        type=(CASE WHEN $3 != '' THEN $3::list_type ELSE type END),
+        optin=(CASE WHEN $4 != '' THEN $4::list_optin ELSE optin END),
+        status=(CASE WHEN $5 != '' THEN $5::list_status ELSE status END),
+        tags=$6::VARCHAR(100)[],
+        description=(CASE WHEN $7 != '' THEN $7 ELSE description END),
+        updated_at=NOW()
+    WHERE id = $1
+    RETURNING id, name
+),
+c AS (
+    UPDATE campaign_lists SET list_name = l.name FROM l WHERE campaign_lists.list_id = l.id RETURNING 1
+)
+SELECT COUNT(*) FROM l, c;
+
+-- name: update-lists-date
+UPDATE lists SET updated_at=NOW() WHERE id = ANY($1);
+
+-- name: delete-lists
+DELETE FROM lists
+WHERE CASE
+    WHEN CARDINALITY($1::INT[]) > 0 THEN id = ANY($1)
+    ELSE ($2 = '' OR to_tsvector(name) @@ to_tsquery($2))
+END
+AND CASE
+    -- Optional list IDs based on user permission.
+    WHEN $3 = TRUE THEN TRUE ELSE id = ANY($4::INT[])
+END;
+