[Cogs-guts] ensupdate getensembl.pl,1.3,1.4

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

Update of /cvsroot/cogs/ensupdate
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30128

Modified Files:
	getensembl.pl 
Log Message:
do not chek unless list is suppl.

Index: getensembl.pl
===================================================================
RCS file: /cvsroot/cogs/ensupdate/getensembl.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** getensembl.pl	5 Dec 2005 17:40:07 -0000	1.3
--- getensembl.pl	5 Dec 2005 17:43:02 -0000	1.4
***************
*** 89,100 ****
   my @all=$ftp->dir;
   foreach my $d (@all) {
!   my $req;           #Check if this DB is requested
!   foreach my $target (@list) {
!      if ($d=~/$target/) {
!       $req++;
!       last;
!      }
!   }
    next unless ($req);
  
   my @long=split(/\s/,$d);
--- 89,102 ----
   my @all=$ftp->dir;
   foreach my $d (@all) {
!   if ($#list>-1) {
! 	 my $req;           #Check if this DB is requested
! 	foreach my $target (@list) {
! 		if ($d=~/$target/) {
! 			$req++;
! 			last;
! 		}
! 	}
    next unless ($req);
+   }
  
   my @long=split(/\s/,$d);