kalipso/racalmas
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

db.pm: connection cache

Browse Source
This commit is contained in:
Milan
2019-10-06 21:44:43 +02:00
parent a7828b52d9
commit 72b0408515
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lib/calcms/db.pm
View File

@@ -5,6 +5,7 @@ use warnings;
no warnings 'redefine';
use DBD::mysql();
use Digest::MD5 qw();
use Data::Dumper;
use base 'Exporter';
@@ -46,10 +47,12 @@ sub connect($;$) {
$password = $access_options->{password_write};
}
my $dbh = undef;
my $dsn = "DBI:mysql:database=$database;host=$hostname;port=$port";
$dbh = DBI->connect( $dsn, $username, $password, { mysql_enable_utf8 => 1 } )
my $key = Digest::MD5::md5($dsn.$username.$password);
return $options->{connections}->{$key} if defined $options->{connections}->{$key};
my $dbh = DBI->connect( $dsn, $username, $password, { mysql_enable_utf8 => 1 } )
|| die "could not connect to database: $DBI::errstr";
$dbh->{RaiseError} = 1;
@@ -60,6 +63,7 @@ sub connect($;$) {
put( $dbh, "set time_zone='" . $options->{date}->{time_zone} . "'" );
$request->{connection} = $dbh;
$options->{connections}->{$key} = $dbh;
return $dbh;
}