Add auto-load functionality for the Ancestral sequences DB

modules/Bio/EnsEMBL/Registry.pm

@@ -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";