@contember/engine-system-api 1.4.0-rc.8 → 2.0.0-alpha.8

package/dist/development/src/migrations/2021-05-07-155800-event-log-rework.cjs

@@ -0,0 +1,287 @@
+"use strict";
+require("../model/authorization/AuthorizationActions.cjs");
+require("@contember/authorization");
+require("@contember/schema");
+require("@contember/database");
+require("@contember/schema-migrations");
+const modelHelpers = require("../model/helpers/modelHelpers.cjs");
+require("../schema/dev.graphql.cjs");
+require("../schema/system.graphql.cjs");
+require("@contember/schema-utils");
+require("@contember/logger");
+require("../model/migrations/SchemaVersionBuilder.cjs");
+const createTrxEvent = (builder, tableName) => {
+  builder.createTrigger(tableName, "log_event_trx", {
+    when: "AFTER",
+    operation: ["INSERT", "UPDATE", "DELETE"],
+    level: "ROW",
+    deferrable: true,
+    deferred: true,
+    function: {
+      schema: "system",
+      name: "trigger_event_commit"
+    }
+  });
+};
+async function _20210507155800eventlogrework(builder, args) {
+  const schema = await args.schemaResolver(args.connection);
+  const junctionTables = modelHelpers.getJunctionTables(schema.model);
+  const schemas = args.project.stages.map((it) => `stage_${it.slug}`);
+  builder.sql(`LOCK TABLE event`);
+  builder.sql(`
+		ALTER TABLE schema_migration
+		ADD PRIMARY KEY (id)
+	`);
+  builder.sql(`
+		CREATE DOMAIN event_data_type AS TEXT
+		CONSTRAINT event_data_type_check CHECK (VALUE = ANY (ARRAY ['create', 'update', 'delete']));
+	`);
+  builder.sql(`
+		CREATE TABLE event_data (
+			id UUID NOT NULL CONSTRAINT event_data_pkey PRIMARY KEY,
+		type event_data_type NOT NULL,
+		table_name TEXT NOT NULL,
+		row_ids JSONB NOT NULL,
+		values JSONB DEFAULT NULL,
+		created_at TIMESTAMP WITH TIME ZONE DEFAULT CLOCK_TIMESTAMP() NOT NULL,
+		schema_id INTEGER NOT NULL REFERENCES schema_migration(id),
+		identity_id UUID NOT NULL,
+		transaction_id UUID DEFAULT COALESCE(
+			(NULLIF(CURRENT_SETTING('system.transaction_id'::TEXT, TRUE), ''::TEXT))::UUID,
+			(SET_CONFIG('system.transaction_id'::TEXT, ("uuid_generate_v4"())::TEXT, TRUE))::UUID) NOT NULL
+		)
+	`);
+  builder.sql(`
+		CREATE INDEX system_event_row_id
+		ON event_data(row_ids)
+	`);
+  builder.sql(`
+		CREATE INDEX system_event2_table_name
+		ON event_data(table_name)
+	`);
+  builder.sql(`
+		CREATE INDEX system_event2_type
+		ON event_data(type)
+	`);
+  builder.sql(`
+		CREATE INDEX system_event2_transaction
+		ON event_data(transaction_id)
+	`);
+  builder.sql(`
+		CREATE TABLE stage_transaction (
+			transaction_id UUID NOT NULL,
+			stage_id UUID NOT NULL REFERENCES stage(id) ON DELETE CASCADE,
+			applied_at TIMESTAMPTZ NOT NULL,
+			PRIMARY KEY (transaction_id, stage_id)
+		)
+	`);
+  builder.sql(`
+		WITH RECURSIVE
+		events AS (
+			SELECT
+				e.*,
+				(SELECT MAX(id) FROM schema_migration) AS schema_id,
+				1 AS index,
+				stage.id AS stage_id
+			FROM stage
+			JOIN event e ON stage.event_id = e.id
+ 			UNION ALL
+ 			SELECT
+ 				event.*,
+ 				COALESCE(
+ 					CASE WHEN event.type = 'run_migration' THEN
+						(SELECT id FROM schema_migration WHERE version = event.data ->> 'version')
+					END,
+					events.schema_id
+				),
+ 				index + 1,
+ 				stage_id
+ 			FROM event
+ 				JOIN events
+ 			ON events.previous_id = event.id
+ 		),
+ 		shifted_events AS (
+ 			SELECT
+ 				*,
+ 				(
+ 					created_at
+ 					+ (ROW_NUMBER() OVER (PARTITION BY transaction_id ORDER BY index DESC ) - 1 ||' us')::INTERVAL
+ 				) AS shifted_created_at
+ 			FROM events
+ 		)
+ 		INSERT
+ 		INTO event_data (id, type, table_name, row_ids, values, created_at, schema_id, identity_id, transaction_id)
+ 		SELECT
+ 			id,
+ 			type,
+ 			data ->> 'tableName',
+ 			data -> 'rowId',
+ 			data -> 'values',
+ 			shifted_created_at,
+ 			schema_id,
+ 			identity_id,
+ 			transaction_id
+ 		FROM shifted_events
+ 		WHERE type NOT IN ('init', 'run_migration')
+ 		ON CONFLICT DO NOTHING
+ 	`);
+  builder.sql(`
+		WITH RECURSIVE
+ 		events AS (
+ 			SELECT
+ 				e.*,
+ 				1 AS index,
+ 				stage.id AS stage_id
+ 			FROM stage
+ 			JOIN event e ON stage.event_id = e.id
+ 			UNION ALL
+ 			SELECT
+ 				event.*,
+ 				index + 1,
+ 				stage_id
+ 			FROM event
+ 			JOIN events ON events.previous_id = event.id
+ 		),
+ 		transaction_times AS (
+ 			SELECT
+ 				DISTINCT ON (transaction_id, stage_id)
+ 				transaction_id,
+ 				created_at,
+ 				index,
+ 				stage_id
+ 			FROM events
+ 			ORDER BY transaction_id
+ 		)
+ 		INSERT
+ 		INTO stage_transaction (transaction_id, stage_id, applied_at)
+ 		SELECT transaction_id, stage_id, created_at
+ 		FROM transaction_times
+	`);
+  builder.sql(`
+		CREATE OR REPLACE FUNCTION "trigger_event"() RETURNS TRIGGER AS
+		$$
+		DECLARE new_event_type TEXT;
+		DECLARE table_name TEXT;
+		DECLARE values JSONB;
+		DECLARE update_diff JSONB;
+		DECLARE primary_values JSONB;
+		DECLARE old_row JSONB;
+		DECLARE new_row JSONB;
+		BEGIN
+			old_row := CASE WHEN TG_OP = 'DELETE' OR TG_OP = 'UPDATE' THEN TO_JSONB(old) ELSE NULL END;
+			new_row := CASE WHEN TG_OP = 'INSERT' OR TG_OP = 'UPDATE' THEN TO_JSONB(new) ELSE NULL END;
+			primary_values := (
+				SELECT JSONB_AGG(value ORDER BY array_position(TG_ARGV, key))
+				FROM JSONB_EACH(COALESCE(old_row, new_row))
+				WHERE key = ANY (TG_ARGV)
+			);
+			table_name := tg_table_name;
+			CASE TG_OP
+				WHEN 'INSERT' THEN BEGIN
+					new_event_type := 'create';
+					values := COALESCE(
+						(
+							SELECT JSONB_OBJECT_AGG(key, value)
+ 						    FROM JSONB_EACH(new_row)
+ 						    WHERE NOT (key = ANY (TG_ARGV))
+ 						),
+ 						JSONB_BUILD_OBJECT()
+ 					);
+				END;
+				WHEN 'UPDATE' THEN BEGIN
+					update_diff := (
+						SELECT JSONB_OBJECT_AGG(COALESCE(n.key, o.key), n.value)
+						FROM JSONB_EACH(old_row) o
+ 						FULL OUTER JOIN JSONB_EACH(new_row) n ON n.key = o.key
+						WHERE n.value IS DISTINCT FROM o.value
+					);
+					IF (SELECT COUNT(*) FROM JSONB_OBJECT_KEYS(update_diff)) = 0 THEN
+						RETURN NULL;
+					END IF;
+					new_event_type := 'update';
+					values := update_diff;
+				END;
+				WHEN 'DELETE' THEN BEGIN
+					new_event_type := 'delete';
+				END;
+				ELSE RAISE
+					EXCEPTION 'Unknown TG_OP value %', TG_OP;
+			END CASE;
+
+			CASE WHEN NULLIF(CURRENT_SETTING('system.schema_id', true), '') IS NULL THEN
+				PERFORM SET_CONFIG('system.schema_id', (select MAX("id")::TEXT from schema_migration), TRUE);
+			ELSE
+				-- do nothing
+			END CASE;
+
+			INSERT INTO "event_data" ("id", "type", "table_name", "row_ids", "values", "created_at", schema_id, identity_id)
+			VALUES (
+				"uuid_generate_v4"(),
+				new_event_type,
+				table_name,
+				primary_values,
+				values,
+				CLOCK_TIMESTAMP(),
+				CURRENT_SETTING('system.schema_id')::INT,
+				COALESCE(
+					CURRENT_SETTING('tenant.identity_id'::TEXT, TRUE)::UUID,
+ 					'00000000-0000-0000-0000-000000000000'::UUID)
+ 				);
+			RETURN NULL;
+		END;
+		$$ LANGUAGE plpgsql
+	`);
+  builder.sql(`
+		CREATE OR REPLACE FUNCTION trigger_event_commit() RETURNS TRIGGER AS
+		$$
+		BEGIN
+			PERFORM PG_ADVISORY_XACT_LOCK(5218230332970456493); -- well-known random number
+
+			CASE WHEN
+				NULLIF(CURRENT_SETTING('system.transaction_id', true), '') IS NOT NULL
+				AND NULLIF(CURRENT_SETTING('system.transaction_inserted', true), '') IS NULL
+				THEN
+				INSERT INTO stage_transaction(transaction_id, stage_id, applied_at)
+				VALUES (
+					CURRENT_SETTING('system.transaction_id')::UUID,
+					(
+						SELECT id
+ 						FROM "stage"
+ 						WHERE "slug" = RIGHT(TG_TABLE_SCHEMA, - LENGTH('stage_'))
+ 				    ),
+					CLOCK_TIMESTAMP()
+				)
+				ON CONFLICT DO NOTHING;
+
+				PERFORM SET_CONFIG('system.transaction_inserted', '1', true);
+			ELSE
+				-- do nothing
+			END CASE;
+
+			RETURN NULL;
+		END;
+		$$ LANGUAGE plpgsql
+	`);
+  for (const table of junctionTables) {
+    for (const schema2 of schemas) {
+      builder.dropTrigger({ name: table.tableName, schema: schema2 }, "log_event_statement");
+      createTrxEvent(builder, { name: table.tableName, schema: schema2 });
+    }
+  }
+  for (const entity of Object.values(schema.model.entities)) {
+    for (const schema2 of schemas) {
+      builder.dropTrigger({ name: entity.tableName, schema: schema2 }, "log_event_statement");
+      createTrxEvent(builder, { name: entity.tableName, schema: schema2 });
+    }
+  }
+  builder.sql(`
+		ALTER TABLE stage
+		ALTER event_id DROP NOT NULL
+	`);
+  builder.sql(`
+		ALTER TABLE event
+		RENAME TO event_bak
+	`);
+}
+module.exports = _20210507155800eventlogrework;
+//# sourceMappingURL=2021-05-07-155800-event-log-rework.cjs.map

