Open-ILS/src/sql/Pg/upgrade/0526.schema.upgrade-dep-tracking.sql

   1 BEGIN;
   2
   3 INSERT INTO config.upgrade_log (version) VALUES ('0526'); --miker
   4
   5 CREATE TABLE config.db_patch_dependencies (
   6   db_patch      TEXT PRIMARY KEY,
   7   supersedes    TEXT[],
   8   deprecates    TEXT[]
   9 );
  10
  11 CREATE OR REPLACE FUNCTION evergreen.array_overlap_check (/* field */) RETURNS TRIGGER AS $$
  12 DECLARE
  13     fld     TEXT;
  14     cnt     INT;
  15 BEGIN
  16     fld := TG_ARGV[1];
  17     EXECUTE 'SELECT COUNT(*) FROM '|| TG_TABLE_SCHEMA ||'.'|| TG_TABLE_NAME ||' WHERE '|| fld ||' && ($1).'|| fld INTO cnt USING NEW;
  18     IF cnt > 0 THEN
  19         RAISE EXCEPTION 'Cannot insert duplicate array into field % of table %', fld, TG_TABLE_SCHEMA ||'.'|| TG_TABLE_NAME;
  20     END IF;
  21     RETURN NEW;
  22 END;
  23 $$ LANGUAGE PLPGSQL;
  24
  25 CREATE TRIGGER no_overlapping_sups
  26     BEFORE INSERT OR UPDATE ON config.db_patch_dependencies
  27     FOR EACH ROW EXECUTE PROCEDURE evergreen.array_overlap_check ('supersedes');
  28
  29 CREATE TRIGGER no_overlapping_deps
  30     BEFORE INSERT OR UPDATE ON config.db_patch_dependencies
  31     FOR EACH ROW EXECUTE PROCEDURE evergreen.array_overlap_check ('deprecates');
  32
  33 ALTER TABLE config.upgrade_log
  34     ADD COLUMN applied_to TEXT;
  35
  36 -- List applied db patches that are deprecated by (and block the application of) my_db_patch
  37 CREATE OR REPLACE FUNCTION evergreen.upgrade_list_applied_deprecates ( my_db_patch TEXT ) RETURNS SETOF TEXT AS $$
  38     SELECT  DISTINCT l.version
  39       FROM  config.upgrade_log l
  40             JOIN config.db_patch_dependencies d ON (l.version::TEXT[] && d.deprecates)
  41       WHERE d.db_patch = $1
  42 $$ LANGUAGE SQL;
  43
  44 -- List applied db patches that are superseded by (and block the application of) my_db_patch
  45 CREATE OR REPLACE FUNCTION evergreen.upgrade_list_applied_supersedes ( my_db_patch TEXT ) RETURNS SETOF TEXT AS $$
  46     SELECT  DISTINCT l.version
  47       FROM  config.upgrade_log l
  48             JOIN config.db_patch_dependencies d ON (l.version::TEXT[] && d.supersedes)
  49       WHERE d.db_patch = $1
  50 $$ LANGUAGE SQL;
  51
  52 -- List applied db patches that deprecates (and block the application of) my_db_patch
  53 CREATE OR REPLACE FUNCTION evergreen.upgrade_list_applied_deprecated ( my_db_patch TEXT ) RETURNS TEXT AS $$
  54     SELECT  db_patch
  55       FROM  config.db_patch_dependencies
  56       WHERE ARRAY[$1]::TEXT[] && deprecates
  57 $$ LANGUAGE SQL;
  58
  59 -- List applied db patches that supersedes (and block the application of) my_db_patch
  60 CREATE OR REPLACE FUNCTION evergreen.upgrade_list_applied_superseded ( my_db_patch TEXT ) RETURNS TEXT AS $$
  61     SELECT  db_patch
  62       FROM  config.db_patch_dependencies
  63       WHERE ARRAY[$1]::TEXT[] && supersedes
  64 $$ LANGUAGE SQL;
  65
  66 -- Make sure that no deprecated or superseded db patches are currently applied
  67 CREATE OR REPLACE FUNCTION evergreen.upgrade_verify_no_dep_conflicts ( my_db_patch TEXT ) RETURNS BOOL AS $$
  68     SELECT  COUNT(*) = 0
  69       FROM  (SELECT * FROM evergreen.upgrade_list_applied_deprecates( $1 )
  70                 UNION
  71              SELECT * FROM evergreen.upgrade_list_applied_supersedes( $1 )
  72                 UNION
  73              SELECT * FROM evergreen.upgrade_list_applied_deprecated( $1 )
  74                 UNION
  75              SELECT * FROM evergreen.upgrade_list_applied_superseded( $1 ))x
  76 $$ LANGUAGE SQL;
  77
  78 -- Raise an exception if there are, in fact, dep/sup confilct
  79 CREATE OR REPLACE FUNCTION evergreen.upgrade_deps_block_check ( my_db_patch TEXT, my_applied_to TEXT ) RETURNS BOOL AS $$
  80 BEGIN
  81     IF NOT evergreen.upgrade_verify_no_dep_conflicts( my_db_patch ) THEN
  82         RAISE EXCEPTION '
  83 Upgrade script % can not be applied:
  84   applied deprecated scripts %
  85   applied superseded scripts %
  86   deprecated by %
  87   superseded by %',
  88             my_db_patch,
  89             ARRAY_ACUM(evergreen.upgrade_list_applied_deprecates(my_db_patch)),
  90             ARRAY_ACUM(evergreen.upgrade_list_applied_supersedes(my_db_patch)),
  91             evergreen.upgrade_list_applied_deprecated(my_db_patch),
  92             evergreen.upgrade_list_applied_superseded(my_db_patch);
  93     END IF;
  94
  95     INSERT INTO config.upgrade_log (version, applied_to) VALUES (my_db_patch, my_applied_to);
  96     RETURN TRUE;
  97 END;
  98 $$ LANGUAGE PLPGSQL;
  99
 100 COMMIT;