|
Lines 63-68
$info{'dbms'} = (
Link Here
|
| 63 |
: "mysql" |
63 |
: "mysql" |
| 64 |
); |
64 |
); |
| 65 |
$info{'hostname'} = C4::Context->config("hostname"); |
65 |
$info{'hostname'} = C4::Context->config("hostname"); |
|
|
66 |
$info{'webserver'} = C4::Context->config("webserver"); |
| 66 |
$info{'port'} = C4::Context->config("port"); |
67 |
$info{'port'} = C4::Context->config("port"); |
| 67 |
$info{'user'} = C4::Context->config("user"); |
68 |
$info{'user'} = C4::Context->config("user"); |
| 68 |
$info{'password'} = C4::Context->config("pass"); |
69 |
$info{'password'} = C4::Context->config("pass"); |
|
Lines 147-153
elsif ( $step && $step == 2 ) {
Link Here
|
| 147 |
#Check if user have all necessary grants on this database. |
148 |
#Check if user have all necessary grants on this database. |
| 148 |
my $rq = |
149 |
my $rq = |
| 149 |
$dbh->prepare( |
150 |
$dbh->prepare( |
| 150 |
"SHOW GRANTS FOR \'$info{user}\'\@'$info{hostname}'"); |
151 |
"SHOW GRANTS FOR \'$info{user}\'\@'$info{webserver}'"); |
| 151 |
$rq->execute; |
152 |
$rq->execute; |
| 152 |
my $grantaccess; |
153 |
my $grantaccess; |
| 153 |
while ( my ($line) = $rq->fetchrow ) { |
154 |
while ( my ($line) = $rq->fetchrow ) { |
| 154 |
- |
|
|