package/dist/development/src/migrations/2021-05-07-155800-event-log-rework.cjs.map

@@ -0,0 +1 @@
+{"version":3,"file":"2021-05-07-155800-event-log-rework.cjs","sources":["../../../../../packages/engine-system-api/src/migrations/2021-05-07-155800-event-log-rework.ts"],"sourcesContent":["import { MigrationBuilder, Name } from '@contember/database-migrations'\nimport { SystemMigrationArgs } from './types'\nimport { getJunctionTables } from '../model'\nimport { MigrationArgs } from '@contember/database-migrations'\n\nconst createTrxEvent = (builder: MigrationBuilder, tableName: Name) => {\n\tbuilder.createTrigger(tableName, 'log_event_trx', {\n\t\twhen: 'AFTER',\n\t\toperation: ['INSERT', 'UPDATE', 'DELETE'],\n\t\tlevel: 'ROW',\n\t\tdeferrable: true,\n\t\tdeferred: true,\n\t\tfunction: {\n\t\t\tschema: 'system',\n\t\t\tname: 'trigger_event_commit',\n\t\t},\n\t})\n}\n\nexport default async function (builder: MigrationBuilder, args: MigrationArgs<SystemMigrationArgs>) {\n\tconst schema = await args.schemaResolver(args.connection)\n\tconst junctionTables = getJunctionTables(schema.model)\n\tconst schemas = args.project.stages.map(it => `stage_${it.slug}`)\n\tbuilder.sql(`LOCK TABLE event`)\n\tbuilder.sql(`\n\t\tALTER TABLE schema_migration\n\t\tADD PRIMARY KEY (id)\n\t`)\n\tbuilder.sql(`\n\t\tCREATE DOMAIN event_data_type AS TEXT\n\t\tCONSTRAINT event_data_type_check CHECK (VALUE = ANY (ARRAY ['create', 'update', 'delete']));\n\t`)\n\tbuilder.sql(`\n\t\tCREATE TABLE event_data (\n\t\t\tid UUID NOT NULL CONSTRAINT event_data_pkey PRIMARY KEY,\n\t\ttype event_data_type NOT NULL,\n\t\ttable_name TEXT NOT NULL,\n\t\trow_ids JSONB NOT NULL,\n\t\tvalues JSONB DEFAULT NULL,\n\t\tcreated_at TIMESTAMP WITH TIME ZONE DEFAULT CLOCK_TIMESTAMP() NOT NULL,\n\t\tschema_id INTEGER NOT NULL REFERENCES schema_migration(id),\n\t\tidentity_id UUID NOT NULL,\n\t\ttransaction_id UUID DEFAULT COALESCE(\n\t\t\t(NULLIF(CURRENT_SETTING('system.transaction_id'::TEXT, TRUE), ''::TEXT))::UUID,\n\t\t\t(SET_CONFIG('system.transaction_id'::TEXT, (\"uuid_generate_v4\"())::TEXT, TRUE))::UUID) NOT NULL\n\t\t)\n\t`)\n\tbuilder.sql(`\n\t\tCREATE INDEX system_event_row_id\n\t\tON event_data(row_ids)\n\t`)\n\tbuilder.sql(`\n\t\tCREATE INDEX system_event2_table_name\n\t\tON event_data(table_name)\n\t`)\n\tbuilder.sql(`\n\t\tCREATE INDEX system_event2_type\n\t\tON event_data(type)\n\t`)\n\tbuilder.sql(`\n\t\tCREATE INDEX system_event2_transaction\n\t\tON event_data(transaction_id)\n\t`)\n\tbuilder.sql(`\n\t\tCREATE TABLE stage_transaction (\n\t\t\ttransaction_id UUID NOT NULL,\n\t\t\tstage_id UUID NOT NULL REFERENCES stage(id) ON DELETE CASCADE,\n\t\t\tapplied_at TIMESTAMPTZ NOT NULL,\n\t\t\tPRIMARY KEY (transaction_id, stage_id)\n\t\t)\n\t`)\n\tbuilder.sql(`\n\t\tWITH RECURSIVE\n\t\tevents AS (\n\t\t\tSELECT\n\t\t\t\te.*,\n\t\t\t\t(SELECT MAX(id) FROM schema_migration) AS schema_id,\n\t\t\t\t1 AS index,\n\t\t\t\tstage.id AS stage_id\n\t\t\tFROM stage\n\t\t\tJOIN event e ON stage.event_id = e.id\n \t\t\tUNION ALL\n \t\t\tSELECT\n \t\t\t\tevent.*,\n \t\t\t\tCOALESCE(\n \t\t\t\t\tCASE WHEN event.type = 'run_migration' THEN\n\t\t\t\t\t\t(SELECT id FROM schema_migration WHERE version = event.data ->> 'version')\n\t\t\t\t\tEND,\n\t\t\t\t\tevents.schema_id\n\t\t\t\t),\n \t\t\t\tindex + 1,\n \t\t\t\tstage_id\n \t\t\tFROM event\n \t\t\t\tJOIN events\n \t\t\tON events.previous_id = event.id\n \t\t),\n \t\tshifted_events AS (\n \t\t\tSELECT\n \t\t\t\t*,\n \t\t\t\t(\n \t\t\t\t\tcreated_at\n \t\t\t\t\t+ (ROW_NUMBER() OVER (PARTITION BY transaction_id ORDER BY index DESC ) - 1 ||' us')::INTERVAL\n \t\t\t\t) AS shifted_created_at\n \t\t\tFROM events\n \t\t)\n \t\tINSERT\n \t\tINTO event_data (id, type, table_name, row_ids, values, created_at, schema_id, identity_id, transaction_id)\n \t\tSELECT\n \t\t\tid,\n \t\t\ttype,\n \t\t\tdata ->> 'tableName',\n \t\t\tdata -> 'rowId',\n \t\t\tdata -> 'values',\n \t\t\tshifted_created_at,\n \t\t\tschema_id,\n \t\t\tidentity_id,\n \t\t\ttransaction_id\n \t\tFROM shifted_events\n \t\tWHERE type NOT IN ('init', 'run_migration')\n \t\tON CONFLICT DO NOTHING\n \t`)\n\tbuilder.sql(`\n\t\tWITH RECURSIVE\n \t\tevents AS (\n \t\t\tSELECT\n \t\t\t\te.*,\n \t\t\t\t1 AS index,\n \t\t\t\tstage.id AS stage_id\n \t\t\tFROM stage\n \t\t\tJOIN event e ON stage.event_id = e.id\n \t\t\tUNION ALL\n \t\t\tSELECT\n \t\t\t\tevent.*,\n \t\t\t\tindex + 1,\n \t\t\t\tstage_id\n \t\t\tFROM event\n \t\t\tJOIN events ON events.previous_id = event.id\n \t\t),\n \t\ttransaction_times AS (\n \t\t\tSELECT\n \t\t\t\tDISTINCT ON (transaction_id, stage_id)\n \t\t\t\ttransaction_id,\n \t\t\t\tcreated_at,\n \t\t\t\tindex,\n \t\t\t\tstage_id\n \t\t\tFROM events\n \t\t\tORDER BY transaction_id\n \t\t)\n \t\tINSERT\n \t\tINTO stage_transaction (transaction_id, stage_id, applied_at)\n \t\tSELECT transaction_id, stage_id, created_at\n \t\tFROM transaction_times\n\t`)\n\tbuilder.sql(`\n\t\tCREATE OR REPLACE FUNCTION \"trigger_event\"() RETURNS TRIGGER AS\n\t\t$$\n\t\tDECLARE new_event_type TEXT;\n\t\tDECLARE table_name TEXT;\n\t\tDECLARE values JSONB;\n\t\tDECLARE update_diff JSONB;\n\t\tDECLARE primary_values JSONB;\n\t\tDECLARE old_row JSONB;\n\t\tDECLARE new_row JSONB;\n\t\tBEGIN\n\t\t\told_row := CASE WHEN TG_OP = 'DELETE' OR TG_OP = 'UPDATE' THEN TO_JSONB(old) ELSE NULL END;\n\t\t\tnew_row := CASE WHEN TG_OP = 'INSERT' OR TG_OP = 'UPDATE' THEN TO_JSONB(new) ELSE NULL END;\n\t\t\tprimary_values := (\n\t\t\t\tSELECT JSONB_AGG(value ORDER BY array_position(TG_ARGV, key))\n\t\t\t\tFROM JSONB_EACH(COALESCE(old_row, new_row))\n\t\t\t\tWHERE key = ANY (TG_ARGV)\n\t\t\t);\n\t\t\ttable_name := tg_table_name;\n\t\t\tCASE TG_OP\n\t\t\t\tWHEN 'INSERT' THEN BEGIN\n\t\t\t\t\tnew_event_type := 'create';\n\t\t\t\t\tvalues := COALESCE(\n\t\t\t\t\t\t(\n\t\t\t\t\t\t\tSELECT JSONB_OBJECT_AGG(key, value)\n \t\t\t\t\t\t    FROM JSONB_EACH(new_row)\n \t\t\t\t\t\t    WHERE NOT (key = ANY (TG_ARGV))\n \t\t\t\t\t\t),\n \t\t\t\t\t\tJSONB_BUILD_OBJECT()\n \t\t\t\t\t);\n\t\t\t\tEND;\n\t\t\t\tWHEN 'UPDATE' THEN BEGIN\n\t\t\t\t\tupdate_diff := (\n\t\t\t\t\t\tSELECT JSONB_OBJECT_AGG(COALESCE(n.key, o.key), n.value)\n\t\t\t\t\t\tFROM JSONB_EACH(old_row) o\n \t\t\t\t\t\tFULL OUTER JOIN JSONB_EACH(new_row) n ON n.key = o.key\n\t\t\t\t\t\tWHERE n.value IS DISTINCT FROM o.value\n\t\t\t\t\t);\n\t\t\t\t\tIF (SELECT COUNT(*) FROM JSONB_OBJECT_KEYS(update_diff)) = 0 THEN\n\t\t\t\t\t\tRETURN NULL;\n\t\t\t\t\tEND IF;\n\t\t\t\t\tnew_event_type := 'update';\n\t\t\t\t\tvalues := update_diff;\n\t\t\t\tEND;\n\t\t\t\tWHEN 'DELETE' THEN BEGIN\n\t\t\t\t\tnew_event_type := 'delete';\n\t\t\t\tEND;\n\t\t\t\tELSE RAISE\n\t\t\t\t\tEXCEPTION 'Unknown TG_OP value %', TG_OP;\n\t\t\tEND CASE;\n\n\t\t\tCASE WHEN NULLIF(CURRENT_SETTING('system.schema_id', true), '') IS NULL THEN\n\t\t\t\tPERFORM SET_CONFIG('system.schema_id', (select MAX(\"id\")::TEXT from schema_migration), TRUE);\n\t\t\tELSE\n\t\t\t\t-- do nothing\n\t\t\tEND CASE;\n\n\t\t\tINSERT INTO \"event_data\" (\"id\", \"type\", \"table_name\", \"row_ids\", \"values\", \"created_at\", schema_id, identity_id)\n\t\t\tVALUES (\n\t\t\t\t\"uuid_generate_v4\"(),\n\t\t\t\tnew_event_type,\n\t\t\t\ttable_name,\n\t\t\t\tprimary_values,\n\t\t\t\tvalues,\n\t\t\t\tCLOCK_TIMESTAMP(),\n\t\t\t\tCURRENT_SETTING('system.schema_id')::INT,\n\t\t\t\tCOALESCE(\n\t\t\t\t\tCURRENT_SETTING('tenant.identity_id'::TEXT, TRUE)::UUID,\n \t\t\t\t\t'00000000-0000-0000-0000-000000000000'::UUID)\n \t\t\t\t);\n\t\t\tRETURN NULL;\n\t\tEND;\n\t\t$$ LANGUAGE plpgsql\n\t`)\n\tbuilder.sql(`\n\t\tCREATE OR REPLACE FUNCTION trigger_event_commit() RETURNS TRIGGER AS\n\t\t$$\n\t\tBEGIN\n\t\t\tPERFORM PG_ADVISORY_XACT_LOCK(5218230332970456493); -- well-known random number\n\n\t\t\tCASE WHEN\n\t\t\t\tNULLIF(CURRENT_SETTING('system.transaction_id', true), '') IS NOT NULL\n\t\t\t\tAND NULLIF(CURRENT_SETTING('system.transaction_inserted', true), '') IS NULL\n\t\t\t\tTHEN\n\t\t\t\tINSERT INTO stage_transaction(transaction_id, stage_id, applied_at)\n\t\t\t\tVALUES (\n\t\t\t\t\tCURRENT_SETTING('system.transaction_id')::UUID,\n\t\t\t\t\t(\n\t\t\t\t\t\tSELECT id\n \t\t\t\t\t\tFROM \"stage\"\n \t\t\t\t\t\tWHERE \"slug\" = RIGHT(TG_TABLE_SCHEMA, - LENGTH('stage_'))\n \t\t\t\t    ),\n\t\t\t\t\tCLOCK_TIMESTAMP()\n\t\t\t\t)\n\t\t\t\tON CONFLICT DO NOTHING;\n\n\t\t\t\tPERFORM SET_CONFIG('system.transaction_inserted', '1', true);\n\t\t\tELSE\n\t\t\t\t-- do nothing\n\t\t\tEND CASE;\n\n\t\t\tRETURN NULL;\n\t\tEND;\n\t\t$$ LANGUAGE plpgsql\n\t`)\n\n\tfor (const table of junctionTables) {\n\t\tfor (const schema of schemas) {\n\t\t\tbuilder.dropTrigger({ name: table.tableName, schema }, 'log_event_statement')\n\t\t\tcreateTrxEvent(builder, { name: table.tableName, schema })\n\t\t}\n\t}\n\tfor (const entity of Object.values(schema.model.entities)) {\n\t\tfor (const schema of schemas) {\n\t\t\tbuilder.dropTrigger({ name: entity.tableName, schema }, 'log_event_statement')\n\t\t\tcreateTrxEvent(builder, { name: entity.tableName, schema })\n\t\t}\n\t}\n\tbuilder.sql(`\n\t\tALTER TABLE stage\n\t\tALTER event_id DROP NOT NULL\n\t`)\n\tbuilder.sql(`\n\t\tALTER TABLE event\n\t\tRENAME TO event_bak\n\t`)\n}\n"],"names":["getJunctionTables","schema"],"mappings":";;;;;;;;;;;;AAKA,MAAM,iBAAiB,CAAC,SAA2B,cAAoB;AAC9D,UAAA,cAAc,WAAW,iBAAiB;AAAA,IACjD,MAAM;AAAA,IACN,WAAW,CAAC,UAAU,UAAU,QAAQ;AAAA,IACxC,OAAO;AAAA,IACP,YAAY;AAAA,IACZ,UAAU;AAAA,IACV,UAAU;AAAA,MACT,QAAQ;AAAA,MACR,MAAM;AAAA,IACP;AAAA,EAAA,CACA;AACF;AAEA,eAAA,8BAA+B,SAA2B,MAA0C;AACnG,QAAM,SAAS,MAAM,KAAK,eAAe,KAAK,UAAU;AAClD,QAAA,iBAAiBA,aAAAA,kBAAkB,OAAO,KAAK;AAC/C,QAAA,UAAU,KAAK,QAAQ,OAAO,IAAI,CAAM,OAAA,SAAS,GAAG,IAAI,EAAE;AAChE,UAAQ,IAAI,kBAAkB;AAC9B,UAAQ,IAAI;AAAA;AAAA;AAAA,EAGX;AACD,UAAQ,IAAI;AAAA;AAAA;AAAA,EAGX;AACD,UAAQ,IAAI;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA,EAcX;AACD,UAAQ,IAAI;AAAA;AAAA;AAAA,EAGX;AACD,UAAQ,IAAI;AAAA;AAAA;AAAA,EAGX;AACD,UAAQ,IAAI;AAAA;AAAA;AAAA,EAGX;AACD,UAAQ,IAAI;AAAA;AAAA;AAAA,EAGX;AACD,UAAQ,IAAI;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA,EAOX;AACD,UAAQ,IAAI;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA,GAiDV;AACF,UAAQ,IAAI;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA,EA+BX;AACD,UAAQ,IAAI;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA,EAyEX;AACD,UAAQ,IAAI;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA,EA8BX;AAED,aAAW,SAAS,gBAAgB;AACnC,eAAWC,WAAU,SAAS;AACrB,cAAA,YAAY,EAAE,MAAM,MAAM,WAAW,QAAAA,WAAU,qBAAqB;AAC5E,qBAAe,SAAS,EAAE,MAAM,MAAM,WAAW,QAAAA,SAAQ;AAAA,IAC1D;AAAA,EACD;AACA,aAAW,UAAU,OAAO,OAAO,OAAO,MAAM,QAAQ,GAAG;AAC1D,eAAWA,WAAU,SAAS;AACrB,cAAA,YAAY,EAAE,MAAM,OAAO,WAAW,QAAAA,WAAU,qBAAqB;AAC7E,qBAAe,SAAS,EAAE,MAAM,OAAO,WAAW,QAAAA,SAAQ;AAAA,IAC3D;AAAA,EACD;AACA,UAAQ,IAAI;AAAA;AAAA;AAAA,EAGX;AACD,UAAQ,IAAI;AAAA;AAAA;AAAA,EAGX;AACF;;"}

