00001 00002 =head1 LICENSE 00003 00004 Copyright [2009-2016] EMBL-European Bioinformatics Institute 00005 00006 Licensed under the Apache License, Version 2.0 (the "License"); 00007 you may not use this file except in compliance with the License. 00008 You may obtain a copy of the License at 00009 00010 http://www.apache.org/licenses/LICENSE-2.0 00011 00012 Unless required by applicable law or agreed to in writing, software 00013 distributed under the License is distributed on an "AS IS" BASIS, 00014 WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. 00015 See the License for the specific language governing permissions and 00016 limitations under the License. 00017 00018 =head1 CONTACT 00019 00020 Please email comments or questions to the public Ensembl 00021 developers list at <dev@ensembl.org>. 00022 00023 Questions may also be sent to the Ensembl help desk at 00024 <helpdesk@ensembl.org>. 00025 00026 =head1 NAME 00027 00028 Bio::EnsEMBL::MetaData::Pipeline::UpdateBools 00029 00030 =head1 DESCRIPTION 00031 00032 Runnable update genome boolean columns post-load 00033 00034 =head1 AUTHOR 00035 00036 Dan Staines 00037 00038 =cut 00039 00040 use warnings; 00041 use strict; 00042 00043 package Bio::EnsEMBL::MetaData::Pipeline::UpdateBools; 00044 00045 use base qw/Bio::EnsEMBL::Production::Pipeline::Base/; 00046 00047 use Bio::EnsEMBL::MetaData::DBSQL::GenomeInfoAdaptor; 00048 use Bio::EnsEMBL::MetaData::AnnotationAnalyzer; 00049 use Bio::EnsEMBL::MetaData::DBSQL::MetaDataDBAdaptor; 00050 00051 use Carp; 00052 use Data::Dumper; 00053 use Log::Log4perl qw(:easy); 00054 Log::Log4perl->easy_init($INFO); 00055 my $log = get_logger(); 00056 00057 sub param_defaults { 00058 my ($self) = @_; 00059 return {}; 00060 } 00061 00062 sub fetch_input { 00063 my ($self) = @_; 00064 return; 00065 } 00066 00067 sub run { 00068 my ($self) = @_; 00069 $log->info("Connecting to info database"); 00070 $log->info("Connecting to info database"); 00071 my $dba = Bio::EnsEMBL::MetaData::DBSQL::MetaDataDBAdaptor->new( 00072 -USER =>, 00073 $self->param('info_user'), 00074 -PASS =>, 00075 $self->param('info_pass'), 00076 -HOST =>, 00077 $self->param('info_host'), 00078 -PORT =>, 00079 $self->param('info_port'), 00080 -DBNAME =>, 00081 $self->param('info_dbname') 00082 ); 00083 my $gdba = $dba->get_GenomeInfoAdaptor(); 00084 $log->info("Updating booleans"); 00085 $gdba->update_booleans(); 00086 $log->info("Completed updating booleans"); 00087 return; 00088 } 00089 00090 sub write_output { 00091 my ($self) = @_; 00092 return; 00093 } 00094 00095 1; 00096