Upgrade 4.0.17 clean.
[usit-rt.git] / etc / upgrade / 4.0.1 / acl.Pg
1
2 sub acl {
3     my $dbh = shift;
4
5     my @acls;
6
7     my @tables = qw (
8         classes_id_seq
9         Classes
10         articles_id_seq
11         Articles
12         topics_id_seq
13         Topics
14         objecttopics_id_seq
15         ObjectTopics
16         objectclasses_id_seq
17         ObjectClasses
18     );
19
20     my $db_user = RT->Config->Get('DatabaseUser');
21
22     my $sequence_right
23         = ( $dbh->{pg_server_version} >= 80200 )
24         ? "USAGE, SELECT, UPDATE"
25         : "SELECT, UPDATE";
26
27     foreach my $table (@tables) {
28         # Tables are upper-case, sequences are lowercase
29         if ( $table =~ /^[a-z]/ ) {
30             push @acls, "GRANT $sequence_right ON $table TO \"$db_user\";"
31         }
32         else {
33             push @acls, "GRANT SELECT, INSERT, UPDATE, DELETE ON $table TO \"$db_user\";"
34         }
35     }
36     return (@acls);
37 }
38
39 1;