SL::DBConnect->get_options,
);
- $::auth->reset;
my $dbh_template = SL::DBConnect->connect(@dbi_options) || BAIL_OUT("No database connection to the template database: " . $DBI::errstr);
my $auth_dbh = $::auth->dbconnect(1);
$auth_dbh->disconnect;
dbh_do($dbh_template, "DROP DATABASE \"" . $db_cfg->{db} . "\"", message => "Database could not be dropped");
-
- $::auth->reset;
}
dbg("Creating database");
dbh_do($dbh, $sth, bind => [ $_, $config{$_} ]) for sort keys %config;
$sth->finish;
- my $sth = $dbh->prepare(qq|INSERT INTO auth.group_rights (group_id, "right", granted) VALUES (1, ?, TRUE)|) || BAIL_OUT($dbh->errstr);
+ $sth = $dbh->prepare(qq|INSERT INTO auth.group_rights (group_id, "right", granted) VALUES (1, ?, TRUE)|) || BAIL_OUT($dbh->errstr);
dbh_do($dbh, $sth, bind => [ $_ ]) for sort $::auth->all_rights;
$sth->finish;