FIX: switched to dbi in lower case
This commit is contained in:
parent
99844dec19
commit
1197d6524e
@ -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())
|
||||||
|
Loading…
Reference in New Issue
Block a user