package/dist/development/src/migrations/2021-05-07-155800-event-log-rework.js

@@ -0,0 +1,288 @@
+import "../model/authorization/AuthorizationActions.js";
+import "@contember/authorization";
+import "@contember/schema";
+import "@contember/database";
+import "@contember/schema-migrations";
+import { getJunctionTables } from "../model/helpers/modelHelpers.js";
+import "../schema/dev.graphql.js";
+import "../schema/system.graphql.js";
+import "@contember/schema-utils";
+import "@contember/logger";
+import "../model/migrations/SchemaVersionBuilder.js";
+const createTrxEvent = (builder, tableName) => {
+  builder.createTrigger(tableName, "log_event_trx", {
+    when: "AFTER",
+    operation: ["INSERT", "UPDATE", "DELETE"],
+    level: "ROW",
+    deferrable: true,
+    deferred: true,
+    function: {
+      schema: "system",
+      name: "trigger_event_commit"
+    }
+  });
+};
+async function _20210507155800eventlogrework(builder, args) {
+  const schema = await args.schemaResolver(args.connection);
+  const junctionTables = getJunctionTables(schema.model);
+  const schemas = args.project.stages.map((it) => `stage_${it.slug}`);
+  builder.sql(`LOCK TABLE event`);
+  builder.sql(`
+		ALTER TABLE schema_migration
+		ADD PRIMARY KEY (id)
+	`);
+  builder.sql(`
+		CREATE DOMAIN event_data_type AS TEXT
+		CONSTRAINT event_data_type_check CHECK (VALUE = ANY (ARRAY ['create', 'update', 'delete']));
+	`);
+  builder.sql(`
+		CREATE TABLE event_data (
+			id UUID NOT NULL CONSTRAINT event_data_pkey PRIMARY KEY,
+		type event_data_type NOT NULL,
+		table_name TEXT NOT NULL,
+		row_ids JSONB NOT NULL,
+		values JSONB DEFAULT NULL,
+		created_at TIMESTAMP WITH TIME ZONE DEFAULT CLOCK_TIMESTAMP() NOT NULL,
+		schema_id INTEGER NOT NULL REFERENCES schema_migration(id),
+		identity_id UUID NOT NULL,
+		transaction_id UUID DEFAULT COALESCE(
+			(NULLIF(CURRENT_SETTING('system.transaction_id'::TEXT, TRUE), ''::TEXT))::UUID,
+			(SET_CONFIG('system.transaction_id'::TEXT, ("uuid_generate_v4"())::TEXT, TRUE))::UUID) NOT NULL
+		)
+	`);
+  builder.sql(`
+		CREATE INDEX system_event_row_id
+		ON event_data(row_ids)
+	`);
+  builder.sql(`
+		CREATE INDEX system_event2_table_name
+		ON event_data(table_name)
+	`);
+  builder.sql(`
+		CREATE INDEX system_event2_type
+		ON event_data(type)
+	`);
+  builder.sql(`
+		CREATE INDEX system_event2_transaction
+		ON event_data(transaction_id)
+	`);
+  builder.sql(`
+		CREATE TABLE stage_transaction (
+			transaction_id UUID NOT NULL,
+			stage_id UUID NOT NULL REFERENCES stage(id) ON DELETE CASCADE,
+			applied_at TIMESTAMPTZ NOT NULL,
+			PRIMARY KEY (transaction_id, stage_id)
+		)
+	`);
+  builder.sql(`
+		WITH RECURSIVE
+		events AS (
+			SELECT
+				e.*,
+				(SELECT MAX(id) FROM schema_migration) AS schema_id,
+				1 AS index,
+				stage.id AS stage_id
+			FROM stage
+			JOIN event e ON stage.event_id = e.id
+ 			UNION ALL
+ 			SELECT
+ 				event.*,
+ 				COALESCE(
+ 					CASE WHEN event.type = 'run_migration' THEN
+						(SELECT id FROM schema_migration WHERE version = event.data ->> 'version')
+					END,
+					events.schema_id
+				),
+ 				index + 1,
+ 				stage_id
+ 			FROM event
+ 				JOIN events
+ 			ON events.previous_id = event.id
+ 		),
+ 		shifted_events AS (
+ 			SELECT
+ 				*,
+ 				(
+ 					created_at
+ 					+ (ROW_NUMBER() OVER (PARTITION BY transaction_id ORDER BY index DESC ) - 1 ||' us')::INTERVAL
+ 				) AS shifted_created_at
+ 			FROM events
+ 		)
+ 		INSERT
+ 		INTO event_data (id, type, table_name, row_ids, values, created_at, schema_id, identity_id, transaction_id)
+ 		SELECT
+ 			id,
+ 			type,
+ 			data ->> 'tableName',
+ 			data -> 'rowId',
+ 			data -> 'values',
+ 			shifted_created_at,
+ 			schema_id,
+ 			identity_id,
+ 			transaction_id
+ 		FROM shifted_events
+ 		WHERE type NOT IN ('init', 'run_migration')
+ 		ON CONFLICT DO NOTHING
+ 	`);
+  builder.sql(`
+		WITH RECURSIVE
+ 		events AS (
+ 			SELECT
+ 				e.*,
+ 				1 AS index,
+ 				stage.id AS stage_id
+ 			FROM stage
+ 			JOIN event e ON stage.event_id = e.id
+ 			UNION ALL
+ 			SELECT
+ 				event.*,
+ 				index + 1,
+ 				stage_id
+ 			FROM event
+ 			JOIN events ON events.previous_id = event.id
+ 		),
+ 		transaction_times AS (
+ 			SELECT
+ 				DISTINCT ON (transaction_id, stage_id)
+ 				transaction_id,
+ 				created_at,
+ 				index,
+ 				stage_id
+ 			FROM events
+ 			ORDER BY transaction_id
+ 		)
+ 		INSERT
+ 		INTO stage_transaction (transaction_id, stage_id, applied_at)
+ 		SELECT transaction_id, stage_id, created_at
+ 		FROM transaction_times
+	`);
+  builder.sql(`
+		CREATE OR REPLACE FUNCTION "trigger_event"() RETURNS TRIGGER AS
+		$$
+		DECLARE new_event_type TEXT;
+		DECLARE table_name TEXT;
+		DECLARE values JSONB;
+		DECLARE update_diff JSONB;
+		DECLARE primary_values JSONB;
+		DECLARE old_row JSONB;
+		DECLARE new_row JSONB;
+		BEGIN
+			old_row := CASE WHEN TG_OP = 'DELETE' OR TG_OP = 'UPDATE' THEN TO_JSONB(old) ELSE NULL END;
+			new_row := CASE WHEN TG_OP = 'INSERT' OR TG_OP = 'UPDATE' THEN TO_JSONB(new) ELSE NULL END;
+			primary_values := (
+				SELECT JSONB_AGG(value ORDER BY array_position(TG_ARGV, key))
+				FROM JSONB_EACH(COALESCE(old_row, new_row))
+				WHERE key = ANY (TG_ARGV)
+			);
+			table_name := tg_table_name;
+			CASE TG_OP
+				WHEN 'INSERT' THEN BEGIN
+					new_event_type := 'create';
+					values := COALESCE(
+						(
+							SELECT JSONB_OBJECT_AGG(key, value)
+ 						    FROM JSONB_EACH(new_row)
+ 						    WHERE NOT (key = ANY (TG_ARGV))
+ 						),
+ 						JSONB_BUILD_OBJECT()
+ 					);
+				END;
+				WHEN 'UPDATE' THEN BEGIN
+					update_diff := (
+						SELECT JSONB_OBJECT_AGG(COALESCE(n.key, o.key), n.value)
+						FROM JSONB_EACH(old_row) o
+ 						FULL OUTER JOIN JSONB_EACH(new_row) n ON n.key = o.key
+						WHERE n.value IS DISTINCT FROM o.value
+					);
+					IF (SELECT COUNT(*) FROM JSONB_OBJECT_KEYS(update_diff)) = 0 THEN
+						RETURN NULL;
+					END IF;
+					new_event_type := 'update';
+					values := update_diff;
+				END;
+				WHEN 'DELETE' THEN BEGIN
+					new_event_type := 'delete';
+				END;
+				ELSE RAISE
+					EXCEPTION 'Unknown TG_OP value %', TG_OP;
+			END CASE;
+
+			CASE WHEN NULLIF(CURRENT_SETTING('system.schema_id', true), '') IS NULL THEN
+				PERFORM SET_CONFIG('system.schema_id', (select MAX("id")::TEXT from schema_migration), TRUE);
+			ELSE
+				-- do nothing
+			END CASE;
+
+			INSERT INTO "event_data" ("id", "type", "table_name", "row_ids", "values", "created_at", schema_id, identity_id)
+			VALUES (
+				"uuid_generate_v4"(),
+				new_event_type,
+				table_name,
+				primary_values,
+				values,
+				CLOCK_TIMESTAMP(),
+				CURRENT_SETTING('system.schema_id')::INT,
+				COALESCE(
+					CURRENT_SETTING('tenant.identity_id'::TEXT, TRUE)::UUID,
+ 					'00000000-0000-0000-0000-000000000000'::UUID)
+ 				);
+			RETURN NULL;
+		END;
+		$$ LANGUAGE plpgsql
+	`);
+  builder.sql(`
+		CREATE OR REPLACE FUNCTION trigger_event_commit() RETURNS TRIGGER AS
+		$$
+		BEGIN
+			PERFORM PG_ADVISORY_XACT_LOCK(5218230332970456493); -- well-known random number
+
+			CASE WHEN
+				NULLIF(CURRENT_SETTING('system.transaction_id', true), '') IS NOT NULL
+				AND NULLIF(CURRENT_SETTING('system.transaction_inserted', true), '') IS NULL
+				THEN
+				INSERT INTO stage_transaction(transaction_id, stage_id, applied_at)
+				VALUES (
+					CURRENT_SETTING('system.transaction_id')::UUID,
+					(
+						SELECT id
+ 						FROM "stage"
+ 						WHERE "slug" = RIGHT(TG_TABLE_SCHEMA, - LENGTH('stage_'))
+ 				    ),
+					CLOCK_TIMESTAMP()
+				)
+				ON CONFLICT DO NOTHING;
+
+				PERFORM SET_CONFIG('system.transaction_inserted', '1', true);
+			ELSE
+				-- do nothing
+			END CASE;
+
+			RETURN NULL;
+		END;
+		$$ LANGUAGE plpgsql
+	`);
+  for (const table of junctionTables) {
+    for (const schema2 of schemas) {
+      builder.dropTrigger({ name: table.tableName, schema: schema2 }, "log_event_statement");
+      createTrxEvent(builder, { name: table.tableName, schema: schema2 });
+    }
+  }
+  for (const entity of Object.values(schema.model.entities)) {
+    for (const schema2 of schemas) {
+      builder.dropTrigger({ name: entity.tableName, schema: schema2 }, "log_event_statement");
+      createTrxEvent(builder, { name: entity.tableName, schema: schema2 });
+    }
+  }
+  builder.sql(`
+		ALTER TABLE stage
+		ALTER event_id DROP NOT NULL
+	`);
+  builder.sql(`
+		ALTER TABLE event
+		RENAME TO event_bak
+	`);
+}
+export {
+  _20210507155800eventlogrework as default
+};
+//# sourceMappingURL=2021-05-07-155800-event-log-rework.js.map

