@contember/engine-system-api 2.1.0-alpha.36 → 2.1.0-alpha.39

package/dist/production/src/migrations/2020-06-01-103000-event-trigger-perf.js

@@ -0,0 +1,129 @@
+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";
+const createEventStatementTrigger = (builder, tableName) => {
+  builder.createTrigger(tableName, "log_event_statement", {
+    when: "AFTER",
+    operation: ["INSERT", "UPDATE", "DELETE"],
+    level: "STATEMENT",
+    function: {
+      schema: "system",
+      name: "statement_trigger_event"
+    }
+  });
+};
+async function _20200601103000eventtriggerperf(builder, args) {
+  const schema = (await args.schemaResolver(args.connection)).schema;
+  const junctionTables = getJunctionTables(schema.model);
+  const schemas = args.project.stages.map((it) => `stage_${it.slug}`);
+  builder.sql(`CREATE OR REPLACE FUNCTION "trigger_event"() RETURNS TRIGGER AS $$
+DECLARE
+    DECLARE new_event_type TEXT;
+    DECLARE previous_id UUID;
+    DECLARE new_event_data 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)
+    );
+
+
+    CASE TG_OP
+        WHEN 'INSERT' THEN BEGIN
+            new_event_type := 'create';
+            new_event_data := jsonb_build_object(
+              'tableName', TG_TABLE_NAME,
+              'rowId', primary_values,
+              'values', COALESCE((
+                                     SELECT jsonb_object_agg(key, value)
+                                     FROM jsonb_each(new_row)
+                                     WHERE NOT (key = ANY (TG_ARGV))
+                                 ), '{}'::JSONB)
+                );
+        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';
+            new_event_data := jsonb_build_object(
+              'tableName', TG_TABLE_NAME,
+              'rowId', primary_values,
+              'values', update_diff
+                );
+        END;
+        WHEN 'DELETE' THEN BEGIN
+            new_event_type := 'delete';
+            new_event_data := jsonb_build_object(
+              'tableName', TG_TABLE_NAME,
+              'rowId', primary_values
+                );
+        END;
+        ELSE RAISE
+            EXCEPTION 'Unknown TG_OP value %', TG_OP;
+        END CASE;
+    CASE WHEN NULLIF(current_setting('system.current_stage_id' || TG_TABLE_SCHEMA, TRUE), '') IS NULL THEN
+        PERFORM set_config('system.current_stage_id' || TG_TABLE_SCHEMA, "id"::TEXT, TRUE), set_config('system.current_stage_event' || TG_TABLE_SCHEMA, "event_id"::TEXT, TRUE)
+        FROM "stage"
+        WHERE "slug" = right(TG_TABLE_SCHEMA, -length('stage_'))
+            FOR NO KEY UPDATE;
+        ELSE
+        -- do nothing
+        END CASE;
+    previous_id := current_setting('system.current_stage_event' || TG_TABLE_SCHEMA)::UUID;
+    INSERT INTO "event" ("id", "type", "data", "previous_id")
+    VALUES (set_config('system.current_stage_event' || TG_TABLE_SCHEMA, system.uuid_generate_v4()::TEXT, TRUE)::UUID, new_event_type, new_event_data, previous_id);
+
+    RETURN NULL;
+END;
+
+$$ LANGUAGE plpgsql`);
+  builder.sql(`CREATE OR REPLACE FUNCTION "statement_trigger_event"() RETURNS TRIGGER AS
+$$
+BEGIN
+    CASE
+        WHEN NULLIF(current_setting('system.current_stage_id' || TG_TABLE_SCHEMA, TRUE), '') IS NOT NULL THEN
+            UPDATE stage SET event_id = current_setting('system.current_stage_event' || TG_TABLE_SCHEMA)::UUID WHERE id = current_setting('system.current_stage_id' || TG_TABLE_SCHEMA)::UUID;
+        ELSE
+        -- do nothing
+        END CASE;
+    RETURN NULL;
+END;
+$$
+    LANGUAGE plpgsql`);
+  for (const table of junctionTables) {
+    for (const schema2 of schemas) {
+      createEventStatementTrigger(builder, { name: table.tableName, schema: schema2 });
+    }
+  }
+  for (const entity of Object.values(schema.model.entities)) {
+    for (const schema2 of schemas) {
+      createEventStatementTrigger(builder, { name: entity.tableName, schema: schema2 });
+    }
+  }
+}
+export {
+  _20200601103000eventtriggerperf as default
+};
+//# sourceMappingURL=2020-06-01-103000-event-trigger-perf.js.map

