Revision 76c486e3
Von Sven Schöling vor etwa 15 Jahren hinzugefügt
| SL/Auth.pm | ||
|---|---|---|
| 19 | 19 |
use SL::User; |
| 20 | 20 |
use SL::DBUtils; |
| 21 | 21 |
|
| 22 |
use strict; |
|
| 23 |
|
|
| 22 | 24 |
sub new {
|
| 23 | 25 |
$main::lxdebug->enter_sub(); |
| 24 | 26 |
|
| ... | ... | |
| 140 | 142 |
$dsn .= ';port=' . $cfg->{port};
|
| 141 | 143 |
} |
| 142 | 144 |
|
| 143 |
$main::lxdebug->message(LXDebug::DEBUG1, "Auth::dbconnect DSN: $dsn");
|
|
| 145 |
$main::lxdebug->message(LXDebug->DEBUG1, "Auth::dbconnect DSN: $dsn");
|
|
| 144 | 146 |
|
| 145 | 147 |
$self->{dbh} = DBI->connect($dsn, $cfg->{user}, $cfg->{password}, { 'AutoCommit' => 0 });
|
| 146 | 148 |
|
| ... | ... | |
| 215 | 217 |
$dsn .= ';port=' . $cfg->{port};
|
| 216 | 218 |
} |
| 217 | 219 |
|
| 218 |
$main::lxdebug->message(LXDebug::DEBUG1, "Auth::create_database DSN: $dsn");
|
|
| 220 |
$main::lxdebug->message(LXDebug->DEBUG1(), "Auth::create_database DSN: $dsn");
|
|
| 219 | 221 |
|
| 220 | 222 |
my $dbh = DBI->connect($dsn, $params{superuser}, $params{superuser_password});
|
| 221 | 223 |
|
| ... | ... | |
| 230 | 232 |
|
| 231 | 233 |
my $query = qq|CREATE DATABASE "$cfg->{db}" OWNER "$cfg->{user}" TEMPLATE "$params{template}" ENCODING '$encoding'|;
|
| 232 | 234 |
|
| 233 |
$main::lxdebug->message(LXDebug::DEBUG1, "Auth::create_database query: $query");
|
|
| 235 |
$main::lxdebug->message(LXDebug->DEBUG1(), "Auth::create_database query: $query");
|
|
| 234 | 236 |
|
| 235 | 237 |
$dbh->do($query); |
| 236 | 238 |
|
Auch abrufbar als: Unified diff
Und wieder ein Schwung strict.