package/dist/development/src/migrations/2021-05-07-155800-event-log-rework.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"2021-05-07-155800-event-log-rework.js","sources":["../../../../../packages/engine-system-api/src/migrations/2021-05-07-155800-event-log-rework.ts"],"sourcesContent":["import { MigrationBuilder, Name } from '@contember/database-migrations'\nimport { SystemMigrationArgs } from './types'\nimport { getJunctionTables } from '../model'\nimport { MigrationArgs } from '@contember/database-migrations'\n\nconst createTrxEvent = (builder: MigrationBuilder, tableName: Name) => {\n\tbuilder.createTrigger(tableName, 'log_event_trx', {\n\t\twhen: 'AFTER',\n\t\toperation: ['INSERT', 'UPDATE', 'DELETE'],\n\t\tlevel: 'ROW',\n\t\tdeferrable: true,\n\t\tdeferred: true,\n\t\tfunction: {\n\t\t\tschema: 'system',\n\t\t\tname: 'trigger_event_commit',\n\t\t},\n\t})\n}\n\nexport default async function (builder: MigrationBuilder, args: MigrationArgs<SystemMigrationArgs>) {\n\tconst schema = await args.schemaResolver(args.connection)\n\tconst junctionTables = getJunctionTables(schema.model)\n\tconst schemas = args.project.stages.map(it => `stage_${it.slug}`)\n\tbuilder.sql(`LOCK TABLE event`)\n\tbuilder.sql(`\n\t\tALTER TABLE schema_migration\n\t\tADD PRIMARY KEY (id)\n\t`)\n\tbuilder.sql(`\n\t\tCREATE DOMAIN event_data_type AS TEXT\n\t\tCONSTRAINT event_data_type_check CHECK (VALUE = ANY (ARRAY ['create', 'update', 'delete']));\n\t`)\n\tbuilder.sql(`\n\t\tCREATE TABLE event_data (\n\t\t\tid UUID NOT NULL CONSTRAINT event_data_pkey PRIMARY KEY,\n\t\ttype event_data_type NOT NULL,\n\t\ttable_name TEXT NOT NULL,\n\t\trow_ids JSONB NOT NULL,\n\t\tvalues JSONB DEFAULT NULL,\n\t\tcreated_at TIMESTAMP WITH TIME ZONE DEFAULT CLOCK_TIMESTAMP() NOT NULL,\n\t\tschema_id INTEGER NOT NULL REFERENCES schema_migration(id),\n\t\tidentity_id UUID NOT NULL,\n\t\ttransaction_id UUID DEFAULT COALESCE(\n\t\t\t(NULLIF(CURRENT_SETTING('system.transaction_id'::TEXT, TRUE), ''::TEXT))::UUID,\n\t\t\t(SET_CONFIG('system.transaction_id'::TEXT, (\"uuid_generate_v4\"())::TEXT, TRUE))::UUID) NOT NULL\n\t\t)\n\t`)\n\tbuilder.sql(`\n\t\tCREATE INDEX system_event_row_id\n\t\tON event_data(row_ids)\n\t`)\n\tbuilder.sql(`\n\t\tCREATE INDEX system_event2_table_name\n\t\tON event_data(table_name)\n\t`)\n\tbuilder.sql(`\n\t\tCREATE INDEX system_event2_type\n\t\tON event_data(type)\n\t`)\n\tbuilder.sql(`\n\t\tCREATE INDEX system_event2_transaction\n\t\tON event_data(transaction_id)\n\t`)\n\tbuilder.sql(`\n\t\tCREATE TABLE stage_transaction (\n\t\t\ttransaction_id UUID NOT NULL,\n\t\t\tstage_id UUID NOT NULL REFERENCES stage(id) ON DELETE CASCADE,\n\t\t\tapplied_at TIMESTAMPTZ NOT NULL,\n\t\t\tPRIMARY KEY (transaction_id, stage_id)\n\t\t)\n\t`)\n\tbuilder.sql(`\n\t\tWITH RECURSIVE\n\t\tevents AS (\n\t\t\tSELECT\n\t\t\t\te.*,\n\t\t\t\t(SELECT MAX(id) FROM schema_migration) AS schema_id,\n\t\t\t\t1 AS index,\n\t\t\t\tstage.id AS stage_id\n\t\t\tFROM stage\n\t\t\tJOIN event e ON stage.event_id = e.id\n \t\t\tUNION ALL\n \t\t\tSELECT\n \t\t\t\tevent.*,\n \t\t\t\tCOALESCE(\n \t\t\t\t\tCASE WHEN event.type = 'run_migration' THEN\n\t\t\t\t\t\t(SELECT id FROM schema_migration WHERE version = event.data ->> 'version')\n\t\t\t\t\tEND,\n\t\t\t\t\tevents.schema_id\n\t\t\t\t),\n \t\t\t\tindex + 1,\n \t\t\t\tstage_id\n \t\t\tFROM event\n \t\t\t\tJOIN events\n \t\t\tON events.previous_id = event.id\n \t\t),\n \t\tshifted_events AS (\n \t\t\tSELECT\n \t\t\t\t*,\n \t\t\t\t(\n \t\t\t\t\tcreated_at\n \t\t\t\t\t+ (ROW_NUMBER() OVER (PARTITION BY transaction_id ORDER BY index DESC ) - 1 ||' us')::INTERVAL\n \t\t\t\t) AS shifted_created_at\n \t\t\tFROM events\n \t\t)\n \t\tINSERT\n \t\tINTO event_data (id, type, table_name, row_ids, values, created_at, schema_id, identity_id, transaction_id)\n \t\tSELECT\n \t\t\tid,\n \t\t\ttype,\n \t\t\tdata ->> 'tableName',\n \t\t\tdata -> 'rowId',\n \t\t\tdata -> 'values',\n \t\t\tshifted_created_at,\n \t\t\tschema_id,\n \t\t\tidentity_id,\n \t\t\ttransaction_id\n \t\tFROM shifted_events\n \t\tWHERE type NOT IN ('init', 'run_migration')\n \t\tON CONFLICT DO NOTHING\n \t`)\n\tbuilder.sql(`\n\t\tWITH RECURSIVE\n \t\tevents AS (\n \t\t\tSELECT\n \t\t\t\te.*,\n \t\t\t\t1 AS index,\n \t\t\t\tstage.id AS stage_id\n \t\t\tFROM stage\n \t\t\tJOIN event e ON stage.event_id = e.id\n \t\t\tUNION ALL\n \t\t\tSELECT\n \t\t\t\tevent.*,\n \t\t\t\tindex + 1,\n \t\t\t\tstage_id\n \t\t\tFROM event\n \t\t\tJOIN events ON events.previous_id = event.id\n \t\t),\n \t\ttransaction_times AS (\n \t\t\tSELECT\n \t\t\t\tDISTINCT ON (transaction_id, stage_id)\n \t\t\t\ttransaction_id,\n \t\t\t\tcreated_at,\n \t\t\t\tindex,\n \t\t\t\tstage_id\n \t\t\tFROM events\n \t\t\tORDER BY transaction_id\n \t\t)\n \t\tINSERT\n \t\tINTO stage_transaction (transaction_id, stage_id, applied_at)\n \t\tSELECT transaction_id, stage_id, created_at\n \t\tFROM transaction_times\n\t`)\n\tbuilder.sql(`\n\t\tCREATE OR REPLACE FUNCTION \"trigger_event\"() RETURNS TRIGGER AS\n\t\t$$\n\t\tDECLARE new_event_type TEXT;\n\t\tDECLARE table_name TEXT;\n\t\tDECLARE values JSONB;\n\t\tDECLARE update_diff JSONB;\n\t\tDECLARE primary_values JSONB;\n\t\tDECLARE old_row JSONB;\n\t\tDECLARE new_row JSONB;\n\t\tBEGIN\n\t\t\told_row := CASE WHEN TG_OP = 'DELETE' OR TG_OP = 'UPDATE' THEN TO_JSONB(old) ELSE NULL END;\n\t\t\tnew_row := CASE WHEN TG_OP = 'INSERT' OR TG_OP = 'UPDATE' THEN TO_JSONB(new) ELSE NULL END;\n\t\t\tprimary_values := (\n\t\t\t\tSELECT JSONB_AGG(value ORDER BY array_position(TG_ARGV, key))\n\t\t\t\tFROM JSONB_EACH(COALESCE(old_row, new_row))\n\t\t\t\tWHERE key = ANY (TG_ARGV)\n\t\t\t);\n\t\t\ttable_name := tg_table_name;\n\t\t\tCASE TG_OP\n\t\t\t\tWHEN 'INSERT' THEN BEGIN\n\t\t\t\t\tnew_event_type := 'create';\n\t\t\t\t\tvalues := COALESCE(\n\t\t\t\t\t\t(\n\t\t\t\t\t\t\tSELECT JSONB_OBJECT_AGG(key, value)\n \t\t\t\t\t\t    FROM JSONB_EACH(new_row)\n \t\t\t\t\t\t    WHERE NOT (key = ANY (TG_ARGV))\n \t\t\t\t\t\t),\n \t\t\t\t\t\tJSONB_BUILD_OBJECT()\n \t\t\t\t\t);\n\t\t\t\tEND;\n\t\t\t\tWHEN 'UPDATE' THEN BEGIN\n\t\t\t\t\tupdate_diff := (\n\t\t\t\t\t\tSELECT JSONB_OBJECT_AGG(COALESCE(n.key, o.key), n.value)\n\t\t\t\t\t\tFROM JSONB_EACH(old_row) o\n \t\t\t\t\t\tFULL OUTER JOIN JSONB_EACH(new_row) n ON n.key = o.key\n\t\t\t\t\t\tWHERE n.value IS DISTINCT FROM o.value\n\t\t\t\t\t);\n\t\t\t\t\tIF (SELECT COUNT(*) FROM JSONB_OBJECT_KEYS(update_diff)) = 0 THEN\n\t\t\t\t\t\tRETURN NULL;\n\t\t\t\t\tEND IF;\n\t\t\t\t\tnew_event_type := 'update';\n\t\t\t\t\tvalues := update_diff;\n\t\t\t\tEND;\n\t\t\t\tWHEN 'DELETE' THEN BEGIN\n\t\t\t\t\tnew_event_type := 'delete';\n\t\t\t\tEND;\n\t\t\t\tELSE RAISE\n\t\t\t\t\tEXCEPTION 'Unknown TG_OP value %', TG_OP;\n\t\t\tEND CASE;\n\n\t\t\tCASE WHEN NULLIF(CURRENT_SETTING('system.schema_id', true), '') IS NULL THEN\n\t\t\t\tPERFORM SET_CONFIG('system.schema_id', (select MAX(\"id\")::TEXT from schema_migration), TRUE);\n\t\t\tELSE\n\t\t\t\t-- do nothing\n\t\t\tEND CASE;\n\n\t\t\tINSERT INTO \"event_data\" (\"id\", \"type\", \"table_name\", \"row_ids\", \"values\", \"created_at\", schema_id, identity_id)\n\t\t\tVALUES (\n\t\t\t\t\"uuid_generate_v4\"(),\n\t\t\t\tnew_event_type,\n\t\t\t\ttable_name,\n\t\t\t\tprimary_values,\n\t\t\t\tvalues,\n\t\t\t\tCLOCK_TIMESTAMP(),\n\t\t\t\tCURRENT_SETTING('system.schema_id')::INT,\n\t\t\t\tCOALESCE(\n\t\t\t\t\tCURRENT_SETTING('tenant.identity_id'::TEXT, TRUE)::UUID,\n \t\t\t\t\t'00000000-0000-0000-0000-000000000000'::UUID)\n \t\t\t\t);\n\t\t\tRETURN NULL;\n\t\tEND;\n\t\t$$ LANGUAGE plpgsql\n\t`)\n\tbuilder.sql(`\n\t\tCREATE OR REPLACE FUNCTION trigger_event_commit() RETURNS TRIGGER AS\n\t\t$$\n\t\tBEGIN\n\t\t\tPERFORM PG_ADVISORY_XACT_LOCK(5218230332970456493); -- well-known random number\n\n\t\t\tCASE WHEN\n\t\t\t\tNULLIF(CURRENT_SETTING('system.transaction_id', true), '') IS NOT NULL\n\t\t\t\tAND NULLIF(CURRENT_SETTING('system.transaction_inserted', true), '') IS NULL\n\t\t\t\tTHEN\n\t\t\t\tINSERT INTO stage_transaction(transaction_id, stage_id, applied_at)\n\t\t\t\tVALUES (\n\t\t\t\t\tCURRENT_SETTING('system.transaction_id')::UUID,\n\t\t\t\t\t(\n\t\t\t\t\t\tSELECT id\n \t\t\t\t\t\tFROM \"stage\"\n \t\t\t\t\t\tWHERE \"slug\" = RIGHT(TG_TABLE_SCHEMA, - LENGTH('stage_'))\n \t\t\t\t    ),\n\t\t\t\t\tCLOCK_TIMESTAMP()\n\t\t\t\t)\n\t\t\t\tON CONFLICT DO NOTHING;\n\n\t\t\t\tPERFORM SET_CONFIG('system.transaction_inserted', '1', true);\n\t\t\tELSE\n\t\t\t\t-- do nothing\n\t\t\tEND CASE;\n\n\t\t\tRETURN NULL;\n\t\tEND;\n\t\t$$ LANGUAGE plpgsql\n\t`)\n\n\tfor (const table of junctionTables) {\n\t\tfor (const schema of schemas) {\n\t\t\tbuilder.dropTrigger({ name: table.tableName, schema }, 'log_event_statement')\n\t\t\tcreateTrxEvent(builder, { name: table.tableName, schema })\n\t\t}\n\t}\n\tfor (const entity of Object.values(schema.model.entities)) {\n\t\tfor (const schema of schemas) {\n\t\t\tbuilder.dropTrigger({ name: entity.tableName, schema }, 'log_event_statement')\n\t\t\tcreateTrxEvent(builder, { name: entity.tableName, schema })\n\t\t}\n\t}\n\tbuilder.sql(`\n\t\tALTER TABLE stage\n\t\tALTER event_id DROP NOT NULL\n\t`)\n\tbuilder.sql(`\n\t\tALTER TABLE event\n\t\tRENAME TO event_bak\n\t`)\n}\n"],"names":["schema"],"mappings":";;;;;;;;;;;AAKA,MAAM,iBAAiB,CAAC,SAA2B,cAAoB;AAC9D,UAAA,cAAc,WAAW,iBAAiB;AAAA,IACjD,MAAM;AAAA,IACN,WAAW,CAAC,UAAU,UAAU,QAAQ;AAAA,IACxC,OAAO;AAAA,IACP,YAAY;AAAA,IACZ,UAAU;AAAA,IACV,UAAU;AAAA,MACT,QAAQ;AAAA,MACR,MAAM;AAAA,IACP;AAAA,EAAA,CACA;AACF;AAEA,eAAA,8BAA+B,SAA2B,MAA0C;AACnG,QAAM,SAAS,MAAM,KAAK,eAAe,KAAK,UAAU;AAClD,QAAA,iBAAiB,kBAAkB,OAAO,KAAK;AAC/C,QAAA,UAAU,KAAK,QAAQ,OAAO,IAAI,CAAM,OAAA,SAAS,GAAG,IAAI,EAAE;AAChE,UAAQ,IAAI,kBAAkB;AAC9B,UAAQ,IAAI;AAAA;AAAA;AAAA,EAGX;AACD,UAAQ,IAAI;AAAA;AAAA;AAAA,EAGX;AACD,UAAQ,IAAI;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA,EAcX;AACD,UAAQ,IAAI;AAAA;AAAA;AAAA,EAGX;AACD,UAAQ,IAAI;AAAA;AAAA;AAAA,EAGX;AACD,UAAQ,IAAI;AAAA;AAAA;AAAA,EAGX;AACD,UAAQ,IAAI;AAAA;AAAA;AAAA,EAGX;AACD,UAAQ,IAAI;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA,EAOX;AACD,UAAQ,IAAI;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA,GAiDV;AACF,UAAQ,IAAI;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA,EA+BX;AACD,UAAQ,IAAI;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA,EAyEX;AACD,UAAQ,IAAI;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA,EA8BX;AAED,aAAW,SAAS,gBAAgB;AACnC,eAAWA,WAAU,SAAS;AACrB,cAAA,YAAY,EAAE,MAAM,MAAM,WAAW,QAAAA,WAAU,qBAAqB;AAC5E,qBAAe,SAAS,EAAE,MAAM,MAAM,WAAW,QAAAA,SAAQ;AAAA,IAC1D;AAAA,EACD;AACA,aAAW,UAAU,OAAO,OAAO,OAAO,MAAM,QAAQ,GAAG;AAC1D,eAAWA,WAAU,SAAS;AACrB,cAAA,YAAY,EAAE,MAAM,OAAO,WAAW,QAAAA,WAAU,qBAAqB;AAC7E,qBAAe,SAAS,EAAE,MAAM,OAAO,WAAW,QAAAA,SAAQ;AAAA,IAC3D;AAAA,EACD;AACA,UAAQ,IAAI;AAAA;AAAA;AAAA,EAGX;AACD,UAAQ,IAAI;AAAA;AAAA;AAAA,EAGX;AACF;"}

