$::locale = Locale->new($::myconfig{countrycode}) if $::myconfig{countrycode};
if (SL::Auth::OK != $auth->authenticate($::myconfig{login}, $form->{password})) {
$form->{error_message} = $::locale->text('Incorrect username or password!');
login_screen();
} else {
$::locale = Locale->new($::myconfig{countrycode}) if $::myconfig{countrycode};
if (SL::Auth::OK != $auth->authenticate($::myconfig{login}, $form->{password})) {
$form->{error_message} = $::locale->text('Incorrect username or password!');
login_screen();
} else {
$form->{titlebar} .= " - $::myconfig{name} - $::myconfig{dbname}";
call_sub($::locale->findsub($action));
$form->{titlebar} .= " - $::myconfig{name} - $::myconfig{dbname}";
call_sub($::locale->findsub($action));
# if we get an error back, bale out
my $result;
if (($result = $user->login($form)) <= -1) {
# if we get an error back, bale out
my $result;
if (($result = $user->login($form)) <= -1) {
::end_of_request() if $result == -2;
login_screen($::locale->text('Incorrect username or password!'));
::end_of_request();
}
::end_of_request() if $result == -2;
login_screen($::locale->text('Incorrect username or password!'));
::end_of_request();
}
$form->{todo_list} = create_todo_list('login_screen' => 1) if (!$form->{no_todo_list});
$form->{stylesheet} = $myconfig{stylesheet};
$form->{todo_list} = create_todo_list('login_screen' => 1) if (!$form->{no_todo_list});
$form->{stylesheet} = $myconfig{stylesheet};
print $form->parse_html_template($template);
# $form->parse_html_template('login/auth_db_unreachable');
print $form->parse_html_template($template);
# $form->parse_html_template('login/auth_db_unreachable');