Commit d4cbb607 authored by Javier Herrero's avatar Javier Herrero
Browse files

Add auto-load functionality for the Ancestral sequences DB

parent 48aa92b4
......@@ -1166,6 +1166,7 @@ sub load_registry_from_db {
my $go_version = 0;
my $compara_version =0;
my $ancestral_version =0;
$user ||= "ensro";
if(!defined($port)){
......@@ -1201,6 +1202,11 @@ sub load_registry_from_db {
$compara_version = $1;
}
}
elsif($db =~ /^ensembl_ancestral_(\d+)/){
if($1 eq $software_version){
$ancestral_version = $1;
}
}
elsif($db =~ /^ensembl_go_(\d+)/){
if($1 eq $software_version){
$go_version = $1;
......@@ -1371,6 +1377,26 @@ sub load_registry_from_db {
}
#Ancestral sequences
if($ancestral_version){
my $ancestral_db = "ensembl_ancestral_".$ancestral_version;
my $dba = Bio::EnsEMBL::DBSQL::DBAdaptor->new
( -group => "core",
-species => "Ancestral sequences",
-host => $host,
-user => $user,
-pass => $pass,
-port => $port,
-wait_timeout => $wait_timeout,
-dbname => $ancestral_db
);
print $ancestral_db." loaded\n" if ($verbose);
}
else{
print "No Ancestral database found" if ($verbose);
}
#GO
if($go_version){
eval "require Bio::EnsEMBL::ExternalData::GO::GOAdaptor";
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment