Revision be54aea5
Von Moritz Bunkus vor etwa 7 Jahren hinzugefügt
| SL/User.pm | ||
|---|---|---|
| 130 | 130 |
my $dbh = SL::DBConnect->connect($dbconnect_form{dbconnect}, $dbconnect_form{dbuser}, $dbconnect_form{dbpasswd}, SL::DBConnect->get_options);
|
| 131 | 131 |
return (%result, error => $::locale->text('The credentials (username & password) for connecting database are wrong.')) if !$dbh;
|
| 132 | 132 |
|
| 133 |
my ($is_superuser) = $dbh->selectrow_array(qq|SELECT usesuper FROM pg_user WHERE usename = ?|, undef, $dbconnect_form{dbuser});
|
|
| 133 |
my $is_superuser = SL::DBUtils::role_is_superuser($dbh, $dbconnect_form{dbuser});
|
|
| 134 | 134 |
|
| 135 | 135 |
$dbh->disconnect; |
| 136 | 136 |
|
Auch abrufbar als: Unified diff
Datenbank anlegen: Super-User-Rechte abfragen, sofern nötig