my $interface = lc(shift || 'cgi');
my ($script_name, $action);
my $interface = lc(shift || 'cgi');
my ($script_name, $action);
if ($script eq 'login' or $script eq 'admin' or $script eq 'kopf') {
$::form->{titlebar} = "Lx-Office " . $::locale->text('Version') . " $::form->{version}";
::run($::auth->restore_session);
} elsif ($action) {
# copy from am.pl routines
if ($script eq 'login' or $script eq 'admin' or $script eq 'kopf') {
$::form->{titlebar} = "Lx-Office " . $::locale->text('Version') . " $::form->{version}";
::run($::auth->restore_session);
} elsif ($action) {
# copy from am.pl routines
my $session_result = $::auth->restore_session;
show_error('login/password_error', 'session') if SL::Auth::SESSION_EXPIRED == $session_result;
my $session_result = $::auth->restore_session;
show_error('login/password_error', 'session') if SL::Auth::SESSION_EXPIRED == $session_result;