Looks like it was broken in 2.2.0. Here's a patch to fix that:
Code:
--- Login.pm 24 Sep 2004 02:54:50 -0000 1.9
+++ Login.pm 2 Feb 2005 21:46:16 -0000
@@ -79,12 +79,13 @@
my $user = Links::init_user($username, $password);
if (!$user) {
print $IN->header();
- print Links::SiteHTML::display('login', { error => Links::language('USER_BADLOGIN')});
- return;
- }
- if ($user->{'Status'} eq 'Not Validated') {
- print $IN->header();
- print Links::SiteHTML::display('login', { error => Links::language('USER_NOTVAL', $user->{Email}), Username => $user->{Username} });
+ require Links::Authenticate;
+ if (Links::Authenticate::auth_valid_user({ Username => $username, Password => $password })) {
+ print Links::SiteHTML::display('login', { error => Links::language('USER_NOTVAL', $user->{Email}), Username => $user->{Username} });
+ }
+ else {
+ print Links::SiteHTML::display('login', { error => Links::language('USER_BADLOGIN')});
+ }
return;
}
Adrian