rt/etc/upgrade/3.1.0/acl.Pg


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

sub acl {
    my $dbh = shift;

    my @acls;

    my @tables = qw (
      attributes_id_seq
      attributes
    );

    foreach my $table (@tables) {
        push @acls,
          "GRANT SELECT, INSERT, UPDATE, DELETE ON $table to "
          . $RT::DatabaseUser . ";";

    }
    return (@acls);
}
1;