Raw content of EnsEMBL::Web::DBSQL::HcDBConnection
<![CDATA[package EnsEMBL::Web::DBSQL::HcDBConnection;
### Connection to healthchecks database
use strict;
use warnings;
use EnsEMBL::Web::Cache;
our $cache = new EnsEMBL::Web::Cache;
sub import {
my ($class, $species_defs) = @_;
my $caller = caller;
my $dsn = join(':',
'dbi',
'mysql',
$species_defs->multidb->{'DATABASE_HEALTHCHECK'}{'NAME'},
$species_defs->multidb->{'DATABASE_HEALTHCHECK'}{'HOST'},
$species_defs->multidb->{'DATABASE_HEALTHCHECK'}{'PORT'},
);
$caller->connection(
$dsn,
$species_defs->DATABASE_WRITE_USER,
$species_defs->DATABASE_WRITE_PASS,
{
RaiseError => 1,
PrintError => 1,
AutoCommit => 1,
}
) || die "Can not connect to $dsn";
$caller->cache($cache)
if $cache;
}
1;
]]>