package/dist/production/src/migrations/2020-06-01-103000-event-trigger-perf.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"2020-06-01-103000-event-trigger-perf.js","sources":["../../../../../packages/engine-system-api/src/migrations/2020-06-01-103000-event-trigger-perf.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 createEventStatementTrigger = (builder: MigrationBuilder, tableName: Name) => {\n\tbuilder.createTrigger(tableName, 'log_event_statement', {\n\t\twhen: 'AFTER',\n\t\toperation: ['INSERT', 'UPDATE', 'DELETE'],\n\t\tlevel: 'STATEMENT',\n\t\tfunction: {\n\t\t\tschema: 'system',\n\t\t\tname: 'statement_trigger_event',\n\t\t},\n\t})\n}\n\nexport default async function(builder: MigrationBuilder, args: MigrationArgs<SystemMigrationArgs>) {\n\tconst schema = (await args.schemaResolver(args.connection)).schema\n\tconst junctionTables = getJunctionTables(schema.model)\n\tconst schemas = args.project.stages.map(it => `stage_${it.slug}`)\n\tbuilder.sql(`CREATE OR REPLACE FUNCTION \"trigger_event\"() RETURNS TRIGGER AS $$\nDECLARE\n    DECLARE new_event_type TEXT;\n    DECLARE previous_id UUID;\n    DECLARE new_event_data JSONB;\n    DECLARE update_diff JSONB;\n    DECLARE primary_values JSONB;\n    DECLARE old_row JSONB;\n    DECLARE new_row JSONB;\nBEGIN\n    old_row := CASE WHEN TG_OP = 'DELETE' OR TG_OP = 'UPDATE' THEN to_jsonb(old) ELSE NULL END;\n    new_row := CASE WHEN TG_OP = 'INSERT' OR TG_OP = 'UPDATE' THEN to_jsonb(new) ELSE NULL END;\n    primary_values := (\n        SELECT jsonb_agg(value ORDER BY array_position(TG_ARGV, key))\n        FROM jsonb_each(COALESCE(old_row, new_row))\n        WHERE key = ANY (TG_ARGV)\n    );\n\n\n    CASE TG_OP\n        WHEN 'INSERT' THEN BEGIN\n            new_event_type := 'create';\n            new_event_data := jsonb_build_object(\n              'tableName', TG_TABLE_NAME,\n              'rowId', primary_values,\n              'values', COALESCE((\n                                     SELECT jsonb_object_agg(key, value)\n                                     FROM jsonb_each(new_row)\n                                     WHERE NOT (key = ANY (TG_ARGV))\n                                 ), '{}'::JSONB)\n                );\n        END;\n        WHEN 'UPDATE' THEN BEGIN\n            update_diff := (\n                SELECT jsonb_object_agg(coalesce(n.key, o.key), n.value)\n                FROM jsonb_each(old_row) o\n                         FULL OUTER JOIN\n                jsonb_each(new_row) n ON n.key = o.key\n                WHERE n.value IS DISTINCT FROM o.value\n            );\n            IF (SELECT count(*) FROM jsonb_object_keys(update_diff)) = 0 THEN\n                RETURN NULL;\n                END IF;\n            new_event_type := 'update';\n            new_event_data := jsonb_build_object(\n              'tableName', TG_TABLE_NAME,\n              'rowId', primary_values,\n              'values', update_diff\n                );\n        END;\n        WHEN 'DELETE' THEN BEGIN\n            new_event_type := 'delete';\n            new_event_data := jsonb_build_object(\n              'tableName', TG_TABLE_NAME,\n              'rowId', primary_values\n                );\n        END;\n        ELSE RAISE\n            EXCEPTION 'Unknown TG_OP value %', TG_OP;\n        END CASE;\n    CASE WHEN NULLIF(current_setting('system.current_stage_id' || TG_TABLE_SCHEMA, TRUE), '') IS NULL THEN\n        PERFORM set_config('system.current_stage_id' || TG_TABLE_SCHEMA, \"id\"::TEXT, TRUE), set_config('system.current_stage_event' || TG_TABLE_SCHEMA, \"event_id\"::TEXT, TRUE)\n        FROM \"stage\"\n        WHERE \"slug\" = right(TG_TABLE_SCHEMA, -length('stage_'))\n            FOR NO KEY UPDATE;\n        ELSE\n        -- do nothing\n        END CASE;\n    previous_id := current_setting('system.current_stage_event' || TG_TABLE_SCHEMA)::UUID;\n    INSERT INTO \"event\" (\"id\", \"type\", \"data\", \"previous_id\")\n    VALUES (set_config('system.current_stage_event' || TG_TABLE_SCHEMA, system.uuid_generate_v4()::TEXT, TRUE)::UUID, new_event_type, new_event_data, previous_id);\n\n    RETURN NULL;\nEND;\n\n$$ LANGUAGE plpgsql`)\n\tbuilder.sql(`CREATE OR REPLACE FUNCTION \"statement_trigger_event\"() RETURNS TRIGGER AS\n$$\nBEGIN\n    CASE\n        WHEN NULLIF(current_setting('system.current_stage_id' || TG_TABLE_SCHEMA, TRUE), '') IS NOT NULL THEN\n            UPDATE stage SET event_id = current_setting('system.current_stage_event' || TG_TABLE_SCHEMA)::UUID WHERE id = current_setting('system.current_stage_id' || TG_TABLE_SCHEMA)::UUID;\n        ELSE\n        -- do nothing\n        END CASE;\n    RETURN NULL;\nEND;\n$$\n    LANGUAGE plpgsql`)\n\tfor (const table of junctionTables) {\n\t\tfor (const schema of schemas) {\n\t\t\tcreateEventStatementTrigger(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\tcreateEventStatementTrigger(builder, { name: entity.tableName, schema })\n\t\t}\n\t}\n}\n"],"names":["schema"],"mappings":";;;;;;;;;;AAKA,MAAM,8BAA8B,CAAC,SAA2B,cAAoB;AACnF,UAAQ,cAAc,WAAW,uBAAuB;AAAA,IACvD,MAAM;AAAA,IACN,WAAW,CAAC,UAAU,UAAU,QAAQ;AAAA,IACxC,OAAO;AAAA,IACP,UAAU;AAAA,MACT,QAAQ;AAAA,MACR,MAAM;AAAA,IAAA;AAAA,EACP,CACA;AACF;AAEA,eAAA,gCAA8B,SAA2B,MAA0C;AAClG,QAAM,UAAU,MAAM,KAAK,eAAe,KAAK,UAAU,GAAG;AAC5D,QAAM,iBAAiB,kBAAkB,OAAO,KAAK;AACrD,QAAM,UAAU,KAAK,QAAQ,OAAO,IAAI,CAAA,OAAM,SAAS,GAAG,IAAI,EAAE;AAChE,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;AAAA;AAAA,oBA2EO;AACnB,UAAQ,IAAI;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA,qBAYQ;AACpB,aAAW,SAAS,gBAAgB;AACnC,eAAWA,WAAU,SAAS;AAC7B,kCAA4B,SAAS,EAAE,MAAM,MAAM,WAAW,QAAAA,SAAQ;AAAA,IACvE;AAAA,EACD;AACA,aAAW,UAAU,OAAO,OAAO,OAAO,MAAM,QAAQ,GAAG;AAC1D,eAAWA,WAAU,SAAS;AAC7B,kCAA4B,SAAS,EAAE,MAAM,OAAO,WAAW,QAAAA,SAAQ;AAAA,IACxE;AAAA,EACD;AACD;"}

