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   EXCLUDE ( supersedes WITH &&, deprecates WITH && )
  10 );
  11
  12 ALTER TABLE config.upgrade_log
  13     ADD COLUMN applied_to TEXT;
  14
  15 -- List applied db patches that are deprecated by (and block the application of) my_db_patch
  16 CREATE OR REPLACE FUNCTION evergreen.upgrade_list_applied_deprecates ( my_db_patch TEXT ) RETURNS SETOF TEXT AS $$
  17     SELECT  DISTINCT l.version
  18       FROM  config.upgrade_log l
  19             JOIN config.db_patch_dependencies d ON (l.version::TEXT[] && d.deprecates)
  20       WHERE d.db_patch = my_db_patch
  21 $$ LANGUAGE SQL;
  22
  23 -- List applied db patches that are superseded by (and block the application of) my_db_patch
  24 CREATE OR REPLACE FUNCTION evergreen.upgrade_list_applied_supersedes ( my_db_patch TEXT ) RETURNS SETOF TEXT AS $$
  25     SELECT  DISTINCT l.version
  26       FROM  config.upgrade_log l
  27             JOIN config.db_patch_dependencies d ON (l.version::TEXT[] && d.supersedes)
  28       WHERE d.db_patch = my_db_patch
  29 $$ LANGUAGE SQL;
  30
  31 -- List applied db patches that deprecates (and block the application of) my_db_patch
  32 CREATE OR REPLACE FUNCTION evergreen.upgrade_list_applied_superseded ( my_db_patch TEXT ) RETURNS TEXT AS $$
  33     SELECT  db_patch
  34       FROM  config.db_patch_dependencies
  35       WHERE my_db_patch::TEXT[] && deprecates
  36 $$ LANGUAGE SQL;
  37
  38 -- List applied db patches that supersedes (and block the application of) my_db_patch
  39 CREATE OR REPLACE FUNCTION evergreen.upgrade_list_applied_superseded ( my_db_patch TEXT ) RETURNS TEXT AS $$
  40     SELECT  db_patch
  41       FROM  config.db_patch_dependencies
  42       WHERE my_db_patch::TEXT[] && supersedes
  43 $$ LANGUAGE SQL;
  44
  45 -- Make sure that no deprecated or superseded db patches are currently applied
  46 CREATE OR REPLACE FUNCTION evergreen.upgrade_verify_no_dep_conflicts ( my_db_patch TEXT ) RETURNS BOOL AS $$
  47     SELECT  COUNT(*) = 0
  48       FROM  (SELECT * FROM evergreen.upgrade_list_applied_deprecates( my_db_patch )
  49                 UNION
  50              SELECT * FROM evergreen.upgrade_list_applied_supersedes( my_db_patch )
  51                 UNION
  52              SELECT * FROM evergreen.upgrade_list_applied_deprecated( my_db_patch )
  53                 UNION
  54              SELECT * FROM evergreen.upgrade_list_applied_superseded( my_db_patch ))x
  55 $$ LANGUAGE SQL;
  56
  57 -- Raise an exception if there are, in fact, dep/sup confilct
  58 CREATE OR REPLACE FUNCTION evergreen.upgrade_deps_block_check ( my_db_patch TEXT, my_applied_to TEXT ) RETURNS BOOL AS $$
  59 BEGIN
  60     IF NOT evergreen.upgrade_verify_no_dep_conflicts( my_db_patch ) THEN
  61         RAISE EXCEPTION '
  62 Upgrade script % can not be applied:
  63   applied deprecated scripts %
  64   applied superseded scripts %
  65   deprecated by %
  66   superseded by %',
  67             my_db_patch,
  68             ARRAY_ACUM(evergreen.upgrade_list_applied_deprecates(my_db_patch)),
  69             ARRAY_ACUM(evergreen.upgrade_list_applied_supersedes(my_db_patch)),
  70             evergreen.upgrade_list_applied_deprecated(my_db_patch),
  71             evergreen.upgrade_list_applied_superseded(my_db_patch);
  72     END IF;
  73
  74     INSERT INTO config.upgrade_log (version, applied_to) VALUES (my_db_patch, my_applied_to);
  75     RETURN TRUE;
  76 END;
  77 $$ LANGUAGE SQL;
  78
  79 COMMIT;