Revision 07672867
Von Moritz Bunkus vor mehr als 9 Jahren hinzugefügt
| scripts/task_server.pl | ||
|---|---|---|
|
use List::Util qw(first);
|
||
|
use POSIX qw(setuid setgid);
|
||
|
use SL::Auth;
|
||
|
use SL::DBUpgrade2;
|
||
|
use SL::DB::AuthClient;
|
||
|
use SL::DB::BackgroundJob;
|
||
|
use SL::BackgroundJob::ALL;
|
||
| ... | ... | |
|
exit 2;
|
||
|
}
|
||
|
|
||
|
initialize_kivitendo();
|
||
|
|
||
|
my $dbupdater_auth = SL::DBUpgrade2->new(form => $::form, auth => 1)->parse_dbupdate_controls;
|
||
|
if ($dbupdater_auth->unapplied_upgrade_scripts($::auth->dbconnect)) {
|
||
|
print STDERR <<EOT;
|
||
|
The authentication database requires an upgrade. Please login to
|
||
|
kivitendo's administration interface in order to apply it. The task
|
||
|
server cannot start until the upgrade has been applied.
|
||
|
EOT
|
||
|
exit 2;
|
||
|
}
|
||
|
|
||
|
drop_privileges();
|
||
|
|
||
|
return ();
|
||
Auch abrufbar als: Unified diff
Task-Server: nicht starten, solange Auth-DB-Upgrades eingespielt werden müssen