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

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

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

Modified Files:
	load_ensembl.pl 
Log Message:
some messages...

Index: load_ensembl.pl
===================================================================
RCS file: /cvsroot/cogs/ensupdate/load_ensembl.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** load_ensembl.pl	6 Dec 2005 15:40:52 -0000	1.3
--- load_ensembl.pl	6 Dec 2005 20:26:54 -0000	1.4
***************
*** 30,34 ****
  		push @dbs,$db;
  	}
! open (DBS, "dbs" )||die"Cannot write the database data\n";
  while (my $db=<DBS>) {
    chomp $db;
--- 30,35 ----
  		push @dbs,$db;
  	}
! open (DBS, "dbs" )||die "No the databases to load\n";
! my $count;
  while (my $db=<DBS>) {
    chomp $db;
***************
*** 65,69 ****
  }
    chdir("..");
  }
  close DBS;
! 
--- 66,71 ----
  }
    chdir("..");
+   $count++;
  }
  close DBS;
! print "$count databases loaded successfully\n";