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

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

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

Modified Files:
	load_ensembl.pl 
Log Message:
backcompatibility with mysql older than v5

Index: load_ensembl.pl
===================================================================
RCS file: /cvsroot/cogs/ensupdate/load_ensembl.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** load_ensembl.pl	6 Dec 2005 20:26:54 -0000	1.4
--- load_ensembl.pl	12 Dec 2005 14:29:42 -0000	1.5
***************
*** 12,15 ****
--- 12,21 ----
  my $host=$ENV{ENS_HOST};
  my $sock=$ENV{ENS_SOCK};
+ open (MSQLV,'mysql -V|')||die 'Mysql crashed or no mysql installed';
+ my $msqlv=<MSQLV>;
+ close MSQLV;
+ my ($tr,$mver1)=split(/Distrib/,$msqlv);
+ my ($mver,$tr)=split(/,/,$mver1);
+ my ($majormver,@mver)=split(/\./,$mver);
  my $sid='ensembl_databases';
  my $cs = "dbi:mysql:database=$sid;host=$host;";
***************
*** 46,50 ****
    chdir($db);
    system('pwd');
!   my $sarg="mysql -h $host -u $user -p$pass $db <$db.sql";
    print "$sarg\n";
    system($sarg)==0 ||die "Failed to create schema for $db\n";
--- 52,57 ----
    chdir($db);
    system('pwd');
!   my $ddlfile=($majormver<5)?"$db.mysql40_compatible.sql":"$db.sql";
!   my $sarg="mysql -h $host -u $user -p$pass $db <$ddlfile";
    print "$sarg\n";
    system($sarg)==0 ||die "Failed to create schema for $db\n";