-sub update_available {
- my ($self, $cur_version) = @_;
-
- local *SQLDIR;
-
- my $dbdriver = $self->{dbdriver};
- opendir SQLDIR, "sql/${dbdriver}-upgrade" || error("", "sql/${dbdriver}-upgrade: $!");
- my @upgradescripts = grep /${dbdriver}-upgrade-\Q$cur_version\E.*\.(sql|pl)$/, readdir SQLDIR;
- closedir SQLDIR;
-
- return ($#upgradescripts > -1);
-}
-
-sub update2_available {
- $::lxdebug->enter_sub();
-
- my ($self, $dbh) = @_;
-
- map { $_->{applied} = 0; } values %{ $self->{all_controls} };
+sub process_file {
+ my ($self, $dbh, $filename, $version_or_control) = @_;