[Cogs-guts] ensupdate getensembl.pl,1.9,1.10

[kirovs <ki...@us...>]

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) {