sub run {
my ($self) = @_;
# create a release to use
$log->info("Connecting to info database");
my $dba =
Bio::EnsEMBL::MetaData::DBSQL::MetaDataDBAdaptor->new(
-USER =>,
$self->param('info_user'),
-PASS =>,
$self->param('info_pass'),
-HOST =>,
$self->param('info_host'),
-PORT =>,
$self->param('info_port'),
-DBNAME =>,
$self->param('info_dbname')
);
my $rdba = $dba->get_DataReleaseInfoAdaptor();
my $release = $self->param('release');
my $eg_release = $self->param('eg_release');
my $release_date = $self->param('release_date');
$log->info( "Storing release e$release" . ( ( defined $eg_release ) ?
"/EG$eg_release" : "" ) .
" $release_date" );
$rdba->store(
Bio::EnsEMBL::MetaData::DataReleaseInfo->new(
-ENSEMBL_VERSION => $release,
-ENSEMBL_GENOMES_VERSION => $eg_release,
-RELEASE_DATE => $release_date )
);
$log->info("Completed release creation");
# run rest of process
$self->SUPER::run();
return;
} ## end sub run
Code:
