listmonk/queries/lists.sql
Kailash Nadh 583f92a6fc Add bulk deletion (by id or query) to lists and campaigns.
- Like subscribers, select one-or more or 'all' items and delete them
  on the lists and campaigns UIs.
- New `DELETE /api/lists` and `DELETE /api/campaigns` endpoints that
  take one or more `id` params or a single `query` param.
2025-11-28 16:37:20 +05:30

89 lines
3.2 KiB
SQL

-- 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)
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;