package/dist/development/src/migrations/2021-05-19-1232000-event-log-fix-constraint.cjs

@@ -0,0 +1,45 @@
+"use strict";
+require("../model/authorization/AuthorizationActions.cjs");
+require("@contember/authorization");
+require("@contember/schema");
+require("@contember/database");
+require("@contember/schema-migrations");
+const modelHelpers = require("../model/helpers/modelHelpers.cjs");
+require("../schema/dev.graphql.cjs");
+require("../schema/system.graphql.cjs");
+require("@contember/schema-utils");
+require("@contember/logger");
+require("../model/migrations/SchemaVersionBuilder.cjs");
+const recreateTrigger = (builder, tableName) => {
+  builder.dropTrigger(tableName, "log_event_trx", { ifExists: true });
+  builder.dropTrigger(tableName, "log_event_statement", { ifExists: true });
+  builder.createTrigger(tableName, "log_event_trx", {
+    when: "AFTER",
+    operation: ["INSERT", "UPDATE", "DELETE"],
+    level: "ROW",
+    constraint: true,
+    deferrable: true,
+    deferred: true,
+    function: {
+      schema: "system",
+      name: "trigger_event_commit"
+    }
+  });
+};
+async function _202105191232000eventlogfixconstraint(builder, args) {
+  const schema = await args.schemaResolver(args.connection);
+  const junctionTables = modelHelpers.getJunctionTables(schema.model);
+  const schemas = args.project.stages.map((it) => `stage_${it.slug}`);
+  for (const table of junctionTables) {
+    for (const schema2 of schemas) {
+      recreateTrigger(builder, { name: table.tableName, schema: schema2 });
+    }
+  }
+  for (const entity of Object.values(schema.model.entities)) {
+    for (const schema2 of schemas) {
+      recreateTrigger(builder, { name: entity.tableName, schema: schema2 });
+    }
+  }
+}
+module.exports = _202105191232000eventlogfixconstraint;
+//# sourceMappingURL=2021-05-19-1232000-event-log-fix-constraint.cjs.map

