Revision df9b211e
Von Moritz Bunkus vor etwa 19 Jahren hinzugefügt
| SL/User.pm | ||
|---|---|---|
|
sub process_query {
|
||
|
$main::lxdebug->enter_sub();
|
||
|
|
||
|
my ($self, $form, $dbh, $filename) = @_;
|
||
|
my ($self, $form, $dbh, $filename, $version) = @_;
|
||
|
|
||
|
# return unless (-f $filename);
|
||
|
|
||
| ... | ... | |
|
my $sth;
|
||
|
my @quote_chars;
|
||
|
|
||
|
$dbh->begin_work();
|
||
|
|
||
|
while (<FH>) {
|
||
|
|
||
|
# Remove DOS and Unix style line endings.
|
||
| ... | ... | |
|
# Query is complete. Send it.
|
||
|
|
||
|
$sth = $dbh->prepare($query);
|
||
|
$sth->execute || $form->dberror($query);
|
||
|
$sth->finish;
|
||
|
if (!$sth->execute()) {
|
||
|
$sth->finish();
|
||
|
$dbh->rollback();
|
||
|
$form->dberror("The database update/creation did not succeed. The file ${filename} containing the following query failed:<br>${query}<br>" .
|
||
|
"All changes in that file have been reverted.");
|
||
|
}
|
||
|
$sth->finish();
|
||
|
|
||
|
$char = "";
|
||
|
$query = "";
|
||
| ... | ... | |
|
}
|
||
|
}
|
||
|
|
||
|
if ($version) {
|
||
|
$dbh->do("UPDATE defaults SET version = " . $dbh->quote($version));
|
||
|
}
|
||
|
$dbh->commit();
|
||
|
|
||
|
close FH;
|
||
|
|
||
|
$main::lxdebug->leave_sub();
|
||
| ... | ... | |
|
$a =~ s/^$form->{dbdriver}-upgrade-|\.sql$//g;
|
||
|
|
||
|
my ($mindb, $maxdb) = split /-/, $a;
|
||
|
my $str_maxdb = $maxdb;
|
||
|
## LINET
|
||
|
$mindb = calc_version($mindb);
|
||
|
$maxdb = calc_version($maxdb);
|
||
| ... | ... | |
|
last if ($version < $mindb);
|
||
|
|
||
|
# apply upgrade
|
||
|
$self->process_query($form, $dbh, "sql/$upgradescript");
|
||
|
$self->process_query($form, $dbh, "sql/$upgradescript", $str_maxdb);
|
||
|
|
||
|
$version = $maxdb;
|
||
|
|
||
Auch abrufbar als: Unified diff
Jedes Datenbankupdate wird in einer Transaktion gekapselt. Somit wird ein Upgradescript entweder ganz oder gar nicht ausgefuehrt. Ausserdem wird die Versionsnummer automatisch hochgesetzt und muss nicht mehr im Upgrade-Script gesetzt werden.