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 |
} |
} |
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); |