45a0388e4934d80ed9394a8a168c77983bcc1f0b
[working/Evergreen.git] / 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;