view release on metacpan or  search on metacpan

GMOD/Admin/Update.pm  view on Meta::CPAN

5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
use Bio::GMOD;
use Bio::GMOD::Util::Mirror;
use Bio::GMOD::Util::CheckVersions;
use Bio::GMOD::Util::Rearrange;
 
@ISA = qw/Bio::GMOD Bio::GMOD::Util::CheckVersions/;
 
# Currently, there is no generic update method.  Bio::GMOD::Admin::Update
# must be subclassed for your particular MOD
sub update {
  my $self = shift;
  my $adaptor = $self->adaptor;
  my $name = $adaptor->name;
  $self->logit("$name does not currently support automated updates at this time. Please ask the administrators of $name to add this functionality.",
               -die => 1);
}
 
 
# MORE TWEAKS NEEDED - configuration, verbosity, etc
sub mirror {

GMOD/Admin/Update/WormBase.pm  view on Meta::CPAN

9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
#use Bio::GMOD::Admin::Monitor::blat;
use Bio::GMOD::Util::Rearrange;
use File::Path 'rmtree';
 
 
@ISA = qw/Bio::GMOD::Admin::Update/;
 
################################################
#  WormBase-specific update methods
################################################
sub update {
  my ($self,@p) = @_;
  my $adaptor = $self->adaptor;
  $adaptor->parse_params(@p);
 
  my $version = $adaptor->version;
  my $rsync_module = $adaptor->rsync_module;
 
  $self->analyze_logs(-version => $version,
                      -site    => `hostname`);
  $self->prepare_tmp_dir();