package/dist/production/src/migrations/2021-03-23-110000-timestamp-fix.cjs

@@ -0,0 +1,14 @@
+"use strict";
+const sql = `
+ALTER TABLE "schema_migration"
+	ALTER "executed_at" TYPE TIMESTAMPTZ,
+	ALTER "executed_at" SET DEFAULT now();
+
+ALTER TABLE "event"
+	ALTER "created_at" TYPE TIMESTAMPTZ;
+`;
+async function _20210323110000timestampfix(builder) {
+  builder.sql(sql);
+}
+module.exports = _20210323110000timestampfix;
+//# sourceMappingURL=2021-03-23-110000-timestamp-fix.cjs.map

package/dist/production/src/migrations/2021-03-23-110000-timestamp-fix.cjs.map

@@ -0,0 +1 @@
+{"version":3,"file":"2021-03-23-110000-timestamp-fix.cjs","sources":["../../../../../packages/engine-system-api/src/migrations/2021-03-23-110000-timestamp-fix.ts"],"sourcesContent":["import { MigrationBuilder } from '@contember/database-migrations'\n\nconst sql = `\nALTER TABLE \"schema_migration\"\n\tALTER \"executed_at\" TYPE TIMESTAMPTZ,\n\tALTER \"executed_at\" SET DEFAULT now();\n\nALTER TABLE \"event\"\n\tALTER \"created_at\" TYPE TIMESTAMPTZ;\n`\n\nexport default async function(builder: MigrationBuilder) {\n\tbuilder.sql(sql)\n}\n"],"names":[],"mappings":";AAEA,MAAM,MAAM;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AASZ,eAAA,4BAA8B,SAA2B;AACxD,UAAQ,IAAI,GAAG;AAChB;;"}

