Revision 1efda319
Von Moritz Bunkus vor fast 18 Jahren hinzugefügt
| SL/User.pm | ||
|---|---|---|
| 436 | 436 |
sub process_perl_script {
|
| 437 | 437 |
$main::lxdebug->enter_sub(); |
| 438 | 438 |
|
| 439 |
my ($self, $form, $dbh, $filename, $version) = @_; |
|
| 439 |
my ($self, $form, $dbh, $filename, $version_or_control) = @_;
|
|
| 440 | 440 |
|
| 441 | 441 |
open(FH, "$filename") or $form->error("$filename : $!\n");
|
| 442 | 442 |
my $contents = join("", <FH>);
|
| ... | ... | |
| 470 | 470 |
exit(0); |
| 471 | 471 |
} |
| 472 | 472 |
|
| 473 |
if ($version) {
|
|
| 474 |
$dbh->do("UPDATE defaults SET version = " . $dbh->quote($version));
|
|
| 473 |
if (ref($version_or_control) eq "HASH") {
|
|
| 474 |
$dbh->do("INSERT INTO schema_info (tag, login) VALUES (" .
|
|
| 475 |
$dbh->quote($version_or_control->{"tag"}) . ", " .
|
|
| 476 |
$dbh->quote($form->{"login"}) . ")");
|
|
| 477 |
} elsif ($version_or_control) {
|
|
| 478 |
$dbh->do("UPDATE defaults SET version = " .
|
|
| 479 |
$dbh->quote($version_or_control)); |
|
| 475 | 480 |
} |
| 476 | 481 |
$dbh->commit(); |
| 477 | 482 |
|
Auch abrufbar als: Unified diff
Beim Abarbeiten von Perl-Datenbankupgradescripten in Pg-upgrade2 wurde die Information, dass das Script abgearbeitet wurde, nicht in der Datenbank eingetragen.