Revision 3d967be3
Von Sven Schöling vor etwa 15 Jahren hinzugefügt
| SL/User.pm | ||
|---|---|---|
| 34 | 34 |
|
| 35 | 35 |
package User; |
| 36 | 36 |
|
| 37 |
#use strict; |
|
| 38 |
|
|
| 39 | 37 |
use IO::File; |
| 40 | 38 |
use Fcntl qw(:seek); |
| 41 | 39 |
|
| ... | ... | |
| 45 | 43 |
use SL::Iconv; |
| 46 | 44 |
use SL::Inifile; |
| 47 | 45 |
|
| 46 |
use strict; |
|
| 47 |
|
|
| 48 | 48 |
sub new {
|
| 49 | 49 |
$main::lxdebug->enter_sub(); |
| 50 | 50 |
|
| ... | ... | |
| 107 | 107 |
my $dbh = |
| 108 | 108 |
DBI->connect($myconfig{dbconnect}, $myconfig{dbuser},
|
| 109 | 109 |
$myconfig{dbpasswd})
|
| 110 |
or $self->error(DBI::errstr); |
|
| 110 |
or $self->error($DBI::errstr);
|
|
| 111 | 111 |
|
| 112 | 112 |
# we got a connection, check the version |
| 113 | 113 |
my $query = qq|SELECT version FROM defaults|; |
| ... | ... | |
| 802 | 802 |
last if ($version < $mindb); |
| 803 | 803 |
|
| 804 | 804 |
# apply upgrade |
| 805 |
$main::lxdebug->message(LXDebug::DEBUG2, "Applying Update $upgradescript");
|
|
| 805 |
$main::lxdebug->message(LXDebug->DEBUG2(), "Applying Update $upgradescript");
|
|
| 806 | 806 |
if ($file_type eq "sql") {
|
| 807 | 807 |
$self->process_query($form, $dbh, "sql/" . $form->{"dbdriver"} .
|
| 808 | 808 |
"-upgrade/$upgradescript", $str_maxdb, $db_charset); |
| ... | ... | |
| 886 | 886 |
my $file_type = $1; |
| 887 | 887 |
|
| 888 | 888 |
# apply upgrade |
| 889 |
$main::lxdebug->message(LXDebug::DEBUG2, "Applying Update $control->{file}");
|
|
| 889 |
$main::lxdebug->message(LXDebug->DEBUG2(), "Applying Update $control->{file}");
|
|
| 890 | 890 |
print $form->parse_html_template("dbupgrade/upgrade_message2", $control);
|
| 891 | 891 |
|
| 892 | 892 |
if ($file_type eq "sql") {
|
Auch abrufbar als: Unified diff
weitere stricts