package/dist/production/src/migrations/2021-03-23-110000-timestamp-fix.js

@@ -0,0 +1,15 @@
+const sql = `
+ALTER TABLE "schema_migration"
+	ALTER "executed_at" TYPE TIMESTAMPTZ,
+	ALTER "executed_at" SET DEFAULT now();
+
+ALTER TABLE "event"
+	ALTER "created_at" TYPE TIMESTAMPTZ;
+`;
+async function _20210323110000timestampfix(builder) {
+  builder.sql(sql);
+}
+export {
+  _20210323110000timestampfix as default
+};
+//# sourceMappingURL=2021-03-23-110000-timestamp-fix.js.map

package/dist/production/src/migrations/2021-03-23-110000-timestamp-fix.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"2021-03-23-110000-timestamp-fix.js","sources":["../../../../../packages/engine-system-api/src/migrations/2021-03-23-110000-timestamp-fix.ts"],"sourcesContent":["import { MigrationBuilder } from '@contember/database-migrations'\n\nconst sql = `\nALTER TABLE \"schema_migration\"\n\tALTER \"executed_at\" TYPE TIMESTAMPTZ,\n\tALTER \"executed_at\" SET DEFAULT now();\n\nALTER TABLE \"event\"\n\tALTER \"created_at\" TYPE TIMESTAMPTZ;\n`\n\nexport default async function(builder: MigrationBuilder) {\n\tbuilder.sql(sql)\n}\n"],"names":[],"mappings":"AAEA,MAAM,MAAM;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AAAA;AASZ,eAAA,4BAA8B,SAA2B;AACxD,UAAQ,IAAI,GAAG;AAChB;"}

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

@@ -0,0 +1,286 @@
+"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");
+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)).schema;
+  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/production/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)).schema\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;AACtE,UAAQ,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,IAAA;AAAA,EACP,CACA;AACF;AAEA,eAAA,8BAA8B,SAA2B,MAA0C;AAClG,QAAM,UAAU,MAAM,KAAK,eAAe,KAAK,UAAU,GAAG;AAC5D,QAAM,iBAAiBA,aAAAA,kBAAkB,OAAO,KAAK;AACrD,QAAM,UAAU,KAAK,QAAQ,OAAO,IAAI,CAAA,OAAM,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;AAC7B,cAAQ,YAAY,EAAE,MAAM,MAAM,WAAW,QAAAA,QAAAA,GAAU,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;AAC7B,cAAQ,YAAY,EAAE,MAAM,OAAO,WAAW,QAAAA,QAAAA,GAAU,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;;"}