Revision d0fb3d4d
Von Moritz Bunkus vor etwa 14 Jahren hinzugefügt
| SL/DBUpgrade2.pm | ||
|---|---|---|
|
sub init {
|
||
|
my ($self, %params) = @_;
|
||
|
|
||
|
if ($params{auth}) {
|
||
|
$params{path_suffix} = "-auth";
|
||
|
$params{schema} = "auth.";
|
||
|
}
|
||
|
|
||
|
$params{path_suffix} ||= '';
|
||
|
$params{schame} ||= '';
|
||
|
|
||
|
map { $self->{$_} = $params{$_} } keys %params;
|
||
|
|
||
|
return $self;
|
||
| ... | ... | |
|
local *IN;
|
||
|
my %all_controls;
|
||
|
|
||
|
my $path = "sql/" . $self->{dbdriver} . "-upgrade2";
|
||
|
my $path = "sql/" . $self->{dbdriver} . "-upgrade2" . $self->{path_suffix};
|
||
|
|
||
|
foreach my $file_name (<$path/*.sql>, <$path/*.pl>) {
|
||
|
next unless (open(IN, $file_name));
|
||
| ... | ... | |
|
}
|
||
|
|
||
|
if (ref($version_or_control) eq "HASH") {
|
||
|
$dbh->do("INSERT INTO schema_info (tag, login) VALUES (" .
|
||
|
$dbh->quote($version_or_control->{"tag"}) . ", " .
|
||
|
$dbh->quote($form->{"login"}) . ")");
|
||
|
$dbh->do("INSERT INTO " . $self->{schema} . "schema_info (tag, login) VALUES (" . $dbh->quote($version_or_control->{"tag"}) . ", " . $dbh->quote($form->{"login"}) . ")");
|
||
|
} elsif ($version_or_control) {
|
||
|
$dbh->do("UPDATE defaults SET version = " .
|
||
|
$dbh->quote($version_or_control));
|
||
|
$dbh->do("UPDATE defaults SET version = " . $dbh->quote($version_or_control));
|
||
|
}
|
||
|
$dbh->commit();
|
||
|
|
||
| ... | ... | |
|
}
|
||
|
|
||
|
if (ref($version_or_control) eq "HASH") {
|
||
|
$dbh->do("INSERT INTO schema_info (tag, login) VALUES (" .
|
||
|
$dbh->quote($version_or_control->{"tag"}) . ", " .
|
||
|
$dbh->quote($form->{"login"}) . ")");
|
||
|
$dbh->do("INSERT INTO schema_info (tag, login) VALUES (" . $dbh->quote($version_or_control->{"tag"}) . ", " . $dbh->quote($form->{"login"}) . ")");
|
||
|
} elsif ($version_or_control) {
|
||
|
$dbh->do("UPDATE defaults SET version = " .
|
||
|
$dbh->quote($version_or_control));
|
||
|
$dbh->do("UPDATE defaults SET version = " . $dbh->quote($version_or_control));
|
||
|
}
|
||
|
$dbh->commit();
|
||
|
|
||
Auch abrufbar als: Unified diff
Suffix & Schema übergeben