]>
Commit | Line | Data |
---|---|---|
84fb5b46 MKG |
1 | |
2 | sub acl { | |
3 | my $db_name = RT->Config->Get('DatabaseName'); | |
4 | my $db_rthost = RT->Config->Get('DatabaseRTHost'); | |
5 | my $db_user = RT->Config->Get('DatabaseUser'); | |
6 | my $db_pass = RT->Config->Get('DatabasePassword'); | |
7 | unless ( $db_user ) { | |
320f0092 | 8 | RT->Logger->warn("DatabaseUser option is not defined or empty. Skipping..."); |
84fb5b46 MKG |
9 | return; |
10 | } | |
11 | if ( $db_user eq 'root' ) { | |
320f0092 | 12 | RT->Logger->warn("DatabaseUser is root. Skipping..."); |
84fb5b46 MKG |
13 | return; |
14 | } | |
84fb5b46 MKG |
15 | $db_name =~ s/([_%])/\\$1/g; |
16 | return ( | |
17 | "GRANT SELECT,INSERT,CREATE,INDEX,UPDATE,DELETE | |
18 | ON `$db_name`.* | |
19 | TO '$db_user'\@'$db_rthost' | |
20 | IDENTIFIED BY '$db_pass';", | |
21 | ); | |
22 | } | |
23 | ||
24 | 1; |