[ensembl-dev] Connection to Ensembl variation, funcgen dbs

[Youens-Clark, Ken]

According to this info:

	http://uswest.ensembl.org/info/docs/api/variation/variation_tutorial.html#connect

I believe I should be able to do this:

> $ cat test-connect.pl 
> #!/usr/local/bin/perl
> 
> BEGIN{
>     $ENV{'EnsemblDir'} ||= '/usr/local/ensembl-live/';
> }
> 
> use strict;
> use warnings;
> use autodie;
> 
> use lib map { $ENV{'EnsemblDir'}."/$_" } qw (modules ensembl/modules
>     ensembl-external/modules ensembl-variation/modules ensembl-draw/modules
>     ensembl-compara/modules );
> 
> use Bio::EnsEMBL::Registry;
> 
> my $registry = 'Bio::EnsEMBL::Registry';
> 
> $registry->load_all('/usr/local/gramene/conf/ensembl.registry');
> 
> my $species = 'Zea_mays';
> for my $type ( qw/ core variation funcgen / ) {
>     my $adaptor = $registry->get_adaptor(
>         $species,
>         $type,
>         $type eq 'core'      ? 'gene'      : 
>         $type eq 'variation' ? 'variation' : 
>         ''
>     );
> 
>     printf "$type %sok\n", $adaptor ? '' : 'NOT ';
> }
> 
> $ ./test-connect.pl 
> core ok
> variation NOT ok
> funcgen NOT ok 

Why don't the latter two work?  We have maize funcgen and variation dbs.

Ken