package/dist/development/src/migrations/2021-05-19-1232000-event-log-fix-constraint.cjs.map

@@ -0,0 +1 @@
+{"version":3,"file":"2021-05-19-1232000-event-log-fix-constraint.cjs","sources":["../../../../../packages/engine-system-api/src/migrations/2021-05-19-1232000-event-log-fix-constraint.ts"],"sourcesContent":["import { MigrationBuilder, Name } from '@contember/database-migrations'\nimport { SystemMigrationArgs } from './types'\nimport { getJunctionTables } from '../model'\nimport { MigrationArgs } from '@contember/database-migrations'\n\nconst recreateTrigger = (builder: MigrationBuilder, tableName: Name) => {\n\tbuilder.dropTrigger(tableName, 'log_event_trx', { ifExists: true })\n\tbuilder.dropTrigger(tableName, 'log_event_statement', { ifExists: true })\n\tbuilder.createTrigger(tableName, 'log_event_trx', {\n\t\twhen: 'AFTER',\n\t\toperation: ['INSERT', 'UPDATE', 'DELETE'],\n\t\tlevel: 'ROW',\n\t\tconstraint: true,\n\t\tdeferrable: true,\n\t\tdeferred: true,\n\t\tfunction: {\n\t\t\tschema: 'system',\n\t\t\tname: 'trigger_event_commit',\n\t\t},\n\t})\n}\n\nexport default async function (builder: MigrationBuilder, args: MigrationArgs<SystemMigrationArgs>) {\n\tconst schema = await args.schemaResolver(args.connection)\n\tconst junctionTables = getJunctionTables(schema.model)\n\tconst schemas = args.project.stages.map(it => `stage_${it.slug}`)\n\n\tfor (const table of junctionTables) {\n\t\tfor (const schema of schemas) {\n\t\t\trecreateTrigger(builder, { name: table.tableName, schema })\n\t\t}\n\t}\n\tfor (const entity of Object.values(schema.model.entities)) {\n\t\tfor (const schema of schemas) {\n\t\t\trecreateTrigger(builder, { name: entity.tableName, schema })\n\t\t}\n\t}\n}\n"],"names":["getJunctionTables","schema"],"mappings":";;;;;;;;;;;;AAKA,MAAM,kBAAkB,CAAC,SAA2B,cAAoB;AACvE,UAAQ,YAAY,WAAW,iBAAiB,EAAE,UAAU,MAAM;AAClE,UAAQ,YAAY,WAAW,uBAAuB,EAAE,UAAU,MAAM;AAChE,UAAA,cAAc,WAAW,iBAAiB;AAAA,IACjD,MAAM;AAAA,IACN,WAAW,CAAC,UAAU,UAAU,QAAQ;AAAA,IACxC,OAAO;AAAA,IACP,YAAY;AAAA,IACZ,YAAY;AAAA,IACZ,UAAU;AAAA,IACV,UAAU;AAAA,MACT,QAAQ;AAAA,MACR,MAAM;AAAA,IACP;AAAA,EAAA,CACA;AACF;AAEA,eAAA,sCAA+B,SAA2B,MAA0C;AACnG,QAAM,SAAS,MAAM,KAAK,eAAe,KAAK,UAAU;AAClD,QAAA,iBAAiBA,aAAAA,kBAAkB,OAAO,KAAK;AAC/C,QAAA,UAAU,KAAK,QAAQ,OAAO,IAAI,CAAM,OAAA,SAAS,GAAG,IAAI,EAAE;AAEhE,aAAW,SAAS,gBAAgB;AACnC,eAAWC,WAAU,SAAS;AAC7B,sBAAgB,SAAS,EAAE,MAAM,MAAM,WAAW,QAAAA,SAAQ;AAAA,IAC3D;AAAA,EACD;AACA,aAAW,UAAU,OAAO,OAAO,OAAO,MAAM,QAAQ,GAAG;AAC1D,eAAWA,WAAU,SAAS;AAC7B,sBAAgB,SAAS,EAAE,MAAM,OAAO,WAAW,QAAAA,SAAQ;AAAA,IAC5D;AAAA,EACD;AACD;;"}