[Cogs-guts] ensupdate ensdbnames_org.pl,1.1.1.1,1.2

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

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

Modified Files:
	ensdbnames_org.pl 
Log Message:
added mysql connect params , bugs

Index: ensdbnames_org.pl
===================================================================
RCS file: /cvsroot/cogs/ensupdate/ensdbnames_org.pl,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** ensdbnames_org.pl	2 Dec 2005 17:04:01 -0000	1.1.1.1
--- ensdbnames_org.pl	14 Sep 2007 18:08:37 -0000	1.2
***************
*** 1,10 ****
! #!/usr/bin/perl
  use DBI;
! my $user=$ENV{ENS_USER};
! my $pass=$ENV{ENS_PASS};
  my $host=$ENV{ENS_HOST};
  my $sock=$ENV{ENS_SOCK};
  my $sid='ensembl_databases';
! my $cs = "dbi:mysql:$sid:$host;mysql_socket=$sock";
  my $dbh= DBI->connect($cs,$user,$pass) or die "connecting: $DBI::errstr" ;
  
--- 1,11 ----
! #!/stf/sys/bin/perl
  use DBI;
! my $user=$ENV{ENS_ADMIN};
! my $pass=$ENV{ENS_ADMINPASS};
  my $host=$ENV{ENS_HOST};
  my $sock=$ENV{ENS_SOCK};
+ my $port=$ENV{ENS_PORT};
  my $sid='ensembl_databases';
! my $cs = "dbi:mysql:$sid:$host;mysql_socket=$sock;port=$port";
  my $dbh= DBI->connect($cs,$user,$pass) or die "connecting: $DBI::errstr" ;
  
***************
*** 13,19 ****
  $qh1->execute||die;
  while (my $name=$qh1->fetchrow_array) {
  	my @dat=split(/_/,$name);
  	my $sp;
! 	if ($#dat==4) {
  		$sp=$dat[0].' '.$dat[1];
  	}
--- 14,21 ----
  $qh1->execute||die;
  while (my $name=$qh1->fetchrow_array) {
+ 	next if ($name =~/web/);
  	my @dat=split(/_/,$name);
  	my $sp;
! 	if (($#dat==4)&&($name!~/web/)&&($name!~/compara/)&&($name!~/mart/)) {
  		$sp=$dat[0].' '.$dat[1];
  	}