File: acl.Pg

package info (click to toggle)
rtfm 2.0.3-1
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 812 kB
  • ctags: 220
  • sloc: perl: 3,426; sh: 153; makefile: 144
file content (35 lines) | stat: -rw-r--r-- 561 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 

sub acl {
    my $dbh = shift;

    my @acls;

    my @tables = qw (
fm_classes_id_seq
FM_Classes 
FM_ClassCustomFields_id_seq 
FM_ClassCustomFields 
FM_CustomFields_id_seq 
FM_CustomFields 
FM_Articles_id_seq 
FM_Articles 
FM_CustomFieldValues_id_seq 
FM_CustomFieldValues 
FM_ArticleCFValues_id_seq 
FM_ArticleCFValues 
FM_Transactions_id_seq 
FM_Transactions 

    );

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

    }
    return (@acls);
}
1;