Update of /cvsroot/cogs/ensupdate
In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv11155
Modified Files:
getensembl.pl
Log Message:
Bug fixes
Index: getensembl.pl
===================================================================
RCS file: /cvsroot/cogs/ensupdate/getensembl.pl,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** getensembl.pl 23 Oct 2007 20:23:24 -0000 1.9
--- getensembl.pl 9 Jan 2008 20:10:13 -0000 1.10
***************
*** 40,44 ****
$rmtdir = '/pub';
chdir $prefix;
! #system("rmdir -fr newdata") if (!(-e 'newdata'));
system("mkdir newdata") if (!(-e 'newdata'));
$locdir = "$prefix/newdata";
--- 40,44 ----
$rmtdir = '/pub';
chdir $prefix;
! #system("rmdir -fr newdata") if (-e 'newdata');
system("mkdir newdata") if (!(-e 'newdata'));
$locdir = "$prefix/newdata";
***************
*** 79,82 ****
--- 79,83 ----
#This is only for the core DB- get
foreach my $db (@dbs) {
+ next unless ($db=~/^d/);
if ($#list>-1) {
my $req; #Check if this DB is requested
***************
*** 107,114 ****
#$ftp->cwd($name)||die $name;
- my @all=$ftp->dir;
- foreach my $d (@all) {
-
-
my @files=grep (!/total/,$ftp->dir);
my $cf=$ftp->pwd;
--- 108,111 ----
***************
*** 135,147 ****
$ftp->login('anonymous', $enslogin) or
die "Cannot login ($host)\n:". $ftp->message;
}
- $ftp->cwd("/$cf")||die "CF: $cf";
$ftp->cwd("..");
print 'CW1',$ftp->pwd,"\n";
}
- $ftp->cwd("../../..");
- print 'CW2',$ftp->pwd,"\n";
-
- }
open (DBS, ">dbs" )||die "Cannot write the database data\n";
foreach my $db (@cores) {
--- 132,140 ----
$ftp->login('anonymous', $enslogin) or
die "Cannot login ($host)\n:". $ftp->message;
+ $ftp->cwd("$cf")||die "CF: $cf";
}
$ftp->cwd("..");
print 'CW1',$ftp->pwd,"\n";
}
open (DBS, ">dbs" )||die "Cannot write the database data\n";
foreach my $db (@cores) {
|
