[Bio] / Sprout / LoadSproutTables.pl Repository:
ViewVC logotype

Diff of /Sprout/LoadSproutTables.pl

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

revision 1.14, Wed Dec 7 00:49:16 2005 UTC revision 1.15, Wed Dec 7 01:19:00 2005 UTC
# Line 225  Line 225 
225      if ($FIG_Config::dbms eq "Pg") {      if ($FIG_Config::dbms eq "Pg") {
226          my $dbport = $FIG_Config::dbport;          my $dbport = $FIG_Config::dbport;
227          my $dbuser = $FIG_Config::dbuser;          my $dbuser = $FIG_Config::dbuser;
228            Trace("Dropping old database (failure is okay).") if T(2);
229          system("dropdb -p $dbport -U $dbuser $db");          system("dropdb -p $dbport -U $dbuser $db");
230            Trace("Dropping old database (failure is okay).") if T(2);
231          &FIG::run("createdb -p $dbport -U $dbuser $db");          &FIG::run("createdb -p $dbport -U $dbuser $db");
232      } elsif ($FIG_Config::dbms eq "mysql") {      } elsif ($FIG_Config::dbms eq "mysql") {
233            Trace("Dropping old database (failure is okay).") if T(2);
234          system("mysqladmin -u $FIG_Config::dbuser -p drop $db");          system("mysqladmin -u $FIG_Config::dbuser -p drop $db");
235          &FIG::run("mysqladmin -u $FIG_Config::dbuser -p create $db");          &FIG::run("mysqladmin -u $FIG_Config::dbuser -p create $db");
236            Trace("Dropping old database (failure is okay).") if T(2);
237      }      }
238    
239  }  }
# Line 238  Line 242 
242  my $fig = FIG->new();  my $fig = FIG->new();
243  my $sprout = SFXlate->new_sprout_only(undef, undef, undef, ! $options->{dbLoad});  my $sprout = SFXlate->new_sprout_only(undef, undef, undef, ! $options->{dbLoad});
244  my $spl = SproutLoad->new($sprout, $fig, $options->{geneFile}, $options->{subsysFile}, $options);  my $spl = SproutLoad->new($sprout, $fig, $options->{geneFile}, $options->{subsysFile}, $options);
245    # Insure we have an output directory.
246    FIG::verify_dir($FIG_Config::sproutData);
247  # Process the parameters.  # Process the parameters.
248  for my $group (@parameters) {  for my $group (@parameters) {
249      Trace("Processing load group $group.") if T(2);      Trace("Processing load group $group.") if T(2);

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3