-if (! -f 'config/authentication.pl') {
- show_error('login/authentication_pl_missing');
-}
-
-our $locale = new Locale $main::language, "login";
-
-our $auth = SL::Auth->new();
-if (!$auth->session_tables_present()) {
- show_error('login/auth_db_unreachable');
-}
-$auth->expire_sessions();
-my $session_result = $main::auth->restore_session();
-
-# customization
-if (-f "bin/mozilla/custom_$form->{script}") {
- eval { require "bin/mozilla/custom_$form->{script}"; };
- $form->error($@) if ($@);
-}
-
-# per login customization
-if (-f "bin/mozilla/$form->{login}_$form->{script}") {
- eval { require "bin/mozilla/$form->{login}_$form->{script}"; };
- $form->error($@) if ($@);
-}
-
-# window title bar, user info
-$form->{titlebar} = "Lx-Office " . $locale->text('Version') . " $form->{version}";
-
-if (SL::Auth::SESSION_EXPIRED == $session_result) {
- $form->{error_message} = $locale->text('The session is invalid or has expired.');
- login_screen();
- exit;
-}
-
-my $action = $form->{action};
-
-if (!$action && $auth->{SESSION}->{login}) {
- $action = 'login';
-}