[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.18, Thu Jun 9 18:34:16 2005 UTC revision 1.21, Wed Jul 27 17:56:13 2005 UTC
# Line 13  Line 13 
13  use Carp;  use Carp;
14    
15  sub new {  sub new {
16      my($class,$dbms,$dbname,$dbuser,$dbpass,$dbport) = @_;      my($class,$dbms,$dbname,$dbuser,$dbpass,$dbport, $dbhost) = @_;
17    
18      $dbms   = defined($dbms)   ? $dbms   : $FIG_Config::dbms;      $dbms   = defined($dbms)   ? $dbms   : $FIG_Config::dbms;
19      $dbname = defined($dbname) ? $dbname : $FIG_Config::db;      $dbname = defined($dbname) ? $dbname : $FIG_Config::db;
20      $dbuser = defined($dbuser) ? $dbuser : $FIG_Config::dbuser;      $dbuser = defined($dbuser) ? $dbuser : $FIG_Config::dbuser;
21      $dbpass = defined($dbpass) ? $dbpass : $FIG_Config::dbpass;      $dbpass = defined($dbpass) ? $dbpass : $FIG_Config::dbpass;
22      $dbport = defined($dbport) ? $dbport : $FIG_Config::dbport;      $dbport = defined($dbport) ? $dbport : $FIG_Config::dbport;
23        $dbhost = defined($dbhost) ? $dbhost : $FIG_Config::dbhost;
24    
25      return DBKernel::new($class, $dbms, $dbname, $dbuser, $dbpass, $dbport);      return DBKernel::new($class, $dbms, $dbname, $dbuser, $dbpass, $dbport, $dbhost);
 }  
   
 sub vacuum_it {  
     my($self,@tables) = @_;  
     my($table);  
   
     my $dbh  = $self->{_dbh};  
     my $dbms = $self->{_dbms};  
     if ($dbms eq "mysql") {  
         return;  
     }  
   
     # this chunk is for Pg  (Postgres)  
     if (@tables == 0) {  
         $self->SQL("VACUUM ANALYZE");  
     } else {  
         foreach $table (@tables) {  
             $self->SQL("VACUUM ANALYZE $table");  
         }  
     }  
26  }  }
27    
28  =head1 get_inserted_id  =head1 get_inserted_id
# Line 189  Line 170 
170      push(@opts, "--old-password");      push(@opts, "--old-password");
171      push(@opts, "--max-allowed-packet=128M");      push(@opts, "--max-allowed-packet=128M");
172      #      #
173        # Use InnoDB for large-table support and allegedly better performance.
174        #
175    
176        push(@opts, "--default-table-type=innodb");
177    
178        #
179      # Oddly, this doesn't seem to work. need to set the environment variable.      # Oddly, this doesn't seem to work. need to set the environment variable.
180      #      #
181      #push(@opts, "--port=$FIG_Config::dbport");      #push(@opts, "--port=$FIG_Config::dbport");
# Line 204  Line 191 
191      #      #
192    
193      my $exe = "$FIG_Config::ext_bin/mysqld_safe";      my $exe = "$FIG_Config::ext_bin/mysqld_safe";
194    
195        print "Start $exe @opts\n";
196      if (! -x $exe)      if (! -x $exe)
197      {      {
198          $exe = "mysqld_safe";          $exe = "mysqld_safe";

Legend:
Removed from v.1.18  
changed lines
  Added in v.1.21

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3