Revision a3f90d6f
Von Sven Schöling vor etwa 14 Jahren hinzugefügt
| SL/Auth.pm | ||
|---|---|---|
| 33 | 33 |
return $self; |
| 34 | 34 |
} |
| 35 | 35 |
|
| 36 |
sub get_user_dbh {
|
|
| 37 |
my ($self, $login) = @_; |
|
| 38 |
my %user = $self->read_user($login); |
|
| 39 |
my $dbh = DBI->connect( |
|
| 40 |
$user{dbconnect},
|
|
| 41 |
$user{dbuser},
|
|
| 42 |
$user{dbpasswd},
|
|
| 43 |
{
|
|
| 44 |
pg_enable_utf8 => $::locale->is_utf8, |
|
| 45 |
AutoCommit => 0 |
|
| 46 |
} |
|
| 47 |
) or $::form->dberror; |
|
| 48 |
|
|
| 49 |
if ($user{dboptions}) {
|
|
| 50 |
$dbh->do($user{dboptions}) or $::form->dberror($user{dboptions});
|
|
| 51 |
} |
|
| 52 |
|
|
| 53 |
return $dbh; |
|
| 54 |
} |
|
| 55 |
|
|
| 36 | 56 |
sub DESTROY {
|
| 37 | 57 |
my $self = shift; |
| 38 | 58 |
|
Auch abrufbar als: Unified diff
Druckeradministration in die Adminumgebung verschoben.
Printercommands werden mit webuser Rechnten ausgeführt, deshalb darf ein User
keine anlegen. Da die Umgebung da völlig anders ist, geht das mit einem Rewrite
der Masken einher.