Revision b2945bf6
Von Sven Schöling vor mehr als 14 Jahren hinzugefügt
| SL/User.pm | ||
|---|---|---|
| 144 | 144 |
|
| 145 | 145 |
if ($form->{"show_dbupdate_warning"}) {
|
| 146 | 146 |
print $form->parse_html_template("dbupgrade/warning");
|
| 147 |
exit(0);
|
|
| 147 |
::end_of_request();
|
|
| 148 | 148 |
} |
| 149 | 149 |
|
| 150 | 150 |
# update the tables |
| ... | ... | |
| 412 | 412 |
# Process a Perl script which updates the database. |
| 413 | 413 |
# If the script returns 1 then the update was successful. |
| 414 | 414 |
# Return code "2" means "needs more interaction; remove |
| 415 |
# users/nologin and exit".
|
|
| 415 |
# users/nologin and end current request".
|
|
| 416 | 416 |
# All other return codes are fatal errors. |
| 417 | 417 |
sub process_perl_script {
|
| 418 | 418 |
$main::lxdebug->enter_sub(); |
| ... | ... | |
| 466 | 466 |
print $form->parse_html_template("dbupgrade/error",
|
| 467 | 467 |
{ "file" => $filename,
|
| 468 | 468 |
"error" => $@ }); |
| 469 |
exit(0);
|
|
| 469 |
::end_of_request();
|
|
| 470 | 470 |
} elsif (1 != $result) {
|
| 471 | 471 |
unlink("users/nologin") if (2 == $result);
|
| 472 |
exit(0);
|
|
| 472 |
::end_of_request();
|
|
| 473 | 473 |
} |
| 474 | 474 |
|
| 475 | 475 |
if (ref($version_or_control) eq "HASH") {
|
Auch abrufbar als: Unified diff
Aufrufe von 'exit' durch eigene Funktion '::end_of_request()' ersetzt.
Außerdem dafür gesorgt, dass Meldungen, die per
$form->show_generic_(error|information) ausgegeben werden, nicht
doppelt angezeigt werden.
Conflicts: