sub acl {
    my $dbh = shift;

    my @acls;
    my @tables = qw (
        switcheduserrealactors_id_req
        SwitchedUserRealActors
    );

    my $db_user = RT->Config->Get('DatabaseUser');

    my $sequence_right = "USAGE, SELECT, UPDATE";

    foreach my $table (@tables) {
        # Tables are upper-case, sequences are lowercase in @tables
        if ( $table =~ /^[a-z]/ ) {
            push @acls, "GRANT $sequence_right ON $table TO \"$db_user\";"
        }
        else {
            push @acls, "GRANT SELECT, INSERT, UPDATE, DELETE ON $table TO \"$db_user\";"
        }
    }
    return @acls;
}

1;