[Bio] / FigKernelPackages / DBrtns.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/DBrtns.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.14, Thu Apr 21 17:56:29 2005 UTC revision 1.15, Wed May 11 18:43:19 2005 UTC
# Line 165  Line 165 
165      my $flds = $arg{flds};      my $flds = $arg{flds};
166      my $dbh  = $self->{_dbh};      my $dbh  = $self->{_dbh};
167      my $dbms = $self->{_dbms};      my $dbms = $self->{_dbms};
168      $dbh->do("CREATE TABLE $tbl ( $flds );");  
169        my $type;
170    
171        if ($arg{type})
172        {
173            $type = " engine = $arg{type} ";
174        }
175        $dbh->do("CREATE TABLE $tbl ( $flds ) $type;");
176  }  }
177    
178  sub load_table {  sub load_table {
# Line 331  Line 338 
338    
339      my $rc = system($exe,      my $rc = system($exe,
340                      "--datadir=$db_dir",                      "--datadir=$db_dir",
341                        "--basedir=$FIG_Config::common_runtime",
342                      "--user=$FIG_Config::dbuser");                      "--user=$FIG_Config::dbuser");
343      if ($rc != 0)      if ($rc != 0)
344      {      {
# Line 401  Line 409 
409      #      #
410      #push(@opts, "--port=$FIG_Config::dbport");      #push(@opts, "--port=$FIG_Config::dbport");
411    
412        if (@FIG_Config::db_server_startup_options)
413        {
414            push(@opts, @FIG_Config::db_server_startup_options)
415        }
416    
417      #      #
418      # We are going to assume that if mysql has shipped with this release, we'll use it. Otherwise      # We are going to assume that if mysql has shipped with this release, we'll use it. Otherwise
419      # try to use a system one.      # try to use a system one.
# Line 412  Line 425 
425          $exe = "mysqld_safe";          $exe = "mysqld_safe";
426      }      }
427    
428        print "Would run $exe @opts\n";
429    
430      my $pid = fork;      my $pid = fork;
431    
432      if ($pid == 0)      if ($pid == 0)

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3