FIX: switched to dbi in lower case

This commit is contained in:
Dominik Meyer 2023-12-27 11:19:58 +01:00
parent 99844dec19
commit 1197d6524e
Signed by: byterazor
GPG Key ID: EABDA0FD5981BC97

View File

@ -35,7 +35,7 @@ sub createDSN
{ {
my $self = shift; my $self = shift;
my $dsn = "DBI:MariaDB:database=" . $self->{database} . ";host=" . $self->{host} . ";port=" . $self->{port}; my $dsn = "dbi:MariaDB(RaiseError=>0):database=" . $self->{database} . ";host=" . $self->{host} . ";port=" . $self->{port};
$self->{dsn} = $dsn; $self->{dsn} = $dsn;
$self->log(LOGDEBUG, "created DSN " . $self->{dsn}); $self->log(LOGDEBUG, "created DSN " . $self->{dsn});
@ -179,6 +179,8 @@ sub askDatabase
{ {
my $self = shift; my $self = shift;
my $recipient = shift; my $recipient = shift;
$self->log(LOGDEBUG, "use DSN " . $self->{dsn});
my $dbh = DBI::connect($self->{dsn}, $self->{user}, $self->{pass}); my $dbh = DBI::connect($self->{dsn}, $self->{user}, $self->{pass});
if ($dbh->err()) if ($dbh->err())